![]() |
| ||
|
|
Новости |
Поиск |
FAQ |
Статьи |
Книги |
Новости VCL
| | Форумы ЧАТ |
Орешник |
|
| |||
| |||
« предыдущая ветвь | форум | следующая ветвь »
А как сделать, чтобы форма была или на весь экран или Minimize?
ymin © (2002-04-09 12:21:00)А как сделать, чтобы форма была или на весь экран или Minimize?
и никак иначе
т.е. чтобы с масштабированием не мучаться
ymin (2002-04-09 14:00:00) [1]Сенька, бери мяч
(т.е. Thank you very much)
Song (2002-04-09 13:12:00) [2]wsMaximized
Alx2 (2002-04-09 13:12:00) [3]
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 12:39:00) [4]Я между прочим не ругался, а по-доброму... :))
А теперь можно на пальцах?
Игорь Шевченко (2002-04-09 12:26:00) [5]День добрый,
Обрабатывать WM_SYSCOMMAND c параметром SC_RESTORE ?
С уважением,