Получение информации о TaskBar

Страница 2 из 2

и осталось описать самое главное - обработчик нажатия кнопки:

Code:

procedure TForm1.Button1Click(Sender: TObject);

begin

DetectTaskBar;

StringGrid1.Cells[0,0] := 'Выше других окон';

StringGrid1.Cells[0,1] := 'Автоматически убирать с экрана';

StringGrid1.Cells[0,2] := 'Клиентская область';

StringGrid1.Cells[0,3] := 'Оконная область';

StringGrid1.Cells[0,4] := 'Края';

if bAlwaysOnTop = true then

StringGrid1.Cells[1,0] := 'true'

else

StringGrid1.Cells[1,0] := 'false';

if bAutoHide = true then

StringGrid1.Cells[1,1] := 'true'

else

StringGrid1.Cells[1,1] := 'false';

StringGrid1.Cells[1,2] := IntToStr(Clrect.Left)+':'+IntToStr(Clrect.Top) +

':'+IntToStr(Clrect.Right)+':'+IntToStr(Clrect.Bottom);

StringGrid1.Cells[1,3] := IntToStr(rect.Left)+':'+IntToStr(rect.Top) +

':'+IntToStr(rect.Right)+':'+IntToStr(rect.Bottom);

StringGrid1.Cells[1,4] := IntToStr(Edge);

end;

Новые статьи