TApplication.Processmessage

[mentaltec]

Hallo,

kann mir jemand sagen, wie ich das private TApplication.Processmessage aufrufen kann?

Hintergrund: ich will in einer etwas zeitkritischen Anwendung auf ein Ereignis warten und während dessen nicht die MessageQueue blockieren - aber halt sofort nach Eintritt des Ereignisses mit meiner Procedure fortfahren und nicht, wie bei .ProcessMessages(), nachdem alle Messages aus der Queue abgearbeitet wurden

mir schwebt so etwas wie TMyApplication = class(TApplication) .. vor, aber geht sowas?

mfg

[Der schöne Günther]

Ich verstehe nicht ganz.

Wenn du verhindern möchtest, dass Windows deinen Prozess als 'reagiert nicht' einstuft, musst du die Message Queue nicht abarbeiten. Du musst sie nur ab und zu anfassen, ich glaube der WinAPI-Aufruf

Delphi-Quellcode:

PeekMessage(..)

reicht schon.

[mentaltec]

Zitat:

Zitat von Der schöne Günther (Beitrag 1216319)

Wenn du verhindern möchtest, dass Windows deinen Prozess als 'reagiert nicht' einstuft, musst du die Message Queue nicht abarbeiten.reicht schon.

nö, was der Taskmanager von meinem Prozess hält ist mir rel. schnuppe
mir geht es darum, dass der auf das Ereigniss wartende Thread (eigentlich besser -> die wartende Aufgabe, da zZt. beides im VCL-Mainthread läuft) möglicherweise für mich eine höhere Priorität hat als die in der Queue wartenden Messages; also möchte ich, dass meine Aufgabe sofort nach Eintreffen des Ereignisses abgeschlossen wird und nicht erst, nachdem alle anderen Messages aus der Queue abgearbeitet wurden -- das ist währe genau das, was bei ProcessMessages passiert

wenn man sich der Sache mal von der theoretschen Seite nähert kann man sagen: wenn es sinvoll ist ProcessMessages zu benutzen, könnte es auch sinnvoll sein ProcessMessage zu benutzen
nur ist das Eine public und das Andere private
und so kahm ich auf die Frage ob man ein abgeleitetes TApplication als Basis für eine Anwendung nutzen kann

natürlich kann man das Problem auch mit einem separaten Thread lösen - aber das erhöht den Sync-Aufwand erheblich; und wie sich das dann erforderlichen Synchronize auf die Abarbeitungszeit auswirkt, weiss ich auch nicht

mfg

[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;