Форум: "Основная";
Текущий архив: 2006.03.26;
Скачать: [xml.tar.bz2];
ВнизПанель инструментов Найти похожие ветки
← →
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
← →
Andy BitOff © (2006-02-26 16:02) [6]uses
... ShellAPI ...
Страницы: 1 вся ветка
Форум: "Основная";
Текущий архив: 2006.03.26;
Скачать: [xml.tar.bz2];
Память: 0.45 MB
Время: 0.042 c