|
|
Регистрация | << Правила форума >> | FAQ | Пользователи | Календарь | Поиск | Сообщения за сегодня | Все разделы прочитаны |
|
Опции темы | Поиск в этой теме | Опции просмотра |
#1
|
|||
|
|||
Максимизация формы
Добрый день! Возникла такая вот проблемка!
Необходимо, чтобы при нажатии на форме на кнопку максимизации форма меняла бы свои размеры на такие, которые я сам установлю! Поробовал вот такой код, но всё равно не получаетя: Код:
private procedure WMSyscommand(var msg: TWmSysCommand); message WM_SYSCOMMAND; Код:
procedure TForm3.WMSyscommand(var msg: TWMSysCommand); begin if msg.CmdType = SC_MAXIMIZE then Form3.Height:=100; Form3.Width:=100; inherited; end; |