निर्दिष्ट रेक्ट

Question

का उपयोग नहीं कर ManualFloat अगर (डेल्फी में) मैं

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

कर पैनल निर्दिष्ट रेक्ट स्थान पर नहीं जारी किया गया है, लेकिन इसके बजाय खिड़कियों डिफ़ॉल्ट स्थान का एक प्रकार में। मैं कैसे एक निर्दिष्ट स्थान पर फ्लोट करने के लिए एक पैनल (या अन्य नियंत्रण) मिलता है। ऐसा लगता है कि यह सही आकार है। क्या कोई अन्य संपत्ति है जिसे मुझे सही तरीके से काम करने के लिए सेट करने की आवश्यकता है?

संपादित करें: बस बातें स्पष्ट करना है। मैं ऊपर कोड पैनल एक 100x100 में (500x500) स्क्रीन है, जो यह नहीं है के शीर्ष बाएँ हाथ कोने से संबंधित स्थित वर्ग बनाने के लिए उम्मीद करेंगे। आकार सही है लेकिन स्थान नहीं है। यदि बाद के नियंत्रण फ्लोट किए जाते हैं तो उन्हें स्क्रीन पर कैस्केड किया जाता है।

EDIT2: यह डेल्फी 7 में एक समस्या होने लगते हैं नहीं है, लेकिन XE2 के माध्यम से डेल्फी 2007 में (और संभवतः पहले)

Answer 1

आगे देखो : वीसीएल में यह एक बग है।

ManualFloat एक अस्थायी विंडो बनाता है और TControl.CreateFloatingDockSite(Bounds: TRect) में अपनी Top, Left मान सेट करता है और बाद में सेट अपने ClientWidth।

एक गलती है ऐसा इसलिए है क्योंकि कर रही है कि बलों WindowHandle निर्माण

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

में (यह एक हैंडल अभी तक नहीं था) और उस खिड़की के डिफ़ॉल्ट स्थिति कॉल (व्यापक रोज़मर्रा की घटना ...) रीसेट करने Top और Left

ठीक TControl.CreateFloatingDockSite(Bounds: TRect)

में Top और Left गुण सेट करने से पहले ClientWidth और ClientHeight स्थापित करने के लिए किया जाएगा

अद्यतन: 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

the function की TRect पैरामीटर के नाम की तरह - ScreenPos - तरह का कहना है यह पहले से ही है, निर्देशांक माता-पिता की बजाय स्क्रीन इकाइयों में हैं।

आप पैनल, एक ही जगह है जहाँ यह था पर रहने निर्देशांक स्क्रीन के सापेक्ष अनुवाद करना चाहते हैं:

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

या, पैनल की सीमा में शामिल करने के:

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

या , माता-पिता के सापेक्ष एक विशिष्ट समन्वय में अनुवाद करने के लिए, उपयोग करें:

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