اجرای رویداد OnKeyPress درون فرم دیگر به صورت دستی

[Delphi KDE]

سلام دوستان

همان طور که از عنوان تاپیک معلومه من در یک کادر که حدود 80 عدد Edit دارم و با استفاده از خصوصیت Edit.Tag وقرار دادن یک مقدار , Edit مورد نظر را مشخص میکنم
سپس زمانی که در روی فورم دیگری کلیدی زده شد ادیت مورد نظر را پیدا میکنم و نمیدونم که چطور رویداد OnKeyPress اون ادیت خاص رو اجرا کنم

for i := 0 to FrmFactorSell.ComponentCount - 1 do
begin
if FrmFactorSell.Components[i] is TEdit then
if TEdit(FrmFactorSell.Components[I]).Tag = 2 then
TEdit(FrmFactorSell.Components[i]).// Code for this location

[vcldeveloper]

یک پیغام WM_CHAR به هر یک از Edit ها بفرست (LParam , WParam = 0) :


for i := 0 to FrmFactorSell.ComponentCount - 1 do
begin
if FrmFactorSell.Components[i] is TEdit then
if TEdit(FrmFactorSell.Components[I]).Tag = 2 then
SendMessage(TEdit(FrmFactorSell.Components[i]).Han dle,
WM_CHAR,
0,0);
end; //for