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
