Message Form Tasarım OnClose Eventinde Çağırma

[Nomercy]

Arkadaşlar Ben Şöyle Bir Form Tasarladım;



Bunu Formun OnClose Eventine Eklemeye Çalıştım.Ama Kapat Butonuna Bastığımda AnaForm Kendini Kapatıp bu Formu Gösteriyor Burdan Hayır Butonuna Bastığımda Tekrar AnaForm Açılıyor Bunu AnaForm Kapanmadan Nasıl Yapabilirim?

Formun OnClose Bölümüne Sadece Şu Kodu Yazdım;

Kod: Tümünü seç

FrmProgramKapat.Show;

Formdada ActionList Var Evete ActionListi Bağladım. Hayır Butonundada Close; Kodu Var.

Yardımcı Olurmusunuz?

[ikra]

formun onclose eventi form kapanmadan önce devreye girer ve ne yapmasi gerektigini Action parametresi ile sana sorar.
tam burada bir formu showmodal halinde gösterirsin yada dialog penceresi acar soru sorarsin.
Hayir tusuna basildiginda parametreyi Action := caNone; seklinde isaretlersin. Form kapanmaz.

[Nomercy]

ShowModal Yaparak AnaForm Kapanmaz Hale Geldi Ama Şimdi



Hayır Butonuna Bastığımda Kullanıcı Girişi Yaparken Bilgiler Doğruysa Ekran Klavyesi Kullanmak İstermisiniz? Diye Soru Sordurmuştum.

Yani Şu Form;


O Form Geliyor Şİmdide Anlamadım Gitti.Aynı Olayı Application.MessageBox ta Yaptım O İstediğim Gibi Çalışıyor. Ama Ben Form İle Yapmak İstiyorum.

Application.MessageBox da Kullandığım Kod Şöyle;

Kod: Tümünü seç

var a:integer;
begin
a:=Application.MessageBox('Programı Kapatmak İstediğinizden Emin misiniz?','Programı Kapat',MB_YESNO+MB_ICONQUESTION);
if a=idyes then
begin
AnaForm.Action:=ActnCikis;
AnaForm.Click;
end
else
action:=Canone;
end;
end;

Ben Bu Olayı MessageBox Yerine Form İle Yapmak İstiyorum Beceremedim.ShowModal Yaptığımda Evet Butonuna Bastığımda Çalışıyor Hayır Butonunda Çalışmıyor.Yani Hayır Butonuna Tıkladığımda AnaForm Kapanıyor ve Ekran Klavyesi İsteyip İstemediğini Soran Form Geliyor.

[mrmarman]

OnCloseQuery denemiş miydiniz? Canclose := true false sizin işinizi görür

[Nomercy]

OnCloseQuery denemiş miydiniz? Canclose := true false sizin işinizi görür

Bunu Hangi Forma Yazmam Gerek? Ana Form mu Yoksa Tasarladığım Message Formu?

Düzeltme:

Ben İkisine de Yazdım Olmadı Neyi Hangi Forma Yazacağım Bir Açıklama Yaparmısınız Hocam

[mrmarman]

Bu mesaj ekinde örnek proje var.
Kaynak kodu da aşağıdaki gibi..
Ana Formundaki Kodlar

Kod: Tümünü seç

procedure TForm1.FormCloseQuery(Sender: TObject; var CanClose: Boolean);
begin
  if NOT Assigned(Form2) then
    Application.CreateForm(TForm2, Form2);

  CanClose := Form2.ShowModal = mrYes;
end;

Unit2 yani programdan çıkılsın mı mesajını içeren form

Kod: Tümünü seç

procedure TForm2.BitBtn1Click(Sender: TObject);
begin
  Close;
  ModalResult := mrYes;
end;

procedure TForm2.BitBtn2Click(Sender: TObject);
begin
  Close;
end;

procedure TForm2.FormClose(Sender: TObject; var Action: TCloseAction);
begin
  action := caFree;
end;

procedure TForm2.FormDestroy(Sender: TObject);
begin
  Form2 := Nil;
end;

[Nomercy]

Hocam Teşekkür Ediyorum Size

Yalnız Şöyle Bir Durum Oldu Ben Kullanıcı Girişi Yaptırdığım İçin Kullanıcı Giriş Formunu Gizliyordum Şimdi Bunu Yapınca Kapatıyor ama Tam Kapanmıyor Form Gizlendiği İçin Tamamen Kapanması İçin Ne Yapmam Gerek?