Wie onCloseQuery überschreiben?

[Bernhard Geyer]

1, Wenn Du eine Methode überschreibst mußt du die gleiche Methodensignatur verwenden:

2, Wenn der Code der eigentlich von der Methode ausgeführt wurde immer noch ausgeführt werden soll muß du mittels inherited den Basiscode ausführen:

Delphi-Quellcode:

function TModularForm.CloseQuery: Boolean;
begin
   if xForm.MDIChildCount = 1 then
   begin
      xForm.TBXDock3.Visible:=false;
      xForm.TBXItem18.Visible:=false;
   end
   else
    begin
      xForm.TBXDock3.Visible:=true;
      xForm.TBXItem18.Visible:=true;
    end;

  inherited CloseQuery;
end;