Application.MessageBox(...) mesajı tekrarlıyor!

[muratn]

Merhaba arkadaşlar;
Nerede eksiğim var anlayamadım, Bana yardımcı olur musunuz? Kod aşağıda. İstediğimi yaptırabiliyorum ancak ekrana çıkan "Uyarı" mesajımdaki "Tamam" butonuna 2 kere basmak zorunda kalıyorum.

Kod: Tümünü seç

procedure TForm_GELENHAMMADDE.DateTimePicker1Change(Sender: TObject);
begin
  GELEN_TARIH := DateToStr(DateTimePicker1.Date);
  IBDataSet_GELENHAMMADDE.Locate('GELEN_TARIH', GELEN_TARIH,[]);
    if GELEN_TARIH = IBDataSet_GELENHAMMADDEGELEN_TARIH.Text then
    begin
      DateTimePicker1.Color := clLime;
    end
    else
    begin
      DateTimePicker1.Color := clWhite;
      Application.MessageBox('Seçtiğiniz tarihte kayıt bulunamadı.','Uyarı', MB_OK or MB_ICONINFORMATION);
    end;
end;

[akdatilla]

uyarı mesajından sonra Abort; komutunu kullanın

[muratn]

uyarı mesajından sonra Abort; komutunu kullanın

İlgilendiğiniz için teşekkürler, ancak olmadı. Yine 2 defa "Tamam" butonuna basıyorum.

[Code_Monster]

bence kodun 2 kere çalışıyor şöyleki bu kodu sen datetimepicker nin change olayına yazmışsın şöyle oluyor tahminim
1 kod çalısıyor if e giriyor kontrol ediliyor
2 kontrolde eşitlik yoksa else kısmındaki kod çalısıyor
3 o kısındada dikkatimi çeken mesaj veriliyor hemde datetimepickerin rengi deişiyor yani change oluyor
4 yani kodun tamamlandıktan sonra tekrar çalışıyor fakat bu sefer tekrar aynı renge boyadığın için change olmuyor
ve böylece 2 kere tıklıyorsun tahminim böyle :) bu kodu bir butonun clickine yaz mesela ozaman sorun olmaz heralde

[aslangeri]

s.a.
ibdatasetin scroll olayında bir işlem yapıyormusunuz?

[muratn]

s.a.
ibdatasetin scroll olayında bir işlem yapıyormusunuz?

a.s.

Hayır işlem yaptırmıyorum.

[Code_Monster]

dediğim gibi change olayı ikikere işliyor ama bunun senin kodunla bir ilgisi yok düzeltmek için deişik bişey denedim bi bak istersen uyarla bunu


procedure TForm1.DateTimePicker1Change(Sender: TObject);
//////////
{$J+}
const
a:boolean=true;
//////////
begin
if 2 = 3 then
begin
DateTimePicker1.Color := clLime;
end
else
begin
////////////////////////////
if a then begin
DateTimePicker1.Color := clWhite;
Application.MessageBox('Seçtiğiniz tarihte kayıt bulunamadı.','Uyarı', MB_OK or MB_ICONINFORMATION);
a:=false;
end
else a:=true;
////////////////////////////

end;
end;

[aslangeri]

s.a.
onchange yerine onclick eventinı da kullanabilirsin. ama onda eliyle tarihi değiştirirse yakalamıyor.
kodda gelen tarihi kontrol ettirebilirsin. eğer tarih aynı ise işlem yaptırmazsın.
şöle bişi yani.

Kod: Tümünü seç

var
temp:string;
Begin
  temp:=DateToStr(DateTimePicker1.Date);
if temp=GELEN_TARIH Then exit;
 GELEN_TARIH := temp;
  IBDataSet_GELENHAMMADDE.Locate('GELEN_TARIH', GELEN_TARIH,[]);
  ...........
end;

[muratn]

Hepinize çok teşekkür ederim arkadaşlar, bir arkadaşımın yardımıyla hallettim. Dediğiniz gibi kodumda bir sorun yok. Emindim doğru olduğuna ama istediğim sonucu alamayınca başıma ağrılar girdi, başka bir açıdan düşünemedim. Kodu hiç değiştirmeden "DateTimePicker1" 'in "OnCloseUp" olayına yazdım. Tam istediğim gibi oldu. Tekrar teşekkürler.