Buttons ansprechen in einer Schleife

[Christian Seehase]

Moin markon,

das könntest Du so machen:

Delphi-Quellcode:

// Methode im Formular hinzufügen
procedure TForm1.ButtonClick(Sender: TObject);
begin
  ShowMessage(IntToStr((Sender as TButton).Tag));
end;

  with TButton.Create(self) do 
  begin 
    Name := 'bt' + IntToStr(position);
    caption := DM_Tabelle.adoquery1.FieldByName('Name').AsString; 
    Left := 16; 
    Top := position * 27 + 30; 
    Parent := panel2; 
    Tag     := position;
    OnClick := ButtonClick;
  end;

ungetestet sollte aber so gehen.