Панель инструментов

← →
nap<> (2006-02-26 12:10) [0]

Подскажите как получить высоту панели инструментов

← →
clickmaker © (2006-02-26 12:29) [1]

Toolbar.Height

← →
nap<> (2006-02-26 12:38) [2]

Не уточнил извиняюсь У WINDOWS Внизу которая

← →
Andy BitOff © (2006-02-26 12:50) [3]

А почуму внизу? У меня она сверху. Распространенная ошибка большинства программистов.
procedure TMainForm.SetFormHeightByScreenSize(); var a:integer; ABData: TAppBarData; bAlwaysOnTop: Boolean; {Поверх окон} bAutoHide : boolean; {Авт. убирать с экрана} ClRect : TRect; {Клиентские области} Rect : TRect; Edge : UInt; {Местоположение TaskBar} begin //определение положения TaskBar"a и его размера ABData.hWnd := FindWindow("Shell_TrayWnd", nil); ABData.cbSize := sizeof(AppBarData); bAlwaysOnTop := strToBool(IntToStr((SHAppBarMessage(ABM_GETSTATE, ABData) and ABS_ALWAYSONTOP))); bAutoHide := strToBool(IntToStr((SHAppBarMessage(ABM_GETSTATE, ABData) and ABS_AUTOHIDE))); windows.GetClientRect(ABData.hWnd, ClRect); GetWindowRect(ABData.hwnd, rect); if (Rect.top > 0) Then Edge := ABE_BOTTOM else if (Rect.Bottom < Screen.Height) Then Edge := ABE_TOP else if Rect.Right < Screen.Width Then Edge := ABE_LEFT else Edge := ABE_RIGHT; //установка положения и изменение размеров формы на весь экран по высоте a:=0; if Edge=ABE_TOP then a:=clRect.Bottom; MainForm.Top:=a; a:=Screen.Height-clRect.Bottom-MainForm.Height; MainForm.Height:=MainForm.Height+a; MainForm.Repaint; EditFilePanel.Height:=a; end;

← →
nap<> (2006-02-26 13:07) [4]

TAppBarData а это что

← →
nap<> (2006-02-26 13:13) [5]

Подскажите что за тип TAppBarData

uses
... ShellAPI ...

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