1 kere oyunda demesi..

[Shou]

Merhabalar dll kullanıyorum şöyle birşey yaptım ama nedense oyundaysa durmadan showmessage çıkıyor bunu 1 kere demesini nasıl yapabilirim buyrun bakın :

Kod: Tümünü seç

if (oyunda = 1) then begin if not (label6.caption='(1)') then begin
    showmessage('Oyunda.'); label6.Caption:='(1)'; end; end;

Kod: Tümünü seç

label6 ismi : oyunda degil.

label 6 ismi :

Kod: Tümünü seç

(1)

ise oyunda desin diyorum tamam oyundayken "(1)" oluyor ama her seferınde oyunda oyunda oyunda showmessage çıkıyor mantık şu label6.caption ismi "(1)" degil ise oyunda degil demek anlamına gelıyor. ama oyundayken onu 1 yapıyorum gene showmessage çıkıyor nasıl yapmam lazım??

[cagatay77]

Merhabalar dll kullanıyorum şöyle birşey yaptım ama nedense oyundaysa durmadan showmessage çıkıyor bunu 1 kere demesini nasıl yapabilirim buyrun bakın :

Kod: Tümünü seç

if (oyunda = 1) then begin if not (label6.caption='(1)') then begin
    showmessage('Oyunda.'); label6.Caption:='(1)'; end; end;

Kod: Tümünü seç

label6 ismi : oyunda degil.

label 6 ismi :

Kod: Tümünü seç

(1)

ise oyunda desin diyorum tamam oyundayken "(1)" oluyor ama her seferınde oyunda oyunda oyunda showmessage çıkıyor mantık şu label6.caption ismi "(1)" degil ise oyunda degil demek anlamına gelıyor. ama oyundayken onu 1 yapıyorum gene showmessage çıkıyor nasıl yapmam lazım??

Kod: Tümünü seç

if (oyunda = 1) and (not Kontrol) then 
begin 
  if not (label6.caption='(1)') then 
  begin
    Kontrol := True;
    showmessage('Oyunda.'); 
    label6.Caption:='(1)'; 
  end; 
end;

[Shou]

teşekkürler hocam cevabınız için yalovada oturuyorsunuz sanırım bende yalova mesaj attım bakarsanız sevinirim..