+- delphi4arab منتديات دلفي للعرب (https://delphi4arab.net/forum)
+-- قسم : منتديات دلفي للعرب التعليمية (https://delphi4arab.net/forum/forumdisplay.php?fid=3)
+--- قسم : سؤال و جواب حول دلفي (https://delphi4arab.net/forum/forumdisplay.php?fid=15)
+--- الموضوع : توضيحات بخصوص التوجيه message (/showthread.php?tid=1444)
توضيحات بخصوص التوجيه message - kachwahed - 27-12-2009
[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;[/COLOR]
توضيحات بخصوص التوجيه message - TF6M - 27-12-2009
بارك الله فيك على التوضيح أخي kachwahed
بالتوفيق ,,