Das macht man mit einer message-Methode.
Delphi-Quellcode:
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs;
type
TForm1 =
class(TForm)
private
procedure MyMessage(
var Message: TMessage);
message MYMESSAGEID;
end;
var
Form1: TForm1;
implementation
{$R *.dfm}
procedure TForm1.MyMessage(
var Message: TMessage);
begin
Message.Result := 0;
end;
end.
Auf Sendeseite ist es
if SendMessage(Application.Handle, MYMESSAGEID, 0, 0) <> 0 then
Sollte das nicht funktionieren dann Application.MainForm.Handle benutzen.