|
|
Регистрация | << Правила форума >> | 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; |
#2
|
||||
|
||||
В свойстах формы при дизайне можно задать максимальные и минимальные размеры формы.
Constraints.MaxHeight Constraints.MaxWidth Или посмотри событие OnConstrainedResize. Последний раз редактировалось BoRoV, 09.12.2010 в 23:47. |
#3
|
|||
|
|||
Цитата:
А как связать событие OnConstrainedResize с процедурой максимизации? |
#4
|
||||
|
||||
Попробуй так:
Код:
procedure TForm3.WMSyscommand(var msg: TWmSysCommand); begin if msg.CmdType = SC_MAXIMIZE then begin Form3.Height:=200; Form3.Width:=200; end else inherited; end; |
#5
|
||||
|
||||
ну так:
Код:
unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs; type TForm1 = class(TForm) procedure FormCreate(Sender: TObject); private { Private declarations } public { Public declarations } procedure WMSysCommand(var Message: TWMSysCommand); message WM_SYSCOMMAND; end; var Form1: TForm1; implementation {$R *.dfm} procedure TForm1.FormCreate(Sender: TObject); begin // Constraints.MaxWidth:=640; // Constraints.MaxHeight:=480; end; procedure TForm1.WMSysCommand(var Message: TWMSysCommand); begin if Message.CmdType=SC_MAXIMIZE then begin Width:=640; Height:=480; Message.Result:=0; end else inherited; end; end. Код:
Constraints.MaxWidth:=640; Constraints.MaxHeight:=480; Oops, пока добрался до ответа на этот пост уже ответили Пишу программы за еду. __________________ |
#6
|
|||
|
|||
Спасибо, все работает, как надо! Но возникакет еще такая проблемка: после запуска формы нажимаю на кнопку максимизации, форма увеличивается до определённых размеров, но кнопка максимизации почему-то не меняется на кнопку минимизации формы и уменьшить форму нельзя!
Как этого можно избежать? Заранее благодарен! |