Procedure in andere Unit als Ereignis eines Objekts anzeigen

[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