Nur ganz grob angedeutet ohne auf Inhalt einzugehen...
Delphi-Quellcode:
const
WM_MY_MESSAGE = WM_USER + 123;
type
TForm1 = class(TForm)
...
private
procedure OnMyMessage(var Msg: TMessage); message WM_MY_MESSAGE;
...
procedure TForm1.OnMyMessage(var Msg: TMessage);
begin
// was soll hier passieren?
end;
//irgendwo wo's benötigt ist
procedure TForm1.Test(Sender: TObject);
begin
PostMessage(Self.Handle, WM_MY_MESSAGE, 0, 0);
end;