Welche Komponente führt die Metode aus?

[Fussball-Robby]

Delphi-Quellcode:

procedure TForm2.ThreadsExecute(Sender: TObject; Params: Pointer);
begin
  if Sender is TJvThread then
    ShowMessage((Sender as TJvThread).Name);
end;

//Oder Sender als TJvThread definieren

procedure TForm2.ThreadsExecute(Sender: TJvThread; Params: Pointer);
begin
    ShowMessage(Sender.Name);
end;

Das 2. kannst du natürlich nur benutzen, wenn die Sender ausschließlich TJvThreads sind.

Mfg