Events programmieren - IF Assigned(...) Bedeutung?

[Jelly]

Zitat von scrat1979:

Ist das korrekt? Falla ja, dann hätte ich es kapiert

Ja.

Zitat von scrat1979:

Wie kann ich denn die Prozedur zur Laufzeit erstellen/Zuweisen, nachdem ich diese mit z.B. MeinButton := TButton.Create erstellt habe.

Indem du eine Prozedur in deiner Client Klasse definierst, die den Parametern deines Ereignisses genuügt. Bei OnClick wäre das hier z.B. eine Möglichkeit:

Delphi-Quellcode:

unit Unit21;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;

type
  TForm21 = class(TForm)
    procedure FormCreate(Sender: TObject);
  private
    { Private declarations }
    Button : TButton ;
    procedure MyButtonClick (Sender : TObject) ;
  public
    { Public declarations }
  end;

var
  Form21: TForm21;

implementation

{$R *.dfm}

procedure TForm21.FormCreate(Sender: TObject);
begin
      Button := TButton.Create (Self) ;
      with Button do begin
          Parent := Self ;
          Left := 20 ;
          Top := 20 ;
          Caption := 'Klick mich' ;
          OnClick := MyButtonClick ;
      end;
end;

procedure TForm21.MyButtonClick(Sender: TObject);
begin
     showmessage ('Geklickt') ;
end;

end.