TTabcontrol - OnExit funktioniert nicht wie erwartet

[idefix2]

irgendwie macht mich das wahnsinnig. Jetzt wollte ich ein TMainMenuItem von TMenuItem ableiten, in dem ich OnClick überschreibe, um an der Stelle halbwegs zentral meine Sheets zu sichern, wenn ein Punkt des hauptmenüs aufgerufen wird.
Bloss, es kommt die Fehlermeldung "Methode OnClick nicht in Basiskasse gefunden."
Aber die Basisklasse HAT ein OnClick-Ereignis. Was mache ich da falsch?

[nahpets]

Schau doch mal in den Quellen von Delphi nach (sofern Du sie bei Deiner Delphiversion dabei hast) wie dort bei TMenuItem OnClick definiert ist.

Bei Delphi 7 sieht das so aus:

Delphi-Quellcode:

property OnClick: TNotifyEvent read FOnClick write FOnClick stored IsOnClickStored;

[idefix2]

Bei der Starter-Edition ist kein Quellcode dabei. Aber mir ist schon klar geworden, was da falsch ist.

Ich habe geglaubt, die interne Methode, die die Onclick-Routine aufruft, heißt Onclick. Die heisst aber offenbar anders, d.h. ich kann nicht Onclick überschreiben, sondern ich muß den Konstruktor von TMenuItem überschreiben und dort die Property Onclick setzen.

pffff...

Oder ich lass es bleiben und setze die Property direkt im OI. Ist halt ein Problem, wenn irgendwann das Menü erweitert wird, das ist etwas, worauf dann mit fast 100%iger Sicherheit vergessen werden wird. Aber wenn jemand statt meines TMainMenuItem ein normales TMenuItem ins Menü hängt, hilft ohnehin auch nichts.

[himitsu]

Oft heißen die Caller der Events DO

OnClick -> DoClick (siehe TButton)
Aber bei TMenuItem gibt es keinen expliziten Caller für dieses Event.

Allerdings gibt es hier eine passende Methode, für diese Funktion, die man auch per Code aufrufen kann, um die Funktion von MenuItems/Buttons auszulösen.

Delphi-Quellcode:

procedure Click; override;

[idefix2]

Danke. Sobald ich etwas Zeit habe, probiere ich das aus. Auf die Schnelle habe ich jetzt schon bei den betroffenen Menüeinträgen über den OI das Onclick gesetzt. Aber ein override der internen Click-verarbeitung in einer abgeleiteten Klasse würde mir irgendwie besser gefallen.

[Ghostwalker]

hmmmm....ich würde eher eine TAction/TCustomAction verwenden und die Actions entsprechend auf die Menüs, Speedbuttons usw. verteilen :)

Hat den Vorteil, das das auslösende Control egal ist (ob das nu ein Menüpunkt oder ein Speedbutton oder
ein xyz-control).