Aktif Editbox'a tuş göndermek?

[G.Arkas]

Merhaba arkadaşlar sorunum button1 içindeki veriyi o anda seçilin olan edit hangisi ise ona yazdırmak

Aşağıda ki kod buttonclick te çalışmıyor.

Kod: Tümünü seç

var
i:integer;
begin
for i := 0 to self.componentCount-1 do
if Self.Components[i] is TEdit then
if TEdit(Self.Components[i]).Focused then
TEdit(Self.Components[i]).text:=TEdit(Self.Components[i]).text+'1';

Ama aynı kodda küçük bir değişiklik yaptığımda

Kod: Tümünü seç

var
i:integer;
begin
if key=#13 then -------> form1.keypress;
for i := 0 to self.componentCount-1 do
if Self.Components[i] is TEdit then
if TEdit(Self.Components[i]).Focused then
TEdit(Self.Components[i]).text:=TEdit(Self.Components[i]).text+'1';

formun keypress olayında sorunsuz çalışıyor

Nerede yanlış yapıyorum acaba?

iyi çalışmalar.

[ibrahimcoban]

Buttona tıklandığında button focus olur.

[G.Arkas]

Tamamdır arkadaşlar çözdüm.

Kullandığım bileşen paketinde button can focus olayı var focus alıp almamasını istediğimiz gibi belirleyebiliyoruz.

İyi çalışmalar.