Einzelnen Beitrag anzeigen

Benutzerbild von Jelly
Jelly

Registriert seit: 11. Apr 2003
Ort: Moestroff (Luxemburg)
3.741 Beiträge
 
Delphi 2007 Professional
 
#10

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

  Alt 12. Feb 2007, 19:35
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.
  Mit Zitat antworten Zitat