form başlığındaki kapat butonunun visible durumu

[haydarxxx]

slmlar
form başlığındaki kapat butonunu nasıl gizleriz.BorderIcos özelliklerini kullanmasını biliyorum fakat minimize yada maksimizeler true yada false olarak ayarlanabiliyor ama close ayarlanmıyor.System menüsünü kapattığımızda tüm formbaşlık butonları gidiyor ben sadece minimize kalsın istiyorum.
Eğer böyle bir şansımız yok ise çünkü her yolu denedim ve sadece minimize yi seçtiğimizde close de geliyor.Close butonuna tıklandığında kapatma işlemi yapmasın pasif kalsın.Nasıl yapılır.

[Begin.End]

kapat butonunun pasif olması için

Kod: Tümünü seç

procedure TForm1.FormCloseQuery(Sender: TObject; var CanClose: Boolean);

begin
  
CanClose := False;

end;

[bgoktas]

formun OnCloseQuery olayına --> canclose:=false; formu kapatmaz

[haydarxxx]

arkadaşlar teşekkürler ama şöyle bir sorun var ben butona close; yazıyorum formu kapatmak için bu sefer butonda çalışmıyor

[onclick_lik]

bir degişken tanımla

Kod: Tümünü seç

var
  Form1: TForm1;
  a:integer;

 procedure TForm1.FormCloseQuery(Sender: TObject; var CanClose: Boolean);
 begin
       if a=0 then
 begin
      CanClose:=false;
 end
 else
      CanClose:=true;
 end;

 procedure TForm1.SpeedButton1Click(Sender: TObject);
 begin
      a:=1;
      Form1.Close;
 end;

[haydarxxx]

teşekkürler.