27-12-2009, 12:46 AM
[COLOR="black"]السلام عليكم ورحمة الله
سؤال من صديق عزيز علينا جميعا
نضيف التوجيه Message لالتقاط أحداث الويندوز...
يمكن فعل ذلك لأي إجراء (ليس بالضرورة باستخدام نفس البراميترات)
مثال صغير لاستقبال حدث WM_CHAR يعني الضغط على أي حرف:
قائمة أحداث الويندوز متوفرة في الوحدة Messages
[/COLOR]
سؤال من صديق عزيز علينا جميعا
إقتباس :فقط ممكن توضيح او مثال بسيط عن التوجيه Message متى نضيفه و لمذا؟؟ ... بارك الله فيك .
نضيف التوجيه Message لالتقاط أحداث الويندوز...
يمكن فعل ذلك لأي إجراء (ليس بالضرورة باستخدام نفس البراميترات)
مثال صغير لاستقبال حدث WM_CHAR يعني الضغط على أي حرف:
كود :
interface
uses Windows, Messages, Forms, Dialogs;
type
TForm1 = class(TForm)
procedure KeyPressed(var i: Integer); [color=Red]message [/color]WM_CHAR;
end;
var
Form1: TForm1;
implementation
{$R *.dfm}
procedure TForm1.KeyPressed(var i: Integer);
begin
ShowMessage('Now');
end;[/COLOR]