Gemeinsame OnClick - Behandlung

[Doc F]

Hi there,

Also, ich habe da min. zwei Gruppen von sagen wir mal, TButtons . BtnFirst1, BtnPrior1,BtnNext1... und BtnFirst2... Schön, natürlich könnte ich jetzt für jeden Button eine eigene OnClick-Routine schreiben, aber das artet ja aus, zumal BtnFirst1, BtnFirst2 etc. ja eigenlich das selbe tun.
OK, ich kann über:

Delphi-Quellcode:

procedur NavBtnClick(Sender : TObject);
var
  name : String;
  id   : Integer;

begin
  name := (Sender AS TButton).name;
  id := name(length(name));
  ...

aber zB.

  BtnFirst[id].enabled := True; erzeugt bei meinem Compiler höchstens ein hönisches Grinsen.

Ist das so überhaupt irgendwie machbar ?


Thanks a lot

Doc F

Zitat:

Nicht jeder ist so egoistisch, das er sich selbst Gedanken macht.