Formun boyutlarını kilitleme

[dtgb]

Merhaba arkadaşlar formun uzunlık ayarlarının(genişlik ve uzunlugunun) hem exe calıstiginda hemde tasarım anında kilitlenmesini nereden yapabiliriz?
iyi calismalar

[mege]

formun onresize eventini inceleyin.
birde borderstyle ın değişik seçenekleri inceleyin. bsdialog filan

[mussimsek]

merhaba,

constraints özelliğini kullanabilirsin. Design'da işe yarıyor mu tam bilemiyorum. Denersin.

Kolay gelsin.

[Query]

Formu

Kod: Tümünü seç

BorderStyle := bsSingle

yap. Formun boyutları kilitlenir. Yine BorderIcons özelliğindende maximize özlliğini false yap.

Tasarım anında ise sanırım yapacak bişi yok.

[dtgb]

BorderStyle := bsSingle
bununla kilitlendikten sonra tekrardan formu tasarıma acmak icin yani kilidi kaldırmak icin bs single dısındaki tum ozellikleri denedim ama olmadı
yani form kilitli kaldı onun icin bir cozumumuz var mı acaba

[hbahadir]

açmak istediğinde ise;

Kod: Tümünü seç

 BorderStyle := bsSizeable;

Kolay gelsin

[dtgb]

ilginctir properties kısmında
BorderStyle a her turlu secenege esledim ama formum hala kilitli
ayrıca height ve width ozelliklerinide degistştiremiyorum nasıl kilitlendigini hala cozemedim

[Abrak]

BorderStyle
bsSizeable Formun normal hali budur.Form boyutlandırılabilir.
bSingle Formun kullanıcı tarafından boyutlandırılması yalnız minimize ve mazimize düğmeleriyle yapılabilir.
bsDialog Form kullanıcı tarafından boyutlandırılamaz. Yalnız formu kapatabilir veya taşıyabilir.
bsNone Hiçbir boyutlama işlemi yapılamaz(kapatılamazda)
bsSizeToolWin Başlık çubuğu daha dardır.

ayrıca kullanıcıya uyarı vermek istiyorsan veya onResize olayını kullanabilirsin. Maksat çeşit olsun

Kod: Tümünü seç

var
h,w:integer;//global değişken====Gereksiz
procedure Tform1.formcreate(sender:Tobject); ///Gereksiz
begin
h:= Height;
w:= Width
end;

Procedure Tform1.formresize(sender:Tobject);
begin
Height:= h; //height := 500;
Width := w; //width := 500;
end;

[dtgb]

tesekkurler kolay gelsin