delphi问一个按钮下拉菜单问题

来源：百度知道 编辑：UC知道 时间：2024/05/05 10:38:54
一个Button1 PopupMenu1

点击Button1
在Button1下弹出PopupMenu1菜单

简单点说左右键弹出都一样就OK了(是下拉哦，不要给一个在鼠标的位置上弹出哦)....^_^
点击按钮在按钮下显示菜单就可以了..
就像MainMenu那样显示....

在窗体上放一个按钮和右键菜单。在按钮的OnMouseUp事件下加入代码：

procedure TForm1.Button1MouseUp(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
var
pt:TPoint;
begin
GetCursorPos(pt);
PopupMenu1.Popup((pt.x-x),(pt.y+(Button1.Height-y)));
end;

unit Unit1;

.....
type
TForm1 = class(TForm)
Button1: TButton;
PopupMenu1: TPopupMenu;
N11: TMenuItem;
....
end;

var
Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
begin
//点击鼠标后弹出
popupmenu1.Popup(self.Left + Button1.Left, self.Top + button1.Top + 2 * button1.Height);
end;

不知道是不是这个意思

end.