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

А как сделать, чтобы форма была или на весь экран или Minimize?   Найти похожие ветки 

← →
ymin ©   (2002-04-09 12:21) [0]

А как сделать, чтобы форма была или на весь экран или Minimize?
и никак иначе
т.е. чтобы с масштабированием не мучаться

---

← →
Игорь Шевченко ©   (2002-04-09 12:26) [1]

День добрый,

Обрабатывать WM_SYSCOMMAND c параметром SC_RESTORE ?

С уважением,

---

← →
ymin ©   (2002-04-09 12:39) [2]

Я между прочим не ругался, а по-доброму... :))
А теперь можно на пальцах?

---

← →
Song ©   (2002-04-09 13:12) [3]

wsMaximized

---

← →
Alx2 ©   (2002-04-09 13:12) [4]


TForm1 = Class(TForm)

.............
public
Procedure OnsysCommand(Var Message: TWMSysCommand); Message WM_SYSCOMMAND;
End;

Procedure TForm1.OnsysCommand(Var Message: TWMSysCommand);
Begin
If (WindowState = wsMaximized) And
(Message.CmdType And SC_RESTORE = SC_RESTORE)
Then
Message.Result := 0 Else
Inherited;
End;


---

← →
ymin ©   (2002-04-09 14:00) [5]

Сенька, бери мяч
(т.е. Thank you very much)

---

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

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



Память: 0.45 MB
Время: 0.014 c