Изменение стандартной формы
SetWindowRgn(Handle, R, True);
Handle - указатель на форму, вид которой хотим поменять
R - указатель на регион, для установки R смотрите функцию CreatePolygonRgn
True - флаг, при значении TRUE сразу после установки перерисовки
Прозрачная форма
Переписываем конструктор:
constructor TForm1.Create(AOwner: TComponent); begin inherited; HorzScrollBar.Visible:= False; // убираем сколлбары, чтобы не мешались VertScrollBar.Visible:= False; // при изменении размеров формы RebuildWindowRgn; // строим новый регион end;
А вот процедура "перестройки" региона формы:
procedure TForm1.RebuildWindowRgn; var FullRgn, Rgn: THandle; ClientX, ClientY, I: Integer; begin // определяем относительные координаты клиентской части ClientX:= (Width - ClientWidth) div 2; ClientY:= Height - ClientHeight - ClientX; // создаем регион для всей формы FullRgn:= CreateRectRgn(0, 0, Width, Height); // создаем регион для клиентской части формы и вычитаем его из FullRgn Rgn:= CreateRectRgn(ClientX, ClientY, ClientX + ClientWidth, ClientY + ClientHeight); CombineRgn(FullRgn, FullRgn, Rgn, rgn_Diff); // теперь добавляем к FullRgn регионы каждого контрольного элемента for I:= 0 to ControlCount - 1 do with Controls[I] do begin Rgn:= CreateRectRgn(ClientX + Left, ClientY + Top, ClientX + Left +Width, ClientY + Top + Height); CombineRgn(FullRgn, FullRgn, Rgn, rgn_Or); end; SetWindowRgn(Handle, FullRgn, True); // устанавливаем новый регион окна end;
Еще одно. Если Ваша форма, будет с изменяемыми размерами, то Вам надо добавить:
procedure TForm1.Resize; begin inherited; RebuildWindowRgn; // строим новый регион end;
Перемещение формы
И самый последний штрих - произвольное перемещение формы, а не за Title Bar. Так сделано в программе WinAmp. Пишем всего одну процедуру:
procedure TForm1.WMNCHitTest(var M: TWMNCHitTest); begin inherited; // вызов унаследованного обработчика if M.Result = htClient then // Мышь сидит на окне? Если да M.Result := htCaption; // - то пусть Windows думает, что мышь на caption bar end;
Если Вам понадобится вызов Popup меню, то можно поступить следующим образом:
procedure TForm1.FormMouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer); const SC_DragMove = $F012; begin // Если нужно вывести меню - выходим, а по левой кнопке просто перетаскиваем. if Button=mbRight then exit; ReleaseCapture; perform(WM_SysCommand, SC_DragMove, 0); end;
Смотрится достаточно эффектно, но единственный минус скорость работы. Надеюсь, что этот раздел будет постепенно пополняться.
Да, хочется отметить что начиная с Windows 2000 на аппаратном уровне появилась поддержка прозрачных окон. Точнее сказать прозрачность поддерживается за счет использования нового графического интерфейса - GDI+. Этот интерфейс значительно расширяет функции стандартного GDI, но наданный момент все его функции раелизуются программно. Этот минус MS устранит в следующих версиях.
Комментарии