Moin alle...

letztens hat mich XE ein wenig überlistet... (oder ich mich ?)
Gegebenheiten, Unit im Mainthread:

zusammenfalten · markieren

Delphi-Quellcode:

.
.
private
  procedure BlaBla(var Msg: TMessage); Message WM_BLA;
.
.
procedure BlaBla(var Msg: TMessage);
begin
. // Aufgaben abarbeiten
.
end;

Message abschicken aus Thread, der im Mainthread erzeugt wird:

markieren

Delphi-Quellcode:

const
  WM_BLA = WM_USER + 1;
.
.
  PostMessage(HandleFenster, WM_BLA, wParam(Self), 0);

Phänomen:
- als erstes flogen mir Zugriffsverletzungen um die Ohren... hä, dachte ich
- dann kam ich drauf, daß die Procedure BlaBla bei jeder Message ausgeführt wird. (nicht nur WM_BLA)
- ich mußte in der Procedure die Message noch einmal unterscheiden..
  if Msg.Msg = WM_BLA then Könnte das bitte jemand erklären. Kann das jemand reproduzieren ?

Ein schönes Wochenende

Zitat von haentschman:

Kann das jemand reproduzieren ?

Ich jedenfalls nicht.

kann ich zum Glück überhaupt nicht reproduzieren....
entweder ist der Aufruf
 PostMessage(HandleFenster, WM_BLA, wParam(Self), 0); an einer ungünstigen Stelle verbaut (OnPaint,OnMouseMove etc.) oder eine Deiner Komponenten feuert in einem einem ähnlichen Ereignis.

Danke für Eure Tipps:

kurze Rückmeldung:
- in einer Testanwendung bei der das Handle der Form benutzt wird funktioniert es.
- wenn ich aber ein Handle mit HandleFenster := AllocateHWnd(BlaBla); erzeuge ist das Verhalten zu reproduzieren. Ich weise ja die BlaBla Methode zu. Die Frage ist, warum dann die Message Direktive nicht greift und alle Messages in BlaBla ankommen.

Zitat von haentschman:

- wenn ich aber ein Handle mit HandleFenster := AllocateHWnd(BlaBla); erzeuge ist das Verhalten zu reproduzieren. Ich weise ja die BlaBla Methode zu. Die Frage ist, warum dann die Message Direktive nicht greift und alle Messages in BlaBla ankommen.

Weil du mit dem Zuweisen der Methode je gerade sagst: Das ist meine Message-Methode! Die soll alle Messages bekommen und kümmert sich dann um die Verteilung.

In diesem Fall setzt du den Message-Mechanismus von Delphi ausser Kraft, der sich übrigens in TObject.Dispatch befindet.

Danke für die Bestätigung...

so etwas habe ich mir auch grad gedacht. Also in so einem Falle ist die Message Unterscheidung nur innerhalb der Procedure möglich.

wieder was gelernt...

Zitat von haentschman:

Also in so einem Falle ist die Message Unterscheidung nur innerhalb der Procedure möglich.

Das ist nicht zwingend der Fall. TControl.WndProc macht es eigentlich vor. Ein gut platzierter Aufruf von Dispatch ermöglicht auch dabei die Verwendung der komfortablen Message-Methoden. Du musst dann nur eine entsprechende WndProc bereitstellen, die diesen Aufruf vornimmt.