Da ich vor dem gleiche Problem, kapere ich den Thread einmal.
z.Zt. habe ich folgenden Code (auf das wesentliche gekürzt)
Delphi-Quellcode:
Unit1
cFILEDELETION :string= 'Deletion of Files'+#0;
cGETSOURCEFILES :string= 'get source Files'+#0;
cGETTARGETFILES :string= 'get target Files'+#0;
Unit2
...
sendmessage(FReceiver,CM_Start2,0,longint(pchar(CGETSOURCEFILES)));
....
UnitMain
procedure TForm1.CMStart2(var msg:TMessage);
var
mm : pchar;
begin
mm:=pchar(msg.LParamLo);
self.StatusBar1.Panels[3].Text:=mm; {---- hier macht es puff mit einer Zugriffsverletzung}
end;
Ich könnte in msg.LParamLo natürlich auch den Index für ein Array of TextMessages übergeben, aber soviel Aufwand für z.Zt 6 Meldungen?
Was ist da nicht in Ordnung?
(sowohl postmessage als auch sendmessage funktionieren nicht!)
Gruß
K-H