Form Maximize sırasında width sabit kalması

[hido]

Selam, Bir formun buton kullanmadan biMaximize özelliği full yaptığımızda height özelliği full, Width ise sabit kalmasını nasıl sağlayabilirim.

[mrmarman]

Constraint özelliğinden limitleyebilirsiniz.

[hido]

Teşekkür ederim hocam, Formu full yaptığımızda ekranın soluna dayanıyor positionda da right seçeneği yok buna ne yapabilirim acaba.

[mrmarman]

Form maximize olurken resize oluyor değil mi ? İşte bu durumda OnResize eventi tetiklenir.

Şöyle bir kontrol koyarsan

Kod: Tümünü seç

procedure TForm1.FormResize(Sender: TObject);
begin
  if Windowstate = wsMaximized then self.left := 400;
end;

Left değerini 400 olarak kendiliğinden belirlenmesini sağlarsın.
Eğer ekran ortalansın istersen de Screen özelliğinden güdümleyip şöyle yapabilirsin.

Kod: Tümünü seç

procedure TForm1.FormResize(Sender: TObject);
begin
  if Windowstate = wsMaximized
    then self.left := (Screen.DesktopWidth - self.width) div 2;
end;