Erklär mir das bitte nochmal genauer...
Hier nochmal die Methoden für's absenden des Threads und für's Empfangen der Nachrichten:
Delphi-Quellcode:
procedure TForm4.StartThread;
var
SQL: TSQLThread;
begin
SQL:=TSQLThread.Create(True);
SQL.FreeOnTerminate:=True;
SQL.postvars:=False;
SQL.FHndl:=Form4.Handle;
SQL.DataCode:=1;
// Identifiziert LParam, damit ich mit case of arbeiten kann
SQL.DataContainer:=Container;
SQL.Resume;
end;
procedure TForm4.CallBack(
var msg: TMessage);
begin
if (msg.WParam = 1)
then
begin
// LParam => Container.DataCode (also mein Identifizierungsmerkmal)
case (msg.LParam)
of
1: Machwasmitdaten1;
2: Machwasmitdaten2;
end;
end;
end;
Achso, und "Machwasmitdaten1" und "Machwasmitdaten2" machen GANZ unterschiedliche Dinge, greifen aber beide auf Container.ExpData[x] zu.