Скачать: CL | DM;

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;

---

← →
Darthman ©   (2006-05-10 12:33) [6]

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;

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

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.46 MB
Время: 0.03 c