formdaki aktif component editse içindeki değeri almak

[BLuE_ALoNE]

merhaba arkadaşlar benim yapmak istediğim kullanıcı klavyeden F5 e basınca aktif edit componentinin içindeki yazılı olan değeri bir sorgulama için kullanmak istiyorum. formda birden fazla edit bileşeni olabilir.

şimdiden çok teşekkür ederim.

[Glen]

Form1.KeyPreview := True;

Form1.OnKeyPress / veya KeyDown (iksiinden biri)

if key = .... then
begin
for i := 0 to self.componentCount-1 do
if Self.Components is TEdit then
if TEdit(Self.Components).Focused then
ShowMessage(TEdit(Self.Components).text);
end;

F5 VK_F5 miydi direk F5 miydi hatirlayamiyorum suan. Kolay gelsin.

[BLuE_ALoNE]

dostum eline sağlık çok teşekkür ederim. beni bir kod çöplüğünden kurtardın. artık ufak bir procedure ile bir çok yerde yazacağım kodu tek yerde yazmama yardımcı oldun. allaha senden razı olsun.

[Glen]

Ek olarak butun formlarda kullanacaksaniz, veya en azindan 1 den fazla formda kullanacaksaniz bir procedure yazip

Kullanacak tum formlarin keypreview ozelligini true yapip,

function DegeriniBul(xForm : TForm) : string
daha da kolay olur. tabi her formun onKeyDown/Press ozelliginde ilgili function' degeriniBul'a gondermeniz gerekiyor.

Ilk verdigim koddaki SELF kismini xForm ile degistirirseniz ve de kullanacak tum formlarin keypreview ozlligine

DegeriniBul(Self); seklinde gonderirsniz kod calisir. kolay gelsin tekrardan

[Glen]

2. mesajimi yazarken yanitlamissiniz ne demek kolay gelsin yardimci olabildigime sevindim

Iyi calismalar tekrardan