Как создать окно во весь экран?

← →
Zilog_ (2004-01-03 10:42) [0]

Ребята, помогите! Необходимо создать окно во весь экран, так что-бы оно скрывало собой панель задач! И как при этом узанть разрешение экрана, и как его программно изменить? Заранее благодарен!

← →
mike-d (2004-01-03 11:31) [1]

procedure TMainForm.FormCreate(Sender: TObject);
var
HTaskBar: THandle;
begin
// уберем панель задач с глаз долой
HTaskBar := FindWindow("Shell_TrayWnd", nil);
ShowWindow(HTaskBar, SW_HIDE);
// размажем форму по всему экрану
Top := 0;
Left := 0;
Height := Screen.Height;
Width := Screen.Width;
end;

procedure TMainForm.FormDestroy(Sender: TObject);
var
HTaskBar: THandle;
begin
// восстановим панель задач
HTaskBar := FindWindow("Shell_TrayWnd", nil);
ShowWindow(HTaskBar, SW_SHOWNORMAL);
end;

А вообще-то полезно иногда читать FAQ на этом сайте...
http://www.delphimaster.ru/cgi-bin/faq.pl?look=1&id=988620920&n=15

← →
Zilog_ (2004-01-03 12:19) [2]

То-что надо, все работает! Большое спасибо!

Как создать окно во весь экран? Найти похожие ветки