1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30
|
Form1=Tform
.....
procedure FormCanResize(Sender: TObject; var NewWidth,
NewHeight: Integer; var Resize: Boolean);
private
{ Déclarations privées }
......
Procedure MonMessage(var msg:TMessage);message wm_user;
...
end;
...
procedure TForm1.MonMessage;
begin
with msg do
begin
if WParam<0 then top:=top+WParam;
if LParam<0 then Left:=left+LParam;
end;
end;
procedure TForm1.FormCanResize(Sender: TObject; var NewWidth,
NewHeight: Integer; var Resize: Boolean);
var h,l:integer;
begin
h:=NewHeight-300;
l:=NewWidth-300;
Resize:=(NewWidth>=300) and (NewHeight>=300);
if not Resize then
PostMessage(handle,wm_user,h,l);
end; |
Partager