[b]DBedit 'a girilen bilgiler[/b]

[AliGüzelbey]

Merhaba arkadaşlar aranızda yeniyim aşağıdaki gibi bir sorunum var yardımcı olursanız sevinirim

DBedit'lara yazdığım sayısal değerleri matematiksel işlemlerde kullanıyorum ve DBedit'in onKeyPress özelliğine şu şekilde bir kod yazdım

procedure Tpublicdesc.kgKeyPress(Sender: TObject; var Key: Char);
begin

[b]if key=#13 then begin[/b]

dm.teslimat.Edit;

dm.teslimatNetfiyat.AsFloat:=dm.teslimatToplammaliyet.AsFloat+strtofloat
(vadefarki.Text);

dm.teslimatToplam.AsFloat:=(((dm.teslimatNetfiyat.AsFloat/100)*strtofloat(kdv.Text))+dm.teslimatNetfiyat.AsFloat)*StrToFloat(kg.Text);

netfiyat.SetFocus;

end;end;

bu kod dbedit'a sayısal değer girdikten sonra eğer enter tuşuna basarsam çalışıyor ama ben bu kodun yanlız enter tuşuna basınca değilde dbedit'an başka bir dbedit'a geçince veya mouse ile başka bir yere tıklayınca da çalışmasını istiyorum.

[m_ekici]

işlem yaptırdığın satırları DBedit'in on exit evetine yaz.
keypes den aşağıdaki şekilde o procedure gönder.

Kod: Tümünü seç

procedure Tpublicdesc.kgKeyPress(Sender: TObject; var Key: Char); 
begin 
[b]if key=#13 then Tpublicdesc.onexit(.......    
end;

procedure Tpublicdesc.onexit(Sender......
begin
dm.teslimat.Edit; 
dm.teslimatNetfiyat.AsFloat:=dm.teslimatToplammaliyet.AsFloat+strtofloat 
(vadefarki.Text); 
dm.teslimatToplam.AsFloat:=(((dm.teslimatNetfiyat.AsFloat/100)*strtofloat(kdv.Text))+dm.teslimatNetfiyat.AsFloat)*StrToFloat(kg.Text); 
netfiyat.SetFocus; 
end;

* DBEdit'in neden text özelliğini kullanyorsun. Alan sayısal ise ALAN.Value ile direk kullanabilirsin.

[enalbant]

dbeditin OnExit olayini kullanabilirsiniz. Kolay Gelsin.

[AliGüzelbey]

sağolun arkadaşlar işe yarıyor tüm kodları buraya aktarıp keypress event taki kodları sildim...

dbedit'tın text özelliğini kullanmamın sebebi girdiğim bilgiyi henüz updaterecord ile güncellemediğim için bilgiyi dbedit.text diye alıyorum.