Ereignisbehandlungsmethode zur Laufzeit zuordnen

[BillieJoe90]

Hallo,
ist es möglich, zur Laufzeit einer Komponente, in meinem Fall einer zur Laufzeit erstellten, ihr eine Ereignisbehandlungsmethode zuzuordnen?
Also theoretisch würde der Delphi-Code so aussehen, um es deutlicher zu machen:

Delphi-Quellcode:

procedure meineFunktion;
begin
  // Mach was...
end;

procedure TForm1.Create([...]);
begin
  label := TLabel.Create([...]);

  // Ereignisbehandlungsmethode zuordnen
  label.OnClick := meineFunktion;
end;

Danke schonmal! :hi:

Johannes

[hsg]

Du hast es doch schon selber geschrieben, nur die Deklaration deiner Prozedur stimmt nicht:

Delphi-Quellcode:

  TmyForm=Class(TForm)
   private
     procedure RundePreise(Sender: TObject);
   .....

implementation

  .....
  Label1.OnClick := RundePreise;

  .....

[Kedariodakon]

Ok, mal so eine kleine Einleitung:

Am besten schaust du einfach nach, von welchem Typ das Ereigniss sein muss, in deinem Fall ist es TNotifyEvent...
Dann schaust du nach, was sich dahinter verbirgt...

Dann komst du zu sowas:

Delphi-Quellcode:

type TNotifyEvent = procedure (Sender: TObject) of object;

Nun hast du schon alles was du brauchst, du brauchst eine Methode in einer Klasse ([oh]of Object;[/oh]) die so deklariert ist:

Delphi-Quellcode:

Procedure MeineMachwasMethode(Sender: TObject)

Und diese kannst du dann einfach zuweisen...

Delphi-Quellcode:

label.OnClick := MeineMachwasMethode;

Das wars dann schon =p

Weitere Infos zum umleiten und Co. gibt es z.B. hier:
"inherited" für umgeleitetes Event

Bye Christian