एक TPopupMenu को फ़ॉर्म के दाईं ओर दाईं ओर संरेखित करें?

Question

एक TPopupMenu को किसी फ़ॉर्म के दाईं ओर कैसे गठबंधन किया जा सकता है? समस्या यह है कि Popup(X, Y: Integer) पर कॉल करने से पहले पॉपअप मेनू की चौड़ाई प्राप्त करने का कोई तरीका प्रतीत नहीं होता है।

मैं क्रोम में सिस्टम मेनू के समान व्यवहार करने की कोशिश कर रहा हूं।

Answer 1

आप, साथ ही paRight करने के लिए Alignment सेट और

with ClientToScreen(Point(ClientWidth - 1, 0)) do 
    Popup(X, Y); 

Answer 2

सबसे आसान समाधान पॉपअप मेनू अपने आप को शुरू करने के लिए होगा: या TrackPopupMenu के लिए

procedure TForm1.Panel1ContextPopup(Sender: TObject; MousePos: TPoint; 
    var Handled: Boolean); 
var 
    PopupPt: TPoint; 
begin 
    PopupPt := ClientToScreen(Point(ClientWidth, 0)); 
    TrackPopupMenu(PopupMenu1.Handle, TPM_RIGHTALIGN or TPM_TOPALIGN, 
     PopupPt.X, PopupPt.Y, 0, PopupList.Window, nil); 
end; 

दस्तावेज़ देखें विभिन्न झंडे क्या मतलब के लिए TrackPopupMenuEx।