Button Klick

[Die Muhkuh]

Die haben quasi keinen Namen, da Du ihnen keinen gibst.

Aber welchen Sinn macht es, soviele BitBtns (840 Stück!) zu erstellen?

Du willst für alle Buttons die selbe OnClick-Methode?

Delphi-Quellcode:

type
  TForm1 = class(TForm)
    procedure MyBitBtnClick(Sender: TObject);
  private
  ...
  end;

implementation

procedure TMyMap.FormCreate(Sender: TObject);
var ix,iy,x,y:integer;
begin
y:=0;

for iy:=1 to 40 do
begin
x:=0;
  for ix:=0 to 20 do
  begin
    with TBitBtn.Create(self) do  //  <=== wie heißen die auf diese Weise erstellten BitBtn's ???
    begin
      parent:=MyMap;
      width :=25;
      height:=25;
      Left  :=X;
      Top   :=Y;
      X:=X+25;
      OnClick := MyBitBtnClick;
    end;
  end;
y:=y+25;
end;
end;

procedure TMyMap.MyBitBtnClick(Sender: TObject);
begin
  // Do Something
end;