|
Registriert seit: 16. Apr 2007
2.325 Beiträge
Turbo Delphi für Win32
|
Re: Eigener Klasse OnClickEvent zuweisen
10. Mai 2007, 14:43
Du musst eine private Variable vom Typ TNotifyEvent erstellen (z.B. FOnLabelClick). Außerdem eine Prozedur (protected) namens SetLabelClick mit einem Parameter vom Typ TNotifyEvent. LabelOnClick deklarierst du dann so:
property OnLabelClick:TNotifyEvent read FOnLabelClick write SetLabelClick;
In SetLabelClick musst du nur noch das OnClick aller Labels sowie FOnLabelClick durch den Parameter ersetzen.
Hoffe geholfen zu haben
Apollonius
Wer erweist der Welt einen Dienst und findet ein gutes Synonym für "Pointer"?
"An interface pointer is a pointer to a pointer. This pointer points to an array of pointers, each of which points to an interface function."
|