القيام ب Enter عن طريق الكود؟

في حدث keypress يمكنك تفعيل زر enter مثلا :-

procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
if key=chr(13) then Edit2.SetFocus;
end;

ليس هذا ما قصدته و إنما كيف أعطي أمر ENTER من الكود دون النقر على زر

أخي العزيز

السلام عليكم ورحمة الله وبركاته

كنت أعاني من نفس المشكلة منذ فترة قصيرة

ولكن بمساعدة الأخوة في هذا المنتدى تمكنت من حلها

إليك هذا الإجراء الذي يمكنك من ضغط أي زر في لوحة المفاتيح دون الضغط عليه

ولكن يجب فقط معرفة شيفرة المسح لهذا الزر

وهذه شيفرة مفتاح enter

keybd_event(VK_RETURN,28,0,0);