nie ManualFloat użyciu określonego Rect

Question

if (w Delphi) zrobić

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

panel jest nie unosił się w określonej lokalizacji Rect, ale zamiast w rodzaju okna domyślnej lokalizacji. Jak uzyskać panel (lub inny element sterujący) do unoszenia się w określonej lokalizacji. Wygląda jednak na to, że ma prawidłowy kształt. Czy jest jakaś inna właściwość, którą muszę ustawić, aby działała poprawnie?

Edytuj: Tylko po to, aby wszystko było jasne. Spodziewam się, że powyższy kod sprawi, że panel będzie miał kwadrat 100 x 100 położony w (500 x 500) względem lewego górnego rogu ekranu, którego nie ma. Kształt jest poprawny, ale lokalizacja nie jest. Jeśli kolejne elementy sterujące zostaną uniesione, zostaną sprowadzone kaskadowo w dół ekranu.

Edit2: To nie wydaje się być problemem w Delphi 7, ale jest w Delphi 2007 przez XE2 (i ewentualnie wcześniej)

Answer 1

Nie patrz dalej : Jest to błąd w VCL.

ManualFloat tworzy pływające okno i ustawia jego Top, Left wartości TControl.CreateFloatingDockSite(Bounds: TRect) a później ustawia ClientWidth.

Jest to błąd, ponieważ robi to wymusza tworzenie windowhandle (nie ma jeszcze Handle) w

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

A to wywołuje domyślną pozycję okna (kaskadowe bla bla ...) resetowanie Top i Left

poprawka byłoby ustawić ClientWidth i ClientHeight przed ustawieniem Top i Left właściwości w TControl.CreateFloatingDockSite(Bounds: TRect)

Aktualizacja: ustalony kod w 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; 

Answer 2

jak nazwa parametru TRect z the function - ScreenPos - niby mówi już, współrzędne są w jednostkach ekranu, a nie w jednostce macierzystej.

Jeśli chcesz panel pozostać w tym samym miejscu, gdzie to było, tłumaczyć współrzędne względne do ekranu:

with Panel1.ClientToScreen(Point(0, 0)) do 
    Panel1.ManualFloat(Bounds(X, Y, 100, 100)); 

Albo, to granicę panelu użytkownika:

if Panel1.HasParent then 
    with Panel1.Parent.ClientToScreen(Panel1.BoundsRect.TopLeft) do 
     Panel1.ManualFloat(Bounds(X, Y, 100, 100)); 

Or , aby przetłumaczyć na konkretną współrzędną w stosunku do rodzica, użyj:

if Panel1.HasParent then 
    with Panel1.Parent.ClientOrigin do 
     Panel1.ManualFloat(Bounds(X + 500, Y + 500, 100, 100));