button ile onclose olayını tetikleme

[akuyumcu63]

merhaba;

formun onclose olayına biraz komut yazmışım. forma eklediğim bir button ile formun onclose olayında bulunan komutları tetiklemek istiyorum.

Kod: Tümünü seç

form1.onclose( sender)
form1.formclose( sender ) 

gibi komutlar denedim. bir sonuç üretemedim. yardımcı olan arkadaşlara şimdiden teşekkür ederim.

[PROGRAMADOR]

Form1.Close; ile çağırarısnız ancak formunuz kapanır.

Bunun yerine bir procedure kodları yazıp hem form.onclose'dan çağırabilirsiniz hem de button.onclick'ten.

[mrmarman]

Merhaba.

- Sadece formu close etmeniz yeterli. Bu kodlar otomatik olarak çalışacaktır.
- Yeter ki Application.Terminate veya HALT komutlarını kullanmayın. Sadece CLOSE; veya Form1.Close; deyin yeterli.


Ama diyorsanız ki formu kapatmak istemiyorum sadece içindeki kodlar çalışsın ; O zaman FormClose olayındaki kodları bağımsız bir Procedure altına alın, taşıyın. OnClose olayında bu taşıdığınız procedure hangisi ise onun adını yazıp çalıştırın. Dilediğiniz başka yerlerde de sadece bu yeni Procedure olanı çalıştırın.

[akuyumcu63]

merhaba;

formda kapatma işlemi için hem KAPAT butonu kullanılıyor hem de formun kendi kapatma butonu kullanılmaktadır.
çalışacak komutları bir prosedüre aldım.

proceduru KAPAT butonundan çağırıyorum herhangi bir sorun yaşamıyorum. istediğim işlemler uygulanıyor. problem yok

formun kendi kapatma butonuyla kapatma yaptığım zaman;
onclose olayında proceduru çağırmazsam procedurdaki komutlar çalışmıyor. onclose olayında proceduru çağırdığım zaman
form kapanmaması gereken durumda da kapanıyor.

formun kapatma butonunu iptal etmek istemiyorum. bulunması kullanıcı açısından iyi olur diye düşünüyorum.

[xozcanx]

Merhaba;
Yapmak istediğiniz Form çıkışında kullanıcıya soru sordurmak mıdır?
Yanlışlıkla kapatmasını önlemek amacıyla vs.

Eğer benim anladığım şekildeyse yapmanız gereken Formun OnClose değilde OnCloseQuery olmalı.

Kod: Tümünü seç

procedure TForm1.FormCloseQuery(Sender: TObject; var CanClose: Boolean);
Begin
  CanClose := MessageDlg('Çıkış Yapmak İstediğinze Emin misiniz?'
            , mtCustom, [mbYes, mbNo], 0) = mrYES;
end;

Bu şekilde Hayır derse Formunuz kapanmaz.
Kaynak

[mrmarman]

formda kapatma işlemi için hem KAPAT butonu kullanılıyor hem de formun kendi kapatma butonu kullanılmaktadır.

@xozcanx doğru yolu söylemiş.
- Bir adım daha ileri götürürsek şöyle bir çalışma yapacağınız işlemi örnekler sanırım.
* Eğer parametre olarak TRUE verir veya hiç vermezseniz TRUE kabul edilir.
* Eğer parametre olarak FALSE verirseniz o zaman içerik çalışır ama kapanmaz.

Kod: Tümünü seç

function CalisacakFonksiyon( boolKapansin: Boolean = True ):boolean;
begin
  if boolKapansin
    then ShowMessage('Birazdan kapanıyoruz...')
    else ShowMessage('Sadece çalıştık...');
  Result := boolKapansin;
end;

procedure TForm1.BitBtn1Click(Sender: TObject);
begin
  CalisacakFonksiyon(False);
end;

procedure TForm1.FormCloseQuery(Sender: TObject; var CanClose: Boolean);
begin
  CanClose := CalisacakFonksiyon;
end;

[akuyumcu63]

merhaba;

değerli arkadaşlar sorun halloldu. Güzel bir beyin fırtınası oldu. Herkese çok teşekkür ederim.