Форум: "Основная";
Текущий архив: 2004.01.16;
Скачать: [xml.tar.bz2];
Вниз
Как создать окно во весь экран? Найти похожие ветки
← →
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]То-что надо, все работает! Большое спасибо!
Страницы: 1 вся ветка
Форум: "Основная";
Текущий архив: 2004.01.16;
Скачать: [xml.tar.bz2];
Память: 0.44 MB
Время: 0.01 c