Formun Boyutlarini Sabitleme

unit Unit1;

interface

uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs;


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

var
Form1: TForm1;

implementation

{$R *.DFM}

procedure TForm1.WMGetMinMaxInfo( var Message :TWMGetMinMaxInfo );
begin
with Message.MinMaxInfo^ do
begin
ptMaxSize.X := 200; 
ptMaxSize.Y := 200; 
ptMaxPosition.X := 99; 
ptMaxPosition.Y := 99; 
ptMinTrackSize.X := 100; 

ptMinTrackSize.Y := 100; 
ptMaxTrackSize.X := 300; 
ptMaxTrackSize.Y := 300; 
end;
Message.Result := 0; 
inherited;
end;


end.