دخول

**kachwahed**

[COLOR="black"]السلام عليكم ورحمة الله
سؤال من صديق عزيز علينا جميعا

إقتباس :فقط ممكن توضيح او مثال بسيط عن التوجيه 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;

قائمة أحداث الويندوز متوفرة في الوحدة Messages
[/COLOR]

**TF6M** · 27-12-2009, 11:32 AM

بارك الله فيك على التوضيح أخي kachwahed

بالتوفيق ,,

دخول
اسم المستخدم/البريد الالكتروني :
كلمة المرور :	فقدت كلمة المرور ؟
	تذكرني بالمرة القادمة