Welche Komponente führt die Metode aus?

[napsterxx]

Nehmen wir an ich habe 10 Komponenten des Typs TButton.
Alles dieser Komponenten haben die selbe OnClick Methode: ButtonClick
Das heißt egal auf welchen Button gedrückt wird, es geschiet das gleiche.

Nun möchte ich in der Metode des Button klicks abfragen welcher Button denn diese Metode ausgeführt hat und dies dann anzeigen.

[Die Muhkuh]

Die OnClick-Methode bietet Dir einen Parameter namens "Sender", dort kann Du überprüfen, auf welchen Button geklickt wurde.

[Fussball-Robby]

Schau dir mal den Parameter Sender an.

[napsterxx]

Ja habe ich bereits, aber ich werde daraus nicht schlau. Entschuldigung

[Die Muhkuh]

Wo hapert es denn?

Du kannst per

Delphi-Quellcode:

(Sender as TButton).Name

an den Namen des Buttons dran kommen.

[napsterxx]

Geht das denn auch mit Arrays? Ich habe ein Array von TJvThreads, jedoch wenn ich mit ShowMessage und dann dem Code von eben arbeiten möchte funktioniert das nicht. Ungültige Typenumwandlung

[mkinzler]

Zeig mal den Code

[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;

[mkinzler]

Lass dir mal Anzeigem von Welchem Typ Sender ist.

[napsterxx]

Und wie :D

[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 :zwinker:

[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]

Delphi-Quellcode:

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?

[napsterxx]

Hatte es schon :D

Name kennt es nicht

//EDIT

hätte nicht gedacht das das soo kompliziert wird

[napsterxx]

*mini push* :D

[mkinzler]

Meinst du .Name? Und welche klasse?

[napsterxx]

bei TJvBaseThread gibts kein name

[mkinzler]

Wie sieht das Vererbungsschema aus?

[napsterxx]

was meinst du damit?

[mkinzler]

Von welcher Klasse stammt diese Klasse ab?

[Die Muhkuh]

Bei einem Button wäre es z.B.

Delphi-Quellcode:

TButton -> TButtonControl -> TWinControl -> TControl -> TComponent -> TPersistent -> TObject

-> bedeutet: Erbt von

[napsterxx]

Ja hier stammt TJvThread stammt von TJvBaseThread

[napsterxx]

Das problem besteht nach wie vor :D

[himitsu]

Kennt TJvBaseThread .Name nicht (ist also erst in TJvThread definiert), oder ist .Name in TJvBaseThread nur nicht sichtbar (in TJvBaseThread nicht als public/published definiert)?

Wenn es zwar definiert, aber nicht sichtbar ist, dann belaß es doch bei
(Sender as TJvThread).Name oder TJvThread(Sender).Name .

[napsterxx]

ich weis es nicht, jedoch kann ich nicht TJvBaseTHread.Name schreieben ohne eine Fehlermeldung zu bekommen

[mkinzler]

Man kann auch mit einem Fahrrad nicht Fliegen.

Delphi-Quellcode:

(Sender as TJvThread).Name

[napsterxx]

Das geht doch nicht, das haben wir doch schon durchgekaut

TJvThread > TJvBaseThread > TThread > TObject

[himitsu]

wie/wo ist den nun .Name definiert?

( in TThread existiert es noch nicht und die Jedis hab ich hier nicht installiert. :oops: )

[mkinzler]

Zitat:

Zitat von napsterxx

Das geht doch nicht, das haben wir doch schon durchgekaut

TJvThread > TJvBaseThread > TThread > TObject

Wenn es so wäre würde es ja funktionieren. Versuch mal einen harten Cast:

Delphi-Quellcode:

TJvThread( Sender).Name;

[napsterxx]

Zitat:

TJvThread( Sender).Name

Resulttiert in einer Zugriffsverletzung

[mkinzler]

Diese Komponenten liegen auch nicht in der selben Veerbungshierarchie:

Delphi-Quellcode:

TJvThread = class(TJvComponent)

[napsterxx]

OK habe es anders, mit einer Komponente aber merheren Threads gelöst, aber mich würde es trotzdem interessieren wieso es nciht geht

[mkinzler]

Weil wie man sieht, ein TJvThread kein TJvBaseThread ist.
Es sieht eher aus, als ob ein Thread mehrer BaseThreads in einer Threadliste beinhalten kann.
Wäre FSender nicht privat, könnte man so vielleicht auf den Thread schließen.