kapatma ekranı
Forum kuralları
Forum kurallarını okuyup, uyunuz!
Forum kurallarını okuyup, uyunuz!
- pasa_yasar
- Üye
- Mesajlar: 570
- Kayıt: 07 Haz 2004 12:35
kapatma ekranı
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
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
Re: kapatma ekranı
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.
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.
Duyduğun Şeylerin Söylediklerim Olduğuna Eminim Ama
Anladığın Şeylerin Anlatmak İstediklerim Olduğuna Emin Değilim
Anladığın Şeylerin Anlatmak İstediklerim Olduğuna Emin Değilim
- hi_selamlar
- Üye
- Mesajlar: 523
- Kayıt: 05 May 2005 03:24
- Konum: DelphiTürkiye.COM
Re: kapatma ekranı
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.
Kolay gelsin..
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...
Herkes cahildir, bazi konularda.
- pasa_yasar
- Üye
- Mesajlar: 570
- Kayıt: 07 Haz 2004 12:35
Re: kapatma ekranı
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.
Re: kapatma ekranı
showmodal fonksiyonunu kullanabilirsin..
Batuhan TAŞDÖVEN
'Yükseldikçe küçülen bir uçurtma..'
'Yükseldikçe küçülen bir uçurtma..'
- pasa_yasar
- Üye
- Mesajlar: 570
- Kayıt: 07 Haz 2004 12:35
Re: kapatma ekranı
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.
Re: kapatma ekranı
şöyle yapabilirsin
tabiki uyarıformundaki vazgeç düğmesinin kodlarıda şöyle olmalı
kolay gelsin.
Kod: Tümünü seç
//burası ana formun onclose olayı
...
if uyariformu.showmodal=mrcancel then action:=canone;
...
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
Duyduğun Şeylerin Söylediklerim Olduğuna Eminim Ama
Anladığın Şeylerin Anlatmak İstediklerim Olduğuna Emin Değilim
Anladığın Şeylerin Anlatmak İstediklerim Olduğuna Emin Değilim
- pasa_yasar
- Üye
- Mesajlar: 570
- Kayıt: 07 Haz 2004 12:35
Re: kapatma ekranı
Kod: Tümünü seç
[DCC Error] Unit1.pas(4057): E2010 Incompatible types: 'TBasicAction' and 'TCacheAssociativity'
Re: kapatma ekranı
hata verdiği satırdaki kodlara bakmak lazım.
Duyduğun Şeylerin Söylediklerim Olduğuna Eminim Ama
Anladığın Şeylerin Anlatmak İstediklerim Olduğuna Emin Değilim
Anladığın Şeylerin Anlatmak İstediklerim Olduğuna Emin Değilim
- pasa_yasar
- Üye
- Mesajlar: 570
- Kayıt: 07 Haz 2004 12:35
Re: kapatma ekranı
ana formdaki kodlar
kapatma formundaki kodlar
hatayı ana formdaki kodlarda veriyor.
Kod: Tümünü seç
if form26.showmodal=mrcancel then
action:=canone;
Kod: Tümünü seç
modalresult:=mrcancel;
hatayı ana formdaki kodlarda veriyor.
Re: kapatma ekranı
ana formdaki kodları hangi olaya yazdın?
Duyduğun Şeylerin Söylediklerim Olduğuna Eminim Ama
Anladığın Şeylerin Anlatmak İstediklerim Olduğuna Emin Değilim
Anladığın Şeylerin Anlatmak İstediklerim Olduğuna Emin Değilim
- pasa_yasar
- Üye
- Mesajlar: 570
- Kayıt: 07 Haz 2004 12:35
Re: kapatma ekranı
procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
begin
if form26.showmodal=mrcancel then
action:=canone;
end;
begin
if form26.showmodal=mrcancel then
action:=canone;
end;
Re: kapatma ekranı
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;
İlimle geçen bir gece,
ibadetle geçen bin geceden hayırlıdır. HZ. MUHAMMED (S.A.)
ibadetle geçen bin geceden hayırlıdır. HZ. MUHAMMED (S.A.)
- pasa_yasar
- Üye
- Mesajlar: 570
- Kayıt: 07 Haz 2004 12:35
Re: kapatma ekranı
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.
Re: kapatma ekranı
AnaFormunda gloabal bir değişken tanımla ve cikisformunda degiskene deger atayıp çıkış formunu kapat
örneğin
Sonra bu değişkeni üstteki mesajımdaki gibi kontrol edip istediğin işlemleri yaptırırsın..
ö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;
İlimle geçen bir gece,
ibadetle geçen bin geceden hayırlıdır. HZ. MUHAMMED (S.A.)
ibadetle geçen bin geceden hayırlıdır. HZ. MUHAMMED (S.A.)