Панелька в стиле AtGuard

← →
MBo (2002-03-30 12:11) [5]

вот пример, кривоватый, наверно.

var
Form1: TForm1;
MyAppbData: TAppBarData;

procedure TForm1.FormCreate(Sender: TObject);
begin
MyAppbData.cbSize := SizeOf(MyAppbData);
MyAppbData.hWnd := Handle;
MyAppbData.uCallbackMessage := WM_USER + 100;
SHAppBarMessage( ABM_NEW, MyAppbData);
with MyAppbData do
begin
uEdge := ABE_TOP;
rc.Left := 0;
rc.Right := Screen.Width;
rc.Top := 0;
rc.Bottom := 100;
end;
SHAppBarMessage( ABM_SETPOS, MyAppbData);
SetBounds( MyAppbData.rc.Left
, MyAppbData.rc.Top
, MyAppbData.rc.Right - MyAppbData.rc.Left
, MyAppbData.rc.Bottom - MyAppbData.rc.Top);
SHAppBarMessage(ABM_ACTIVATE, MyAppbData);
end;

procedure TForm1.FormDestroy(Sender: TObject);
begin
SHAppBarMessage( ABM_REMOVE, MyAppbData);
end;

Панелька в стиле AtGuard Найти похожие ветки