4 Buttons abfragen

[jdiephaus]

Vielen Dank auch an dich!

Die Methode mit Sender gefällt mir sehr gut! Auch einfach umzusetzen ohne alle Buttons taggen zu müssen.

Habe den Code jetzt so eingebaut, funktioniert aber leider nicht

Code:

procedure TForm1.ButtonClick(Sender: TObject);
begin
  if Sender = Button1 then
  begin
    Memo1.Text:='Hallo';
  end;
end;

Bekomme keine Ausgabe. Anscheinend erkennt er nicht ob der Button geklickt wurde oder nicht.

[a.def]

Hast du ALLEN 4 Buttons das Event "ButtonClick" zugewiesen? Hast du das Event selber geschrieben oder kommt das über den Objektinspektor?

[Luckie]

Setz doch mal einen Haltepunkt und guck, ob er da überhaupt rein springt. Dann weißt du es doch.

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