"Anfassen" ist wohl das Stichwort. Da ich nicht weiß was der Mainthread so treibt, wenn ich es ihm nicht explizit sage, geht wohl kein Weg an dem "Zwischenpuffer" vorbei.
(Grütze ist schön und beschreibt das Verhalten recht genau!)
Edith:
ich hab's jetzt geändert:
Delphi-Quellcode:
templl:=tstringlist.Create;
self.DataReaderThread:=TDBWriteData2TextThread.Create(ADODM.ADOQuery1,templl,self.Handle,true);
procedure TForm1.CMEndRead(var msg:TMessage);
begin
Statusbar1.Panels[0].Text:=format('_## %d %d ',[msg.WParam,msg.LParam]);
self.M_Text.Lines.BeginUpdate;
// Übernehme Daten
if assigned(templl) then begin
self.M_Text.Lines.Capacity:=templl.Count;
self.M_Text.Lines.Text:=Templl.Text;
FreeandNil(templl); { da xx nach xx.Free nicht NIL sein muß}
//templl.Free;
end;
self.M_Text.Lines.EndUpdate;
screen.cursor:=crdefault;
end;
Und es läuft so wie ich es gerne hätte! vielen Dank!
Gruß
K-H