Dynamischer Btn und "verborgene virtuelle Methode?"

[Sharky]

Hai,

so sollte es gehen

Delphi-Quellcode:

Type 
.
  private
    { Private-Deklarationen }
    procedure myOnClick(Sender: TObject);
  end;

implementation

procedure TForm1.myOnClick(Sender: TObject);
begin
  ShowMessage('blubb');
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
  Btn_Test.OnClick := myOnClick;
end;