TButton zur laufzeit erzeugen Probleme mit Onclick

[Gollum]

Hallo,

das OnClick-Ereignis erwartet eine Methode und keinen String!!!

Deklariere eine Methode vom Typ TNotifyEvent und weise die dann dem OnClick-Ereignis zu.

Delphi-Quellcode:

type
  TMyForm=class(TForm1)
    ...
    ...
  private
    procedure MyButtonClick(Sender:TObject);
    ...
  end; // TMyForm


...
...


procedure TMyForm.MyButtonClick(Sender:TObject);
begin
  case TControl(Sender).Tag of
    1:;
    2:;
  end; // case
  // tu hier irgendetwas
  
end; // TMyForm.MyButtonClick

...
for i:=1 to 10 do begin 
(Erzeugen des Button mit Create Selve) 
  ...
  OnClick:=MyButtonClick;
  Tag:=i;
  ...
...

Um herauszufinden welcher Button gedrückt wurde, kannst Du wie im obigen Beispiel das Tag-Property benutzen.