Brauche Dringend Hilfe bei : Nicht Alle Buttons Anklickbar!

[Nuclear-Ping]

Für's nächste mal kannst du die Buttons zur Laufzeit erstellen.

Delphi-Quellcode:

var
  MyButtons: Array[0..143] of TBitBtn;

{...}
  for i := 0 to 143 do
    begin
      MyButtons[i] := TBitBtn.Create (Self);
      MyButtons[i].Tag := i;
      MyButtons[i].OnClick := MyButtonClickEventHandler;
    end;
{...}

In dem Eventhandler kannst du dann per Typecast "(Sender as TBitBtn).Tag" herausfinden, welcher Button geklickt wurde und entsprechend reagieren.