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.