Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2002.05.20;
Скачать: CL | DM;

Вниз

Положение панели задач   Найти похожие ветки 

 
Loxly ©   (2002-05-06 07:58) [0]

Уважаемые мастера, подскажите пожалуйста, как узнать положение панели задач на экране.
Заранее спасибо!


 
Song ©   (2002-05-06 08:03) [1]


procedure TForm1.Button1Click(Sender: TObject);
var
tabd: TAppBarData;
PosString: string;
begin
FillChar(tabd, SizeOf(TAppBarData), 0);
tabd.cbSize := SizeOf(TAppBarData);
if SHAppBarMessage(ABM_GETTASKBARPOS, Tabd) = 0 then Exit;
with Tabd.rc do
PosString := Format(" (%d, %d);(%d, %d) ", [Left, Top, Right, Bottom]);
case tabd.uEdge of
ABE_LEFT: ShowMessage("Left Position" + PosString);
ABE_TOP: ShowMessage("Top Position" + PosString);
ABE_RIGHT: ShowMessage("Right Position" + PosString);
ABE_BOTTOM: ShowMessage("Bottom Position" + PosString);
end;
end;



Страницы: 1 вся ветка

Текущий архив: 2002.05.20;
Скачать: CL | DM;

Наверх




Память: 0.46 MB
Время: 0.01 c
3-64469
boogier
2002-04-22 09:05
2002.05.20
Перекодировка DOS-WIN в T-SQL


1-64589
com6
2002-05-07 16:37
2002.05.20
как проверить, не передал ли юзер какой аргумент к файлу проги


14-64822
DeMoN-777
2002-04-11 04:16
2002.05.20
Как узнать на каком языке писалась программа ?


3-64514
yennifaire
2002-04-22 18:02
2002.05.20
Почему он выдаёт


3-64479
Alexander Vasjuk
2002-04-22 17:09
2002.05.20
Блокировать вставку стрелкой вниз