Source position: forms.pp line 1832
function GetTopFormSkipNonDocked(
Control: TControl
):TCustomForm;