Form Boyutlandırma

[Altıner]

Merhabalar,

Aşağıdaki kodlarla formu boyutlandırıyorum, fakat forma mouse ile müdahale etmediğim sürece vermiş Height Width değişmiyor. 
RunTime olarak bu sorunu nasıl çözerim?

procedure TMainForm.Button1Click(Sender: TObject);
begin
  Form1.Constraints.MaxHeight := 200;
 Form1.Constraints.MaxWidth := 400;
  Form.1Position := TFormPosition.DesktopCenter;
end;

[RAD Coder]

Sizin kodu (aşğıdaki gibi) denediğimde, sorun görmedim. 
İkinci form boyutu, designtime da 640x480. DesignTime da ise verdiğiniz ölçüde Show durumuna geçiyor ve Constraints olarak tanımladığınız sınırlar değişmiyor.  Yani 400x200 de sabit kalıyor.

  Form21.Constraints.MaxHeight := 200;
 Form21.Constraints.MaxWidth := 400;
 Form21.Position := TFormPosition.DesktopCenter;
 Form21.Show;

[Altıner]

Üstat kodda sorun yok.

Açık olan bir formu boyutlandırmak istediğimde form boyutlanmıyor. Mouse ile formu yer değişikliği yaptığımda o zaman boyun değişiyor.

[frmman]

Şu şekilde deneyin.

Constraints ile formun max alabileceği boyutu sınırlandırıyorsunuz. Form boyutunu runtimede değiştirmek için aşağıdaki koda bakabilirsiniz.

Form1.Constraints.MaxHeight := 200; // max constraints kullanımınızın özel bir amacı yoksa bu iki satırı 
Form1.Constraints.MaxWidth := 400; // iptal edebilirsiniz
Form1.Position := TFormPosition.DesktopCenter;
Form1.width := 200; // genişliği değiştir
Form1.height := 400; // yüksekliği değiştir

[enigma]

Form1.Update;

komutunu denediniz mi ?

[Altıner]

Çözüldü teşekkür ederim.

[RAD Coder]

(25-01-2024, Saat: 10:18)Altıner Adlı Kullanıcıdan Alıntı: Çözüldü teşekkür ederim.

Nasıl çözüldü?

[Altıner]

Form1.width Form1.height değişikliği yaparak çözdüm. Form1.Constraints.MaxHeight kullanımını iptal ettim.