OnShow von Frames selbst erstellen

[Maya]

Ich möchte hier mal meine Lösung posten, falls noch jemand das mal braucht. Die Lösungen, die ich hier im Forum fand, halfen mir leider nicht so wirklich.

Delphi-Quellcode:

private
    { Private-Deklarationen }
    procedure CMSHowingChanged(var M: TMessage); message CM_SHOWINGCHANGED;

[...]

procedure TmeinFrame.CMSHowingChanged(var M: TMessage);
begin
  inherited;
  if Showing then
    begin
        //Mache dieses und jenes!
    end; 
end;

Ganz simple, ganz einfach und klappt!