استفسار بخصوص تكبير الفورم

[hakimrahal]

السلام عليكم ورحمة الله وبركاته, هذا كود بسيط يشرح ذلك.

PHP كود :

var
  Form1: TForm1;
width,heigth:integer;
implementation

{$R *.dfm}

procedure TForm1.FormDblClick(Sender: TObject);

begin
  if form1.WindowState=wsnormal then
  begin
  width:=form1.Width;
  heigth:=form1.Height;
  form1.WindowState:= wsmaximized;
  end
  else
  begin
  form1.WindowState:=wsnormal;
  form1.Width:=width;
  form1.Height:=heigth;
  end; 
end;