Delphi - Компьютерный форум OSzone.net

Компьютерный форум OSzone.net (http://forum.oszone.net/index.php)

- Программирование и базы данных (http://forum.oszone.net/forumdisplay.php?f=21)

- - Delphi (http://forum.oszone.net/showthread.php?t=30750)

Как сделать, чтобы по достижению опренделенного размера, при перетаскивание бордюра мышкой, размер формы переставал изменяться...

У формы есть свойство: Constraints. Надо установить предельные значения максимальной высоты и ширины формы: Constraints.MaxWidth и Constraints.MinHeight.

Цитата:

Constraints

попробовал, это не то что мне нужну, дело в том, что изменение размеров разрешенно, т.е. если стоит 300 я могу поставить 400, но после того как я поставлю форма автоматически изменет свой размер на 300, дело в том что когда происходит изменение размера на тот который мы задали форма может сдвинуться с места, т.е. начинает перемещаться по экрану, что выглядит весьма коряво, особенно когда тянешь сверху-вниз, она может вообще уехать за пределы экрана (я такое же получил, когда в обработчике событий, возникающем при изменении экрана указал не изменяться менее определенных размеров)... а я хочу чтобы достигался эффект подобный тому когда нельзя вообще изменять размеры формы, когда устанавливается "тонкий бордюр", но только в определенном диапазоне размера формы...

Roman Go
Какая версия дельфи?

Добавлено:

У формы OnCanResize есть или что-то типа этого?

vasketsov Delphi 5 там есть OnResize, OnCanResize и OnConstrainedResize но они мне не подходят, почему я объяснил выше...

Roman Go
При OnCanResize так и работает как написал, причем у меня в Delphi5 это используется.

Хочешь "правильно" - обрабатывай сообщения WM_SIZING и WM_MOVING.

Цитата:

Хочешь "правильно" - обрабатывай сообщения WM_SIZING и WM_MOVING.

хочу, только вот с этим никогда дела не имел и ничего у меня не получается...

это то до чего я дошел, только вот уже сил нет, по крайней мере сегодня, я вообще не могу понять как эта штука работает, вроде все пишется одинаково, а результата никакого

Код:

type

 &nbsp;TForm1 = class(TForm)

 &nbsp; &nbsp;Button1: TButton;

 &nbsp; &nbsp;procedure qwe1(var message :Tmessage); message wm_size;

 &nbsp; &nbsp;procedure mtop(var message:Tmessage); message wmsz_top;

 &nbsp; &nbsp;procedure mleft(var message:Tmessage); message wmsz_left;



 &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; ...



 procedure Tform1.qwe1(var message:Tmessage);

 &nbsp; var h:integer;

 &nbsp; begin

 &nbsp; &nbsp; &nbsp;if form1.Height&lt;200 then form1.Height:=200;

 &nbsp; &nbsp; &nbsp;if form1.width&lt;200 then form1.width:=200;

 &nbsp; end;



 procedure tform1.mtop(var message:Tmessage);

 &nbsp; var h:integer;

 &nbsp; begin

 &nbsp; &nbsp; &nbsp;h:=form1.height;

 &nbsp; &nbsp; &nbsp;if form1.Height&lt;200 then form1.Height:=200;

 &nbsp; &nbsp; &nbsp;if (200-h)&gt;0 then form1.top:=form1.top-(200-h);

 &nbsp; end;



 procedure Tform1.mleft(var message:Tmessage);

 &nbsp; var w:integer;

 &nbsp; begin

 &nbsp; showmessage('');

 &nbsp; &nbsp; &nbsp;w:=form1.width;

 &nbsp; &nbsp; &nbsp;if form1.width&lt;200 then form1.width:=200;

 &nbsp; &nbsp; &nbsp;if (200-w)&gt;0 then form1.left:=form1.left-(200-w);

 &nbsp; end;

с помощью процедуры qwe1 я добиваюся того же результата, что и при помощи обработчика событий, то есть окно не уменьшается менее заданных размеров, но скачет когда я изменяю его размеры сверху-вниз и слева-направо...

с помощью mtop я добился того чтобы она не скакала при изменении размеров сверху-вниз, думал такое же повторить, для слева-направо с помощью mleft но не прокатило, к тому же моя форма также скачет если ее тащить за углы, в смысле изменять размеры... можно конечно попробовать написать что-то типа mtop и для этого случая, но что если получится также как и с mleft... короче я в тупике... может я все таки не с той стороны подошел, как обычно, не там ищу...

Roman Go

Цитата:

WM_SIZING и WM_MOVING

Это не то же самое что и WM_SIZE и WM_MOVE.
Читай на msdn.microsoft.com

Код:

 &nbsp; &nbsp;procedure qwe1(var message :Tmessage); message wm_sizing;



...



 procedure Tform1.qwe1(var message:Tmessage);

 &nbsp; type R=record

 &nbsp; &nbsp; &nbsp; &nbsp;left:Longint;

 &nbsp; &nbsp; &nbsp; &nbsp;top:Longint;

 &nbsp; &nbsp; &nbsp; &nbsp;right:Longint;

 &nbsp; &nbsp; &nbsp; &nbsp;bottom:Longint;

 &nbsp; &nbsp; &nbsp; &nbsp;end;



 &nbsp; var h:integer;

 &nbsp; &nbsp; &nbsp; myRect:^R; &nbsp; &nbsp; &nbsp; &nbsp;// &nbsp; &nbsp; &nbsp; longint

 &nbsp; &nbsp; &nbsp; mRect:R;

 &nbsp; begin

{ &nbsp; myRect:=@(message.lparam);} {НЕТРОГАТЬ!!!}

 myRect:=ptr(message.lparam);

 mrect:=Myrect^;

 label1.caption:=inttostr(mRect.Top)+#13+inttostr(mRect.Bottom)+#13+inttostr(mRect.left)+#13+inttostr(mRect.Right);

 label2.caption:=inttostr(mrect.bottom-mrect.top);



 if mrect.bottom-mrect.top&lt;300 then

 &nbsp;begin

 &nbsp; form1.BorderStyle:=bsSingle;

 &nbsp; form1.BorderStyle:=bsSizeAble;

 &nbsp; form1.height:=300; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp;//repaint

 &nbsp; form1.invalidate;

 &nbsp; beep;

 &nbsp;end;

 if mrect.right-mrect.left&lt;300 then

 &nbsp;begin

 &nbsp; form1.BorderStyle:=bsSingle;

 &nbsp; form1.BorderStyle:=bsSizeAble;

 &nbsp; form1.width:=300;

 &nbsp; form1.invalidate;

 &nbsp; beep;

 &nbsp;end;

 &nbsp;form1.invalidate; //repaint; refresh;

end;

вроде работает, т.е. форма перестает изменять размеры при достижении одного из недопустимых параметров, но как это коряво все работает просто ужас

Код:

form1.BorderStyle:=bsSingle;

 form1.BorderStyle:=bsSizeAble;

это чтобы мышка форму отпустила

Код:

form1.invalidate; //repaint; refresh;

это я пытаюсь все перерисовать, но все равно все коряво...

Roman Go
The WM_SIZING message is sent to a window that the user is resizing. By processing this message, an application can monitor the size and position of the drag rectangle and, if needed, change its size or position.

Делается примерно так.
Во-первых, надо вызывать inherited;
Во-вторых, перед этим, если не надо ничего делать, просто возвращаешь 0 (в документации написано, что надо TRUE возвращать).

То же  для WM_MOVING.

Цитата:

WM_MOVING.

а зачем мне вообще нужен этот moving меня интерисует изменение размеров, а не движение формы...

Код:

type

 &nbsp;TForm1 = class(TForm)

 &nbsp;private

 &nbsp; &nbsp;{ Private declarations }

 &nbsp;public

 &nbsp; &nbsp; procedure WMGetMinMaxInfo(var Message:TMessage); message WM_GETMINMAXINFO;

 &nbsp; &nbsp;{ Public declarations }

 &nbsp;end;



var

 &nbsp;Form1: TForm1;



implementation



{$R *.DFM}



{Используется обработка Windows сообщения WM_GETMINMAXINFO

Например, ограничение на уменьшение размера формы

и на увеличение ее по высоте:}



//-----------------------------------------------------//

//ограничение на изменение размера формы

//-----------------------------------------------------//

procedure TForm1.WMGetMinMaxInfo(var Message : TMessage);

type &nbsp;PTMinMaxInfo = ^TMinMaxInfo;

 &nbsp;begin

 &nbsp;with PTMinMaxInfo(Message.LParam)^.ptMinTrackSize do

 &nbsp; &nbsp;begin

 &nbsp; &nbsp; x := 100;

 &nbsp; &nbsp; y := 100;

 &nbsp; &nbsp;end;

 &nbsp;with PTMinMaxInfo(Message.LParam)^.ptMaxTrackSize do

 &nbsp; &nbsp;begin

 &nbsp; &nbsp; x := 400;

 &nbsp; &nbsp; y := 400;

 &nbsp; &nbsp;end;



 &nbsp;inherited;

 &nbsp;//вызвать оригинальный обработчик а в конце чтоб подменил значения



 &nbsp;end;

В интернете нашел, сам такое сделать не могу, и с тем что выше (sizing) сделать не получилось, но этот код работает так как мне нужно было изначально