Änderungen in Forms.pas -> Wie compilieren?

[unitedlb]

danke für die antwort.

mein problem ist folgendes:
die in forms.pas implementierte processmessages verarbeitet die messages solange
bis keine mehr da sind (while):

Delphi-Quellcode:

procedure TApplication.ProcessMessages;
var
  Msg: TMsg;
begin
  while ProcessMessage(Msg) do {loop};
end;

ich bräuchte aber eine funktion die immer nur eine verarbeitet. deshalb wollte
das wie folgt änder:

Delphi-Quellcode:

procedure TApplication.myProcessMessages;
var
  Msg: TMsg;
begin
ProcessMessage(Msg);
end;

dafür gibt es bestimmt eine bessere lösung oder?

ein ansatz von mir sah so aus (hat aber leider nicht 100% funktioniert):

Delphi-Quellcode:

if not GetMessage(msg, 0, 0, 0) then halt;
TranslateMessage(Msg);
DispatchMessage(Msg);

danke...