Delphi

[Roman Go]

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

[Fobos]

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

[Roman Go]

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

[vasketsov]

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


Добавлено:

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

[Roman Go]

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

[vasketsov]

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

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

[Roman Go]

Хочешь "правильно" - обрабатывай сообщения WM_SIZING и WM_MOVING.
хочу, только вот с этим никогда дела не имел и ничего у меня не получается...
это то до чего я дошел, только вот уже сил нет, по крайней мере сегодня, я вообще не могу понять как эта штука работает, вроде все пишется одинаково, а результата никакого


type
 TForm1 = class(TForm)
   Button1: TButton;
   procedure qwe1(var message :Tmessage); message wm_size;
   procedure mtop(var message:Tmessage); message wmsz_top;
   procedure mleft(var message:Tmessage); message wmsz_left;

                        ...

procedure Tform1.qwe1(var message:Tmessage);
  var h:integer;
  begin
     if form1.Height<200 then form1.Height:=200;
     if form1.width<200 then form1.width:=200;
  end;

procedure tform1.mtop(var message:Tmessage);
  var h:integer;
  begin
     h:=form1.height;
     if form1.Height<200 then form1.Height:=200;
     if (200-h)>0 then form1.top:=form1.top-(200-h);
  end;

procedure Tform1.mleft(var message:Tmessage);
  var w:integer;
  begin
  showmessage('');
     w:=form1.width;
     if form1.width<200 then form1.width:=200;
     if (200-w)>0 then form1.left:=form1.left-(200-w);
  end;

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

[vasketsov]

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

[Roman Go]

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

...

procedure Tform1.qwe1(var message:Tmessage);
  type R=record
       left:Longint;
       top:Longint;
       right:Longint;
       bottom:Longint;
       end;

  var h:integer;
      myRect:^R;        //       longint
      mRect:R;
  begin
{   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<300 then
 begin
  form1.BorderStyle:=bsSingle;
  form1.BorderStyle:=bsSizeAble;
  form1.height:=300;                        //repaint
  form1.invalidate;
  beep;
 end;
if mrect.right-mrect.left<300 then
 begin
  form1.BorderStyle:=bsSingle;
  form1.BorderStyle:=bsSizeAble;
  form1.width:=300;
  form1.invalidate;
  beep;
 end;
 form1.invalidate; //repaint; refresh;
end;


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


form1.BorderStyle:=bsSingle;
form1.BorderStyle:=bsSizeAble;
это чтобы мышка форму отпустила


form1.invalidate; //repaint; refresh;

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

[vasketsov]

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.

[Roman Go]

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

[Roman Go]

type
 TForm1 = class(TForm)
 private
   { Private declarations }
 public
    procedure WMGetMinMaxInfo(var Message:TMessage); message WM_GETMINMAXINFO;
   { Public declarations }
 end;

var
 Form1: TForm1;

implementation

{$R *.DFM}

{Используется обработка Windows сообщения WM_GETMINMAXINFO
Например, ограничение на уменьшение размера формы
и на увеличение ее по высоте:}

//-----------------------------------------------------//
//ограничение на изменение размера формы
//-----------------------------------------------------//
procedure TForm1.WMGetMinMaxInfo(var Message : TMessage);
type  PTMinMaxInfo = ^TMinMaxInfo;
 begin
 with PTMinMaxInfo(Message.LParam)^.ptMinTrackSize do
   begin
    x := 100;
    y := 100;
   end;
 with PTMinMaxInfo(Message.LParam)^.ptMaxTrackSize do
   begin
    x := 400;
    y := 400;
   end;

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

 end;


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