VCL окно во весь экран.

← →
except 2.0 (2006-05-08 20:14) [0]

Господа, подскажите, как можно развернуть обыкновенное VCL окно по заданному разрешению? Например, разрешение грузится из ини и окно разворачивается поверх пуска? И еще один вопрос - как развернуть тоже самое окно во весь экран текущего разрешения? Спасибо.

← →
JUS © (2006-05-08 20:44) [1]

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

← →
except 2.0 (2006-05-08 21:04) [2]

JUS, ты не понял вопроса - разворачивание окна во весь экран поверх ПУСКА!

← →
XProger © (2006-05-08 21:23) [3]

except 2.0, ChangeDisplaySettings + SetWindowPos + WS_EX_TOPMOST

← →
JUS © (2006-05-09 01:27) [4]

попробуй как говорит XProger, у меня как то получалось иначе, менял какието свойства формы чтоли, но я не помню.

← →
n85sergey © (2006-05-09 12:03) [5]

procedure TForm1.FormCreate(Sender: TObject);
begin
Form1.BorderStyle := bsNone;
Form1.WindowState := wsMaximized;
end;

top:= 0;
Left:= 0;
width:= getsystemmetrics(CX_SCREEN);
height:= getsystemmetrics(CY_SCREEN);

← →
VolanD666 (2006-05-10 18:32) [7]

top=0;
left=0;
width=(*Screen).Width;
height(*Screen).Height;

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

VCL окно во весь экран. Найти похожие ветки