Welche Komponente führt die Metode aus?

[mkinzler]

Sender.Classname

[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

[napsterxx]

Ja sind sie aber funkt einfach nicht

[DeddyH]

Die Methodenparameter dürften wohl vorgegeben sein, also nimm besser die erste Variante.

[napsterxx]

Delphi-Quellcode:

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

procedure TForm2.Button2Click(Sender: TObject);
begin
  JvThread1.ThreadDialog := nil;
  JvThread1.Execute(self);
end;

Selbst das geht nicht

[mkinzler]

Und welche Klasse gehört Sender nun an?

[napsterxx]

Ich habe keine Ahnung. Es muss ja eigentlich TJvThread sein. Also ich klicke auf einen Button, danach wird JvThread1.Execute;

Und das wars ...

[mkinzler]

Dann lass es dir doch anzeigen

[napsterxx]

Zuerst musste mir verraten wie
SHowMessage( Sender.ClassType.ClassName );

so habe ichs gemacht = Leere MSG Box

// So jetzt habe ichs TJvBaseThread
aber dann geht das nicht:

ShowMessage(( Sender as TJvBaseThread ).Name );

[mkinzler]

ShowMessage( Sender.ClassName ); Ich nehme an das TJvThread von TJvBaseThread abstammt, dann dürfte es eigentlich keine Typenunverträglichkeit geben

Kennt die Klasse, die gewünschten Eigenschaften?