Von Thread aus auf Komponente in Form1 zugreifen

[TheMiller]

Wenn ich Synchronize verwende, hängt das Programm während dem Zugriff. hab's so gemnacht

Delphi-Quellcode:

procedure MyThread.Machwasmitlistview;
var
  i: Integer;
begin
  for i:=0 to 1000 do
  begin
    lv.Items.Add;
    lv.Items.Item[lv.Items.Count-1].Caption:=IntToStr(i);
    lv.Repaint;
  end;
end;

procedure MyThread.Execute;
begin
  Synchronize(Machwasmitlistview);
end;

Anwendung

MyThread.Lv:=Self.Listview;
MyThread.Resume;