Mesajı sadece bir kere göstermek...?

Delphi'de kod yazma ile ilgili sorularınızı bu foruma yazabilirsiniz.
Cevapla
true_false
Üye
Mesajlar: 401
Kayıt: 22 Tem 2004 02:03
Konum: sıkıntı çekmişlere yakın bi yerden

Mesajı sadece bir kere göstermek...?

Mesaj gönderen true_false »

merhabalar;
program içerisinde kayıt aranıyor arama gridi ve kayıt gridi aynı yani ikiside bir query üzerinden ;
kullanıcı arama yaptırdığı zaman kayıt bulunacak ve arkasından bir mesaj verilecek;
örn;
Şu an arama alanındasınız tüm kayıtlara dönmek için arama ekranından yeni kayıt butonuna basınız. (gibi) mesajın altınada bir chekbox olacak kullanıcı chek box'ı chek ettiği zaman artık ömrü billah bu mesaj verilmicek..
bunu registery den yapmaya çalışıyorum ama if ler arasında kayboldum;
registerda oluşturduğum klasörler ve değişkenler;

Kod: Tümünü seç

procedure TForm1.FormCreate(Sender: TObject);
begin
regf:=TRegistry.Create;
regf.RootKey:=HKEY_LOCAL_MACHINE;
regf.OpenKey('software\tammaliyet\maliyet',true);
regf.WriteString('wstr','TAMMALİYET fatihcan');
regf.WriteBool('wbool',false);
regf.CloseKey;
regf.Free;

end;
wbool değişkeni false chekbox chek edildiğinde wbool true olacak ve formum(mesajım) gözükmücek sorun bu, nasıl bir mantık önerebilirsiniz.

NOT şimdiden vermiş olduğunuz güzel cevaplar için teşekkür ederim
type
Tform1 = class(Tform)
true_false
Üye
Mesajlar: 401
Kayıt: 22 Tem 2004 02:03
Konum: sıkıntı çekmişlere yakın bi yerden

Mesaj gönderen true_false »

sevgili admin zaten senin bu örneğini görünce registryden yapmaya karar verdim.
type
Tform1 = class(Tform)
Kullanıcı avatarı
mege
Admin
Mesajlar: 2360
Kayıt: 05 Şub 2004 04:32
Konum: Beşiktaş
İletişim:

Mesaj gönderen mege »

http://www.swissdelphicenter.ch/torry/s ... hp?id=1879

Resim

örnekteki askNoMore değişkenini istediğin gibi kaydedebilirsin ini file da olur registryde
.-.-.-.-.-.-.-. ^_^
true_false
Üye
Mesajlar: 401
Kayıt: 22 Tem 2004 02:03
Konum: sıkıntı çekmişlere yakın bi yerden

Mesaj gönderen true_false »

uyarlaması biraz zor(benim için ) ama şuan uğraşıyorum,
type
Tform1 = class(Tform)
Cevapla