TTabcontrol - OnExit funktioniert nicht wie erwartet

[himitsu]

Delphi-Quellcode:

type
  TExitFormHelper = class helper for TForm
  private type
    TProtectedControl = class(TWinControl);
  public
    procedure CheckOnExit(WithOnEnter: Boolean=False);
  end;

procedure TExitFormHelper.CheckOnExit(WithOnEnter: Boolean);
begin
  if not Assigned(Self.ActiveControl) then
    Exit;
  TProtectedControl(ActiveControl).DoExit;
  if WithOnEnter then
    TProtectedControl(ActiveControl).DoEnter;
end;

Und dann halt im OnCloseQuery/OnClose/OnDestroy und eben in den ClickEvents von Menüs/SpeedButtons das CheckOnExit aufrufen.

[idefix2]

Das ist aber ein ordentlicher Mist.
Das heisst so viel, wie dass ich mich bei jeder Aktion, die irgendwo in der Form ausgelöst wird, speziell bei jedem Untermenüpunkt der Hauptmenüs um das Sichern des Tab-Inhalts kümmern muss. Und wenn später einmal irgendwer das Menü erweitert oder einen Speedbutton einbaut oder sonst irgend etwas derartiges macht und auf das Aktualisieren der Tabsheetdaten vergisst, dann freut sich der Anwender des geupdateten Programms

@Himitsu
Den Sinn von deinem Exitformhelper sehe ich nicht so recht -
weder, wozu es gut sein könnte, nach onexit gleich wieder onenter aufzurufen
noch was es beim Handling gegenüber dem direkten Aufruf von Tabcontrol.doexit einfacher oder besser macht - wenn man nicht zufällig mehrere tabcontrols auf der Form hat und die alle aktualisieren will.
Beim den Menüs ist es besonders lästig, weil da gibt es anscheinend keinen Event, der aktiviert wird, wenn irgend ein Menüeintrag angeklickt worden ist, da muss man die Reaktion in jeden Menüeintrag einbauen.

[himitsu]

Wenn beim OnExit etwas deaktiviert wird und beim OnEnter aktiviert, an wäre das sonst inaktiv, obwohl der Fokus immernoch in dem Control ist. (oder andersrum)

Aus diesem Grund verwenden einige Leute niemals pure Controls, sondern leiten alles immer ab (auch wenn erstmal noch nicht verändert wurde)
So kann man dann später global ein Verhalten einbauen/ändern, ohne noch irgendwas ändern zu müssen.

Bei den Menüs kann man das aber auch ins OnPopup einbauen, dann ist das schon erledigt, bevor irgendein Menüpunkt angeklickt wurde.

[idefix2]

Hmm
Das einzige Event des Hauptmenüs, das im OI angezeigt wird, ist OnChange, ein OnPopup gibt es da nicht.
Das Hauptmenu ist ja auch kein Popup-menu.

[himitsu]

Hmm, gab es beim MainMenu nicht auch sowas wie OnPopup?
Irgendwas, wo man vor dem Anzeigen noch schnell am Menü rumspielen kann? (Items Erstellen, Dis./Enablen oder sie Checkboxen)

Bei den Hauptmenüpunkten kann man auch OnClick benutzen ... OnClick wird beim Aufpoppen des Submenüs ausgelöst.

[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:property OnClick: TNotifyEvent read FOnClick write FOnClick stored IsOnClickStored;