Wenn du nicht selbst definierte Nachrichten abfangen willst oder die standard Nachrichten von Windows umbiegen willst, dann brauchst du gar nichts machen, macht alles die
VCL für dich.
Delphi-Quellcode:
const
MY_MESSAGE = WM_USER + 1974;
type
TForm1 =
class(TForm)
Button1: TButton;
procedure Button1Click(Sender: TObject);
private
{ Private declarations }
procedure WndProc(
var msg: TMessage);
override;
public
{ Public declarations }
end;
var
Form1: TForm1;
implementation
{$R *.dfm}
procedure TForm1.WndProc(
var msg: TMessage);
begin
inherited;
case msg.Msg
of
MY_MESSAGE: Showmessage(PChar(msg.LParam));
end;
end;
procedure TForm1.Button1Click(Sender: TObject);
var
Text:
String;
begin
Text := '
Hello world';
SendMessage(
Handle, MY_MESSAGE, 0, Integer(PChar(Text)));
end;
Mal eben so in einer Minute hingerotzt.