Funktionsliste

[TAC]

Ich bin mir zwar nicht ganz sicher, aber ich glaube mich erinnern zu können, daß man nicht unbedingt aus einem Thread heraus zeichnen controls anteuern sollte. Würde daher also dem Thread ein Event hinterlegen, welches dann vom Form aus gesetzt wird. Dies sollte dann eigentlich keine Fehler beim Aktualiseren der visuellen Komponenten hervorrufen.



type Tmythreadevent = procedure (Sender:TObject;wert1,wert2,wert3,wert4 {...} : String) of object;

tmythread
....
onMyEvent : Tmythreadevent;


tform
...
procedure onThreadEvent (Sender:TObject;wert1,wert2,wert3,wert4 {...} : String)
...
tmytherad.onmyevent := onThreadEvent ;


procedure onThreadEvent (Sender:TObject;wert1,wert2,wert3,wert4 {...} : String)
begin
label1.caption := wert1;
....
end;


MFG
TAC