Form Boyut

[hido]

Selam Normalde form boyutunu buton ile belirlemiş olduğum genişlikte ayarlıyorum fakat formun kendi maksimize alanını kullanarak belirlediğim genişlikte nasıl kontrol edebilirim...

Kod: Tümünü seç

procedure TForm1.BoyutClick(Sender: TObject); // Form Boyut
begin
  try
    if FormBoyut.Tag = 0 then
    begin
      Form3.Position := poDesktopCenter;
      Form3.Width := 672;
      FormBoyut.Tag := 1;
    end
    else
    begin
      Form3.Position := poDesktopCenter;
      Form3.Width := 984;
      FormBoyut.Tag := 0;
    end;
  except
  end;
end;

[reyhan]

Bunu bir procedure'le yapabilirisin bir örnek kendine göre ayarlayabilirsin boyutlarını,eger form maximize olursa

Public'in altına ekle

Kod: Tümünü seç

 public
    procedure _WM_GETMINMAXINFO(
  var mmInfo : TWMGETMINMAXINFO );
    message wm_GetMinMaxInfo;

implementation altına ekle

Kod: Tümünü seç

procedure TForm1._WM_GETMINMAXINFO( 
  var mmInfo : TWMGETMINMAXINFO );
begin
  //
  // Form maximize olunca
  // istedigin degeri verirsin:
  // Örnek boyutlar
  with mmInfo.minmaxinfo^ do
  begin
    ptmaxposition.x :=
      Screen.Width div 4;
    ptmaxposition.y :=
      Screen.Height div 4;

    ptmaxsize.x     :=
      Screen.Width div 2;
    ptmaxsize.y     :=
      Screen.Height div 2;
  end;
end;