將TPopupMenu與表單的右側對齊？

Question

TPopupMenu如何與表單的右側對齊？問題是在調用Popup(X, Y: Integer)之前似乎沒有辦法獲得彈出式菜單的寬度。

我試圖得到一個類似於Chrome中系統菜單的行爲。

Answer 1

你也可以只設置Alignment到paRight，並呼籲

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。