Einzelnen Beitrag anzeigen

Benutzerbild von Gollum
Gollum

Registriert seit: 14. Jan 2003
Ort: Boxberg
456 Beiträge
 
Delphi 10.1 Berlin Professional
 
#3

Re: TButton zur laufzeit erzeugen Probleme mit Onclick

  Alt 27. Okt 2003, 17:05
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.
  Mit Zitat antworten Zitat