تعریف کلید در کل سیستم

[سیروس مقصودی]

با سلام

من چگونه میتوان یک کلید برای کل سیستم تعریف کنم که در هرجای سیستم وقتی آن کلید زده شد یک فانکشن یا یک فرمی را اجرا کنه . مثلا کلید F3 را تعریف کنم و وقتی داخل هر فرمی زده شد مثلا فرم نمایش اطلاعات مشتریان نمایش داده بشه .

با تشکر

[یوسف زالی]

سلام.
ApplicationEvent برای همین کاره
یک آبجکتش رو بندازید روی فرمی که همیشه وجود داره مثل مین فرم یا دیتاماژول و تو رویدادش کدتون رو بنویسید.

[سیروس مقصودی]

من از این کامپوننت استفاده نکرده ام . چگونه و کدام قسمت میتوانم تعریف کنم که وقتی کلید f3 زده شده مثلا form1 را اجرا کنه

با تشکر

[یوسف زالی]

Additional -> ApplicationEvents
رویداد OnMessage



if Msg.message = WM_KEYDOWN then
if Msg.wParam = VK_F3 then
begin
ShowMessage('F3 !');
Handled := true;
end;