4 Buttons abfragen

[XXcD]

Hallo,
muss das nicht
if (Sender as TButton).name=Button1 then oder
if TButton(Sender).name=Button1 then heißen?

[a.def]

Bei mir funktioniert es ohne as TButton.

Delphi-Quellcode:

procedure TForm1.Button2Click(Sender: TObject);
begin
 if Sender = Button2 then
  begin
  end;
end;

.name kann gar nicht funktionieren, da name ein String ist.

[Luckie]

Nur, wenn du es so vergleichst, erzeugst du ein Schwarzes Loch auf deinem Schreibtisch, wenn der Sender mal nicht vom Typ TButton ist.

[sko1]

Nun ja, bei solch übersichtlichen Konstellationen (4 Buttons) weiß man ja ob und wem man den OnClick zugewiesen hat, in solchen Fällen lass ich auch mal das If Sender is TButton weg...

Ciao
Stefan

[idefix2]

Zitat von Luckie:

Nur, wenn du es so vergleichst, erzeugst du ein Schwarzes Loch auf deinem Schreibtisch, wenn der Sender mal nicht vom Typ TButton ist.

Warum? Mehr als dass als Ergebnis des Vergleichs false herauskommt, kann auch da nicht passieren, oder?

Meines Erachtens ist es nicht besonders sinnvoll, sich zu bemühen, in so einer Umgebung derartige Programmierfehler abzufangen. Wenn der Sender da nicht vom Typ TButton ist, dann ist doch sowieso schon alles verloren.