Dynamische Events?

[Bernhard Geyer]

Delphi-Quellcode:

  TMyForm = ...
  private
    procedure OnMyButtonClick(Sender: TObject);
  ....

  TMyForm.MyFunction(...)
  begin
    MeinDynamischerButton.OnClick := OnMyButtonClick;
  end;

  TMyForm.OnMyButtonClick(Sender: TObject);
  begin
    if Sender is TButton then
      (Sender as TButton).Caption := 'Neue Caption';
  end;