У меня уже готовая форма form1.
В событии create для нее я добавил такой код:
Цитата:
ZeroMemory(@AppBarData, SizeOf(TAppBarData));
AppBarData.cbSize:=SizeOf(TAppBarData);
AppBarData.hWnd:=Form1.Handle;
AppBarData.uCallbackMessage:=WM_APP+$101;
SHAppBarMessage(ABM_NEW, AppBarData);
AppBarData.uEdge:=ABE_TOP;
AppBarData.rc:=Rect(0, 0,
GetSystemMetrics(SM_CXSCREEN), GetSystemMetrics(SM_CYSCREEN));
SHAppBarMessage(ABM_QUERYPOS, AppBarData);
AppBarData.rc.Bottom:=AppBarData.rc.Top+form1.Heig ht;
SHAppBarMessage(ABM_SETPOS, AppBarData);
MoveWindow(Form1.Handle,AppBarData.rc.Left,
AppBarData.rc.Top,
AppBarData.rc.Right-AppBarData.rc.Left,
AppBarData.rc.Bottom-AppBarData.rc.Top, False);
|
Окно не устанавливается в область выделенную для панели.
Не подскажете где я недопонимаю.