Переслать сообщение с помощью SendMessageDelphi , ОС и Железо , Сообщения WindowsПереслать сообщение с помощью SendMessage
Оформил: DeeCo { This is useful if you want to send a message from your DLL back to the calling application. } const MY_MESSAGE = WM_USER + 4242; type TForm1 = class(TForm) Button1: TButton; procedure Button1Click(Sender: TObject); // Handler that receive the Message procedure MessageReceiver(var msg: TMessage); message MY_MESSAGE; end; var Form1: TForm1; implementation {$R *.DFM} procedure TForm1.Button1Click(Sender: TObject); var txt: string; begin txt := 'Hello World'; SendMessage(Form1.Handle, MY_MESSAGE, 0, DWORD(PChar(txt))); end; // To receive this custom Message that is addressed to form1.handle // you need a message handler. procedure TForm1.MessageReceiver(var msg: TMessage); var txt: PChar; begin txt := PChar(msg.lParam); msg.Result := 1; ShowMessage(txt); end; end. Статья Переслать сообщение с помощью SendMessage раздела ОС и Железо Сообщения Windows может быть полезна для разработчиков на Delphi и FreePascal. Комментарии и вопросыМатериалы статей собраны из открытых источников, владелец сайта не претендует на авторство. Там где авторство установить не удалось, материал подаётся без имени автора. В случае если Вы считаете, что Ваши права нарушены, пожалуйста, свяжитесь с владельцем сайта. :: Главная :: Сообщения Windows ::
|
||||
©KANSoftWare (разработка программного обеспечения, создание программ, создание интерактивных сайтов), 2007 |