Buttons ansprechen

[Christian Seehase]

Moin Haegar,

da die Button ja nicht dynamisch erzeugt werden ginge auch folgende Variante:

Du markierst alle betroffenen Button (den ersten einfach anklicken, die restlichen mit gedrückter Shift Taste).

Dann gehst Du im Objektinspektor auf den Reiter Ereignisse und schreibst dort unter OnClick den Namen für die Prozedur rein, den Du für die OnClick Prozdur haben willst, und Enter. (oder Du machst einen Doppelclick auf das Feld wenn der Name generiert werden soll).

In der OnClick Routine kannst Du jetzt folgendes schreiben:

Delphi-Quellcode:

procedure TForm1.ButtonClick(Sender: TObject);
begin
  // Annahme:
  // Der Name lautet btn_xx, wobei xx eine maximal 2 stellige Zahl ist
  // (die 5 weist auf das erste x, die 2 weil es maximal 2 Stellen sein dürfen)
  if (sender is TButton) then
  begin
    case StrToInt(copy(TButton(Sender).Name,5,2)) of
      1 :
        begin
          // Was bei btn_1 passieren soll
        end;
      // ....
      10 :
        begin
          // Was bei btn_10 passieren soll
        end;
    end;
  end;
end;