将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。