XE und Messages Phänomen

[haentschman]

Moin alle...

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

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:

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