Текущий архив: 2002.06.17;
Скачать: CL | DM;
Вниз
Как узнать высоту Task Bar’а? Найти похожие ветки
← →
Milg (2002-06-05 14:53) [0]Как узнать высоту Task Bar’а?
← →
Игорь Шевченко © (2002-06-05 15:06) [1]В FAQ пора.
ShAppBarMessage
← →
Milg (2002-06-05 15:51) [2]Смотрел - нету!
Пример можна, пожалуйста?!
← →
Игорь Шевченко © (2002-06-05 16:13) [3]implementation
uses
Shellapi;
{$R *.DFM}
procedure TfMain.Button1Click(Sender: TObject);
var Appbar : TAppbarData;
begin
Appbar.cbSize := SizeOf(AppBar);
ShAppbarMessage(ABM_GETTASKBARPOS, AppBar);
ShowMessageFmt("Высота таскбара = %d", [Appbar.rc.bottom - Appbar.rc.top]);
end;
← →
Milg (2002-06-05 16:26) [4]Спасибо!
← →
Игорь Шевченко © (2002-06-05 16:35) [5]Только я не понимаю, зачем это надо?
А если Taskbar будет справа или слева ?
есть возможность получить размер рабочей области экрана:
var
WorkArea : TRect;
begin
SystemParametersInfo(SPI_GETWORKAREA,0,Pointer(@WorkArea),0);
{ высота рабочей области: Workarea.Bottom - Workarea.Top }
{ ширина рабочей области: Workarea.Right - Workarea.Left }
end;
Страницы: 1 вся ветка
Текущий архив: 2002.06.17;
Скачать: CL | DM;
Память: 0.47 MB
Время: 0.013 c
