Procedure in andere Unit als Ereignis eines Objekts anzeigen

[Christian18]

Hallo,

wie kann ich dir Proceduren, die ich in einer extra Unit geschrieben habe als Ereignis eines Objekts anzeigen? Also ich meine! Ich habe ein paar Proceduren geschriebne, die ich als Ereignis z.b. bei einem Label anzeigen lassen möchte. z.b. onClick--> Form2.ShowModal; Aber dieses Form2.ShowModal liegt in einer anderen Unit.

Hat jemand eine Idee wie ich das machen kann???

Mit freundlichen Grüßen

Christian18

[Lesco]

wenn du diese unit bei uses hinzugefügt hast dann kannste die proceduren einfach aufrufen

[Christian18]

Hallo,

nein leider funktioniert es nicht. Ich kann zwar in der Unit auf die Proceduren und Functionen die ich geschrieben habe zugreifen, aber ich kann meinem Objekt keine Ereignissroitine zuweisen. Ich habe noch eine bessere Formulierung gefunden wie ich euch erklären kann was ich meine. Also ...

Ich habe eine Unit in der Functionen und Proceduren drinn sind. z.b. diese hier

Delphi-Quellcode:

procedure ColorLabel(Sender: TObject);
begin
  if TLabel(Sender).Font.Color=clRed then TLabel(Sender).Font.Color:=clWindowText else TLabel(Sender).Font.Color:=clRed;
end;

und diese Procedure möchte ich jetzt in einer anderen Unit auswählen können. Wenn ich jetzt zum Beispiel ein Label nehme und zu das Ereigniss onMouseMove gehe, dann soll dieser Programmteil ausgeführt werden. Ich habe aber leider nicht die möglichkeit die Procedure auszuwählen. Ich habe zwar die möglichkeit eine neue Procedure zu schreiben in der ich diese Procedure aufrufe, dass will ich aber nicht.

Also hat jemand jetzt vieleicht eine idee was ich da machen kann???

Mit freundlichen Grüßen

Christian18

[Binärbaum]

Meinst du sowas?

Label1.OnXXXXX:= ColorLabel; MfG
Binärbaum