TApplication.Processmessage

[Uwe Raabe]

Man kann keine Ableitung von TApplication verwenden, da die verwendete Application-Instanz bereits im initialization-Abschnitt von Vcl.Controls instanziert wird (in InitControls). Selbst wenn das ginge, könntest du damit immer noch nicht auf die private Methode ProcessMessage zugreifen.

Du kannst aber alternativ HandleMessage aufrufen. Das ist eigentlich noch besser, da es die Hints und Actions aktualisiert und nebenbei auch noch das Synchronize der Threads durchlässt.

[mentaltec]

>> könntest du damit immer noch nicht auf die private Methode zugreifen

Richtig, wo ist mein Kopf?

>> Du kannst aber alternativ HandleMessage aufrufen

Prima, das ist nah genug, da ich eh nicht mit OnIdle und TActions hantiere

Danke

[knochen]

Wie sieht's denn damit aus?

Delphi-Quellcode:

  TMyApplication = class(TApplication)
  public
    function ProcessMessage(var Msg: TMsg): Boolean;
  end;

...

{ TMyApplication }

function TMyApplication.ProcessMessage(var Msg: TMsg): Boolean;
begin
  inherited;
end;


Aufruf: 

procedure TForm1.Button1Click(Sender: TObject);
var
  Msg: TMsg;
begin
  TMyApplication(Application).ProcessMessage(Msg);
end;

[mentaltec]

yo, funzt -- das hat sich der Schöpfer aber auch anders gedacht;
als Verfechter der "Reinen Lehre" würde ich das als Bug klassifizieren

schönes Forum : man bekommt nicht nur die richtige Antwort, sondern auch die die funktioniert

mfg

[jaenicke]

Besser finde ich da einen class helper zu benutzen. Denn der ist dafür gedacht, dass man im Kontext der Klasse handelt, während das mit der abgeleiteten Klasse eher ein Trick ist.

Delphi-Quellcode:

// das in eine Unit in der uses-Klausel oder in die eigene Unit:
TProcessMessageApplication = class helper for TApplication
  procedure DoProcessSingleMessage;
end;

procedure TProcessMessageApplication.DoProcessSingleMessage;
begin
  Self.ProcessMessage;
end;

// und dann einfach benutzen:
Application.ProcessMessage;