delphi – ManualFloat没有使用指定的Rect

Panel1.ManualFloat(Rect(500,500,600,600));

不要再看了：它是VCL中的一个错误. @H_185_4@manualFloat创建一个浮动窗口并在TControl.CreateFloaTingDockSite(Bounds：TRect)中设置其Top,Left值,然后设置其ClientWidth.

这是一个错误,因为这样做会强制WindowHandle创建(它还没有HandlE)

function TCustomForm.GetClientRect: TRect;
begin
  if IsIconic(HandlE) then // <===

并调用Window的默认定位(级联yadda yadda …)重置Top和Left

修复方法是在TControl.CreateFloaTingDockSite中设置Top和Left属性之前设置ClientWidth和ClientHeight(Bounds：TRect)

更新：Controls.pas中的固定代码

function TControl.CreateFloaTingDockSite(Bounds: TRect): TWinControl;
begin
  Result := nil;
  if (FloaTingDockSiteClass <> nil) and
    (FloaTingDockSiteClass <> TWinControlClass(ClassTypE)) then
  begin
    Result := FloaTingDockSiteClass.Create(Application);
    with Bounds do
    begin
      // SetTing Client area can create the window handle and reset Top and Left
      Result.ClientWidth := Right - Left;
      Result.ClientHeight := Bottom - Top;
      // it is now safe to position the window where asked
      Result.Top := Top;
      Result.Left := Left;
    end;
  end;
end;