SetFocus döngüsü !

[ozcank]

Arkadaşlar SetFocus döngüsüne takılıyorum başka yolum var mı? burdan çıkmak için boş geçmesini istemiyorum.

Kod: Tümünü seç

procedure TForm22.DBEdit29Exit(Sender: TObject);
begin
If DBEdit29.Text='' Then
Begin
ShowMessage('Bu alanı lütfen boş geçmeyiniz !!! ');
DBEdit29.SetFocus;
end
else

end;

[hdayi]

???
Yanlış bişey yok gibi, Yapmak istediğin dbedit29 boş ise controlü tekrar dbedit29'a geçiriyor.

[ozcank]

takılıyor ama mesela düzelt butonuna basacam bastırmıyor.

[rsimsek]

Doldurulması gerekli alanlar için kayıt esnasında BeforePost da alanları kontrol edebilir boş alanlar varsa uyarı mesajını verdirip Abort; ile kayıt işlemini iptal edebilirsin

[ozcank]

yazmış olduğum kodu oraya yazabilirmiyim?

[rsimsek]

Aşağıdakine benzer şekilde düzenlersen kullanabilirsin..

Kod: Tümünü seç

procedure TDM.Tablo1BeforePost(DataSet: TDataSet);
begin
  if trim(Tablo1.FieldByName('ADI').AsString) = '' then
  begin
    ShowMessage('Bu alanı lütfen boş geçmeyiniz !!! ');
    Abort;
    Form2.DBEdit29.SetFocus; // DBEdit29 hangi formda ise önüne onun adı yazılmalı!
  end;
end; 

[ozcank]

Field 'Sıra No' must have a value mesajı veriyor bunu türkçe yapabilirmiyim?

Kod: Tümünü seç

  if trim(Table1.FieldByName('ROSIRANO').AsString)='' then
  begin
    ShowMessage('Bu alanı lütfen boş geçmeyiniz !!! ');
 //   Abort;
    Form22.DBEdit29.SetFocus; // DBEdit29 hangi formda ise önüne onun adı yazılmalı!
  end;
end;

abort çalışmadı.

[lazio]

Table1 e çift tıkla FieldsEditör den o alanın required özelliğini false yap.

[ozcank]

dediğiniz şekilde yaptım ama bu sefer döngüye takıldım yine çıkış yaptırmıyor.

[aslangeri]

s.a.
kodların ilk yazdığınız mesajdaki yerinde olduğunu farzedelim..
tablonun (veya datasource nin) autoedit özelliği vardı o true mu?
"Düzelt" butonuna niye basmak istiyorsunuz?
"Düzelt" butonuna basmak için önceden kaydet düğmesine basması lazım.
"Kaydet" düğmesine bastığı zaman bu kodun çalışıp kaydet düğmesine basmanı engellemesi lazım("düzelt" düğmesine basmanı engellediği gibi)
Kurguladığın yapıyı tam olarak bilemiyorum ama bi gözden geçirsen diyorum...

Kolay gelsin.

[ozcank]

autoedit true olarak ayarlı fakat Sıra No boş ise eğer geçmemesi gerekiyor
bunu ayarlamaya çalışıyorum ama orda takılıyor daha doğrusu SETFOCUS da

[sadettinpolat]

bu tip kontrolleri onEnter, onExit, AfterInsert, AfterEdit gibi olaylarda yapmayı sevmem. Kaydet butonunun OnClick olayı bu iş için en uygun yer bana göre.

Kod: Tümünü seç

ButtonKaydet.Click
begin

if editx.text ='' then
begin
  bu alan boş geçilemez.
  setFocus
  Exit
end  

VerileriKaydet
end;