Source position: controls.pp line 2736
procedure CheckTransparentWindow(
var Handle: THandle;
var AWinControl: TWinControl
);