iyi çalışmalar,
programın girişinde kullandığım şifre formunu şifre doğruysa gizleyip ana formu gösteriiyor.ana formu kapatmak istediğimde case of yapısıyla çıkmak istiyormusunuz sorusunu soruyor evetse kapatıyorum ama bu işlemin yanında şifre formunu kapatamıyorum program çalışmaya devam edyor.ana formun onshow'una fmsifre.close yazdığımda programdan çıkıyor. nasıl bir yol izlemeliyim.
şimdiden teşekkürler.
gizli formu kapatınca programdan çıkıyor
Forum kuralları
Forum kurallarını okuyup, uyunuz!
Forum kurallarını okuyup, uyunuz!
-
- Üye
- Mesajlar: 216
- Kayıt: 14 Şub 2004 03:13
- Konum: Gebze
- İletişim:
- kadirkurtoglu
- Üye
- Mesajlar: 748
- Kayıt: 22 May 2005 01:20
- Konum: Uzakta Görünen Tepeden...
ben şöle yapıyorum.
anaform
sifre form
anaformun anactivate yordamında
sifreform.showmodal diyorum. şifre ekranı geçilirse close diyorum. hepsi bu kadar... yalnız burda anaform her aktif olduğunda şifre formu açılmasın diye anaformun oncreate yordamında bir not düşüyorum. edit1.text := 'Şifre';
şifre tamam ise
edit1.text := 'OK';
if edit1.text = 'Şifre' Then
SifreForm.ShowModal;
anaform
sifre form
anaformun anactivate yordamında
sifreform.showmodal diyorum. şifre ekranı geçilirse close diyorum. hepsi bu kadar... yalnız burda anaform her aktif olduğunda şifre formu açılmasın diye anaformun oncreate yordamında bir not düşüyorum. edit1.text := 'Şifre';
şifre tamam ise
edit1.text := 'OK';
if edit1.text = 'Şifre' Then
SifreForm.ShowModal;
Bir mum, yanındaki mumları tutuşturmakla,
ışığında hiç bir şey kaybetmez.
Mevlana
OS win.10, IDE Delphi 10.3, RDBMS Firebird and MSSQL, BROWSER Chrome
ışığında hiç bir şey kaybetmez.
Mevlana
OS win.10, IDE Delphi 10.3, RDBMS Firebird and MSSQL, BROWSER Chrome
viewtopic.php?t=6736
İhsan Karagülle'nin kitabında anlatılan çözüm var burda. Ben hep bunu kullanıyorum.
Kolay Gelsin...
İhsan Karagülle'nin kitabında anlatılan çözüm var burda. Ben hep bunu kullanıyorum.
Kolay Gelsin...
Bişnev in ney çün hikâyet mîküned
Ez cüdâyîhâ şikâyet mîküned

Ez cüdâyîhâ şikâyet mîküned

-
- Üye
- Mesajlar: 216
- Kayıt: 14 Şub 2004 03:13
- Konum: Gebze
- İletişim: