4 Buttons abfragen

[himitsu]

Oder direkt

Delphi-Quellcode:

cButtonStart := DerStartbutton;
cButtonEnd := DerEndbutton;



if Sender = cButtonStart then

.

Aber wenn man die 1-4 per Random erzeigen will, dann kann das mit dem .Tag auch ganz praktisch sein.

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