"Application.OnMessage" wird 30x hintereinander ausgelöst???

[Schucki]

Zitat von p0w3r5tr34m3r:

hi,
wie wärs wenn du ne globale var machst die du dann auf true setzt wenn das einmal durchgelaufen ist ?

Delphi-Quellcode:

procedure TForm1.MyMessage(var Msg:TMsg; var Handled:Boolean); 
begin 
  if ( not handled ) and ( Msg.message=HCWM_SET ) then begin 
    ShowMessage('SET-OK');    
    Handled:=True; 
  end
  else
    exit; 
end;

(nicht getestet, müsste aber klappen)

Powerstreamer

Denke das es so nicht gedacht ist...
Also wann will man die Variable auf false setzten?
Wieviel von dennen soll man denn verbauen wenn man mehr als eine Message verarbeiten will.

Es muss doch eine Lösung geben wie man die Behandlung der Nachricht richtig abschließt.
Wofür steht den die (...; var Handled:Boolean) ???

so langsam tut es weh...

@Bernhard

Ja ich bin am verzweifeln... nutze hier im Übrigen WinXP...


MfG Schucki...