Welche Komponente führt die Metode aus?

[napsterxx]

Delphi-Quellcode:

procedure TForm2.Button1Click(Sender: TObject);
var
  LI: TListItem;
begin                 
  Inc(Index, 1);
  SetLength(Views, Index+1);
  SetLength(Threads, Index+1);

  { Neue ListView erstellen }
  Views[Index] := TJvListView.Create( self);
  Views[Index].Parent := panel1;

  Threads[Index] := TJvThread.Create(Form2);
  Threads[Index].OnExecute := ThreadsExecute;
  Threads[Index].Tag := Index;

  { Eigenschaften der neuen Listview zuweisen }
  with Views[Index] do
  begin
    Columns := JvListView1.Columns;
    ViewStyle := vsReport;
    Width := JvListView1.Width;
    Height := JvListView1.Height;
    Top := JvListView1.Top;
    Left := JvListView1.Left;
  end;
  Threads[Index].ThreadDialog := nil;
  Threads[Index].Execute(self);  

  Tabs.AddTab(Edit1.Text);
  Tabs.SelectedTab := Tabs.Tabs.Items[Index];
end;

procedure TForm2.ThreadsExecute(Sender: TObject; Params: Pointer);
var
  I: Integer;
begin
  ShowMessage((Sender as TJvThread).Name);
end;