Einzelnen Beitrag anzeigen

Schucki

Registriert seit: 17. Jul 2004
158 Beiträge
 
Delphi 2010 Architect
 
#10

Re: "Application.OnMessage" wird 30x hintereinande

  Alt 17. Jul 2004, 23:51
Alles super...

nun mal eine Stufe tiefer angesetzt oder ?
Aber es soll mir recht sein...

Wichtig ist das es geht ohne 30x aufpopen...
Und es geht auch wenn es minimiert ist...

Ich danke Euch für die Infos!

Der Quelltext vom Empfänger...

Code:
procedure TForm1.WndProc(var Msg:TMessage);
var intAction,intAdd:integer;
begin
  if Msg.Msg=HCWM_GET then begin
    SchowMessage('SET-OK!');
  end;
  inherited WndProc(Msg);
end;
...und vom Sender...

Code:
SendMessage(HWND_BROADCAST,HCWM_GET,0,0);
Was noch interessant währe wie setzt man nun an wenn man nun nicht nur Zahlen übertragen möchte...
...sondern auch mal eine Zeichenkette ?

Gruß Schucki...
Frank
  Mit Zitat antworten Zitat