Мастера DELPHI (документация, исходники, скачать)

Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

VCL окно во весь экран. [Delphi, Windows]

except 2.0 © (2006-05-08 20:14:00)
Господа, подскажите, как можно развернуть обыкновенное VCL окно по заданному разрешению? Например, разрешение грузится из ини и окно разворачивается поверх пуска? И еще один вопрос - как развернуть тоже самое окно во весь экран текущего разрешения? Спасибо.

VolanD666 (2006-05-10 18:32:00) [1]
top=0;
left=0;
width=(*Screen).Width;
height(*Screen).Height;

Кому как нравится!

Darthman (2006-05-10 12:33:00) [2]
top:= 0;
Left:= 0;
width:= getsystemmetrics(CX_SCREEN);
height:= getsystemmetrics(CY_SCREEN);

n85sergey (2006-05-09 12:03:00) [3]
procedure TForm1.FormCreate(Sender: TObject);
begin
Form1.BorderStyle := bsNone;
Form1.WindowState := wsMaximized;
end;

JUS (2006-05-09 01:27:00) [4]
попробуй как говорит XProger, у меня как то получалось иначе, менял какието свойства формы чтоли, но я не помню.

XProger (2006-05-08 21:23:00) [5]
except 2.0, ChangeDisplaySettings + SetWindowPos + WS_EX_TOPMOST

except 2.0 (2006-05-08 21:04:00) [6]
JUS, ты не понял вопроса - разворачивание окна во весь экран поверх ПУСКА!

JUS (2006-05-08 20:44:00) [7]
Ну как, как.
1. задаёш размер окна (размер читается из ini)
2. Делаеш чтоб окно разворачивалось на весь экран, узнаеш размеры развёрнутого окна -> вот и разрешение.
{размер окна = разрешению, т.е. 1-н к 1-му.} :-)
Думаю понятно

Наверх

	« предыдущая ветвь \| форум \| следующая ветвь »