kapatma ekranı

[pasa_yasar]

iyi çalışmalar;

programı kapatırken bir form çağırıp çıkış ,yedek veya kapat buttonları koydum. form ana formun onclose bölümüne yerleştirdim. yedekleme veya çıkış oluyor fakat vazgeç butonuna tıklayıp ana forma dönmek istedeğimde olmuyor. close yaptığımda program kapanıyor. ana formu tekrar show yaptığımda mevcut form kapanıyor sürekli açık kalıyor. ana formun show veya active olayına kapatma formunu kapat yazıyorum fkat kapatmıyor

[aslangeri]

s.a.
onclose a yazarsan kapat formunda vazgeç e basıldının anlayıp ana formun action olayına canoneatarsan kapatma işlemni iptal eder.
kolay gelsin.

[hi_selamlar]

S.A.

ana formu kapatmak yerine ana formu gizle.
eğer kullanıcı vazgeç derse o zaman formunu kapatıp ana formunu tekrar göster yaparak işleme devam ettirebilrsin.

Kod: Tümünü seç

ShowWindow(handle, SW_HIDE veya SW_SWOW); gibi...

Kolay gelsin..

[pasa_yasar]

ana formun açık durması lazım onun için gizleyemem. aslangerinin yazdığı canone action nasıl olacak. yardımcı olursanız sevinirim tşk.

[qamyoncu]

showmodal fonksiyonunu kullanabilirsin..

[pasa_yasar]

onclose de showmodal yapıyorum fakat kapatma formunu kapattığımda tüm program kapanıyor. kapat formunda vazgeç tıkladığımda anaform.show yapsam dahi yine program kapanıyor.

[aslangeri]

şöyle yapabilirsin

Kod: Tümünü seç

//burası ana formun onclose olayı
...
if uyariformu.showmodal=mrcancel then action:=canone;
...

tabiki uyarıformundaki vazgeç düğmesinin kodlarıda şöyle olmalı

Kod: Tümünü seç

//uyarı formundaki vazgeç düğmesinin kodu
....
modalresult:=mrcancel;
//modalresult a değer atadığın zaman form otomatik olarak kapatılır ayrıca close yazmana gerek yok

kolay gelsin.

[pasa_yasar]

Kod: Tümünü seç

[DCC Error] Unit1.pas(4057): E2010 Incompatible types: 'TBasicAction' and 'TCacheAssociativity'

şeklinde bir hata verdi. google baktım çözemedim. acaba sorun nedir nasıl çözülür.

[aslangeri]

hata verdiği satırdaki kodlara bakmak lazım.

[pasa_yasar]

ana formdaki kodlar

Kod: Tümünü seç

if form26.showmodal=mrcancel then
action:=canone;

kapatma formundaki kodlar

Kod: Tümünü seç

modalresult:=mrcancel;

hatayı ana formdaki kodlarda veriyor.

[aslangeri]

ana formdaki kodları hangi olaya yazdın?

[pasa_yasar]

procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
begin
if form26.showmodal=mrcancel then
action:=canone;
end;

[TRSoft]

Ben böyle durumlarda anaformun OnCloseQuery yordamını tercih ediyorum..

Kod: Tümünü seç

     CikForm := TCikForm.Create(nil);
     islem:=-1;
     try
          CikForm.ShowModal;
     finally
          CikForm.Free;
          case Islem of //buradaki islem değişkenine cikformdan basılan butona göre değer atıyorum
               0: CanClose := True; //Programdan çıkış
               1: 
                    begin
                         CanClose := False;
                         //.......işlemler.. Örneğin yedek alma
                    end;
               2:
                    begin
                         CanClose := False;
                         //......işlemler.. 
                    end;
               -1: CanClose := False; //burasıda açılan formun hiç birşeye basılmadan (örneğin alt+f4 ) kapatılma ihtimali için 
          end;
     end;

[pasa_yasar]

kapatma formundan ana forma label kullanarak numara verdirdim. dışarıdan islem değerine nasıl değer atayacam. yaptım çalışmadı. form açılıyor fakat vazgeç,yedekle veya buna benzer hiç bir işlem çalışmıyor. örnek bir uygulama gönderebilirseniz çok iyi olur.

[TRSoft]

AnaFormunda gloabal bir değişken tanımla ve cikisformunda degiskene deger atayıp çıkış formunu kapat

örneğin

Kod: Tümünü seç

procedure TCikForm.VazgecButton1Click(Sender: TObject);
begin
     AnaUnit.Islem := 0;
     Close;
end;

procedure TCikForm.YedekAlButton1Click(Sender: TObject);
begin
     AnaUnit.Islem := 1;
     Close;
end;

Sonra bu değişkeni üstteki mesajımdaki gibi kontrol edip istediğin işlemleri yaptırırsın..