Hi Leute,
ich habe folgendes Problem...
Ich möchte gerne 2 Anwendungen untereinander kommunizieren lassen.
Dies möchte ich mit Messages realisieren.
HCWM_SET wird mit RegisterWindowMessage erstellt.
Funktioniere tu alles ganz ausgezeichnet nur wird meine
Nachricht um die 30x bearbeitet... 1x würde mir reichen.
Ich bekomme also 30x meine Meldung "SET-OK" aufgepopt...
Ich dachte Handled auf True setzen sagt... "behandelt" !?
Wie macht man das nun richtig?
Code:
...
protected
procedure MyMessage(var Msg:TMsg; var Handled:Boolean);
...
procedure TForm1.FormCreate(Sender: TObject);
begin
Application.OnMessage:=MyMessage;
end;
procedure TForm1.MyMessage(var Msg:TMsg; var Handled:Boolean);
begin
if Msg.message=HCWM_SET then begin
ShowMessage('SET-OK');
Handled:=True;
end;
end;
Vielen Dank für die Hilfe... Schuki...