Button herausfinden

**-Phantom-**

Ich bins mal wieder und mein nächstes Problem ist da.

Zum Problem: Durch mehere Buttons wird ein und die selbe Form gezeigt. Wie finde ich nun herauswelcher Button geklickt wurde?

**jsheyer**

Hallo Phantom,

durch sender: TObject im OnClick Event des Buttons, also z. B.

markieren

Delphi-Quellcode:

			with sender as TButton do

begin

    ShowMessage(Caption);

end;

Anstatt Caption kann natürlich auch Name (Name des Buttons) verwenden.
TButton wäre der Standard Button von Delphi, z. B. der BitBtn dann ist es TBitBtn.

Gruß

Jörg

**Astat**

Zitat von -Phantom-:

..Durch mehere Buttons wird ein und die selbe Form gezeigt. Wie finde ich nun herauswelcher Button geklickt wurde?

Hallo Phantom, versuch mal dass.

markieren

Delphi-Quellcode:

			
procedure TForm1.FormShow(Sender: TObject);

begin

  if (Sender is TButton) then

    showmessage((Sender as TButton).Name);

end;

EDIT: zu spät

lg. Astat

**-Phantom-**

Danke euch beiden ...

Klappt wunderbar

**Codewalker**

Wenn du je nach Button noch unterschiedliche Aktionen durchführen möchtest, kannst du auch die Tag-Eigenschaft der Buttons nutzen. Du gibst jedem Button in der Eigenschaft Tag eine andere Zahl (die kann man nämlich einfach per case unterscheiden). Das erste Assert stellt sicher, dass man nichs vergißt, wenn man einen Button nachträglich hinzufügt. Das zweite Assert ist Geschmackssache ob man es braucht, aber es hilft beim Entwickeln schon (jedenfalls mir

)

markieren

Delphi-Quellcode:

			 if (Sender is  TButton) then

   case (Sender as TButton).Tag of

    1: ShowMessage('Button 1 wurde geklickt');

    2:;

    3: Beep;

    4: Application.Terminate;

    else Assert(False,'Unbekannter Tag. Evtl. eine Änderung vergessen?');

   end else Assert(False,'Sender ist kein Button!');

**uligerhardt**

Zitat von Astat:

markieren

Delphi-Quellcode:

			  if (Sender is TButton) then

  showmessage((Sender as TButton).Name);

Aua. Wenn du mit "is" den Typ von Sender schon geprüft hast, musst du beim Casten nicht noch mal prüfen. Folgendes reicht vollkommen:

markieren

Delphi-Quellcode:

			  if Sender is TButton then

  ShowMessage(TButton(Sender).Name);

**Codewalker**

Zitat von uligerhardt:

Zitat von Astat:

markieren

Delphi-Quellcode:

			  if (Sender is TButton) then

  showmessage((Sender as TButton).Name);

reicht vollkommen:

markieren

Delphi-Quellcode:

			  if Sender is TButton then

  ShowMessage(TButton(Sender).Name);

Wo ist denn da der Unterschied. Einmal mit "is" prüfen und dann casten. Ist es denn ein Unterschied ob ich mit TButton(Sender).Name caste oder mit "as" (Sender as TButton).Name ? Ist ja keine doppelte Überprüfung

Kleine Frage:

case (Sender as TButton).Tag of oder besser
case TButton(Sender).Tag of

**himitsu**

IS ist 'ne Funktion, welche den Typ prüft und gibt einen Boolean mit dem Ergebnis zurück.
AS ist 'ne Prozedur, welche ebenfalls prüft, aber diese lößt bei Nichtübereinstimmung eine Exception aus.

Also AS nach erfolgreichem IS ist eine unnötige Prüfung.

**uligerhardt**

Zitat von Codewalker:

Wo ist denn da der Unterschied. Einmal mit "is" prüfen und dann casten. Ist es denn ein Unterschied ob ich mit TButton(Sender).Name caste oder mit "as" (Sender as TButton).Name ? Ist ja keine doppelte Überprüfung

Und ob.s := (Sender as TButton).Name; entspricht etwa

markieren

Delphi-Quellcode:

			if Sender is TButton then

  s := TButton(Sender).Name

else

  raise EInvalidCast.Create;

- siehe _AsClass in Unit System. D.h. für "as" muss tatsächlich zur Laufzeit Code ausgeführt werden, während der "harte" Cast nur zur Beruhigung des Compilers dient, aber zur Laufzeit keine Auswirkungen mehr hat.

Button herausfinden

Button herausfinden

Re: Button herausfinden

Re: Button herausfinden

Re: Button herausfinden

Re: Button herausfinden

Re: Button herausfinden

Re: Button herausfinden

Re: Button herausfinden

Re: Button herausfinden

Re: Button herausfinden

Forumregeln

-Phantom- Registriert seit: 26. Nov 2009 Ort: Bockhorst 319 Beiträge Delphi 7 Enterprise	#1 Button herausfinden 3. Feb 2010, 23:40 Ich bins mal wieder und mein nächstes Problem ist da. Zum Problem: Durch mehere Buttons wird ein und die selbe Form gezeigt. Wie finde ich nun herauswelcher Button geklickt wurde? Mathias Jansen
	Zitat

-Phantom- Registriert seit: 26. Nov 2009 Ort: Bockhorst 319 Beiträge Delphi 7 Enterprise	#4 Re: Button herausfinden 4. Feb 2010, 00:16 Danke euch beiden ... Klappt wunderbar Mathias Jansen
	Zitat

Micha88 (Gast) n/a Beiträge	#8 Re: Button herausfinden 4. Feb 2010, 09:59 Kleine Frage: case (Sender as TButton).Tag of oder besser case TButton(Sender).Tag of
	Zitat

himitsu Registriert seit: 11. Okt 2003 Ort: Elbflorenz 44.316 Beiträge Delphi 12 Athens	#9 Re: Button herausfinden 4. Feb 2010, 10:04 IS ist 'ne Funktion, welche den Typ prüft und gibt einen Boolean mit dem Ergebnis zurück. AS ist 'ne Prozedur, welche ebenfalls prüft, aber diese lößt bei Nichtübereinstimmung eine Exception aus. Also AS nach erfolgreichem IS ist eine unnötige Prüfung. Ein Therapeut entspricht 1024 Gigapeut.
	Zitat