[Lazarus] TCustomForm.GetFloating

Hans-Peter Diettrich DrDiettrich1 at aol.com
Tue Nov 15 15:57:41 CET 2011


function TCustomForm.GetFloating: Boolean;
begin
   Result := ((HostDockSite = nil) and (Parent=nil)
             and (FloatingDockSiteClass = ClassType)) <---------------
          or (inherited GetFloating);
end;

What's the reason for checking FloatingDockSiteClass here?

What can a form with no Parent and no HostDockSite do other than float?

DoDi




More information about the Lazarus mailing list