SetFocus Kullanımı

[ozcank]

Arkadaşlar bu şekilde kontrol yaptırıyorum ama çıkışda sorun yaşıyorum başka ne şekilde boşluk kontrolu yaptırabilirim?

Setfocus çıkışa bir türlü izin vermiyor.

procedure TForm4.DBEdit38Exit(Sender: TObject);
begin
if DBEdit38.Text='' then
begin
Showmessage('Lütfen Müşteri Kodunu Giriniz.');
DBEdit38.Setfocus;
end;

end;

[ademcicek]

hocam nesnenin on exit olayında değilde kaydetmeden önce kontrol yaparsan o dertten kurtulursun.

[rsimsek]

Bu kontrolu DataSet in BeforePost una koyup yapabilirsin.

Kod: Tümünü seç

...
if trim(Table1.FieldByName('ALAN_ADI').AsString) = '' then
begin
  Showmessage('Lütfen Müşteri Kodunu Giriniz.'); 
  Abort;
end;

[ikra]

@rsimsek +1

[aveysel]

Bu kontrolu DataSet in BeforePost una koyup yapabilirsin.

Kod: Tümünü seç

...
if trim(Table1.FieldByName('ALAN_ADI').AsString) = '' then
begin
  Showmessage('Lütfen Müşteri Kodunu Giriniz.'); 
  Abort;
end;

Konu Konuyu Açacak ama ..

Ben kontrol komutlarımda Exit; kullanıyorum @rsimsek hocam Abort; kullanmış acaba arasında ne gibi bir teknik fark var?

[rsimsek]

Exit procedure den çıkmak için kullanılırken Abort Tablo / DataSet te yapılmaya çalışılan işlemi (Insert, Post, Delete vs) iptal eder. Örnekte şart sağlanmıyorsa ekrandaki haliyle kayıt yapılmasına izin vermiyoruz