OnClick ereigniss für ganz viele buttons??

[Jürgen Thomas]

Delphi-Quellcode:

procedure TKeyboardfenster.MGKeyboardbutton10Click(Sender: TObject);
var btnName: string;
    i0: integer;
begin
  if (Sender is TButton)
  then begin
    btnName := (Sender as TButton).Name;
    //  jetzt kannst Du z.B. das letzte Zeichen als Zahl herausholen
    //  oder wie auch immer Du die Buttons unterscheiden willst;
    //  bei Bedarf ist auch Tag geeignet:
    i0 := (Sender as TButton).Tag;
    case i0 of
      1: // usw.
    end;
  end;
end;

Gruß Jürgen

[OT]Drei ähnliche Beiträge fast gleichzeitig sollten Dir die Richtung zeigen.