5,392
社区成员
发帖
与我相关
我的任务
分享请发表友善的回复…
发表回复
joky1981 2003-01-24
- 打赏
- 举报
如上，自己在OnClick事件中处理
xiaocuo_zrf 2003-01-23
- 打赏
- 举报
新建一个Form
上面放一个按钮
button和popupmenu注意button一定要放在Form的下变脚
然后再button的click中输入
var
rect: trect;
begin
rect := button1.BoundsRect;
MapWindowPoints(button1.Parent.Handle, 0, rect, 2);
popupmenu1.Popup(rect.Left, rect.top);
end;
上面放一个按钮
button和popupmenu注意button一定要放在Form的下变脚
然后再button的click中输入
var
rect: trect;
begin
rect := button1.BoundsRect;
MapWindowPoints(button1.Parent.Handle, 0, rect, 2);
popupmenu1.Popup(rect.Left, rect.top);
end;
windstrom 2003-01-22
- 打赏
- 举报
procedure TForm1.Edit1MouseDown(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
Var p: TPoint;
begin
IF ssleft in shift then //鼠标左键
Begin
GetcursorPos(p);
PopupMenu1.Popup(p.x, p.y);
End;
end;
Shift: TShiftState; X, Y: Integer);
Var p: TPoint;
begin
IF ssleft in shift then //鼠标左键
Begin
GetcursorPos(p);
PopupMenu1.Popup(p.x, p.y);
End;
end;
wuwoczj 2003-01-22
- 打赏
- 举报
procedure TForm1.Label1MouseDown(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
Var p: TPoint;
begin
IF button = mbLeft then
Begin
GetcursorPos(p);
PopupMenu1.Popup(p.x, p.y-PopupMenu1.Items.Count*20);
End; //--此处的坐标可以控制显示的位置；
end;
Shift: TShiftState; X, Y: Integer);
Var p: TPoint;
begin
IF button = mbLeft then
Begin
GetcursorPos(p);
PopupMenu1.Popup(p.x, p.y-PopupMenu1.Items.Count*20);
End; //--此处的坐标可以控制显示的位置；
end;
纯冰糖 2003-01-22
- 打赏
- 举报
楼上几位的代码都是可以的
leaya11 2003-01-21
- 打赏
- 举报
自己做一个FORM，WIN2000下有一个API，可以由下到上出现。M$的开始菜单也是个FORM
haitian 2003-01-21
- 打赏
- 举报
PopupMenu1.Popup
snake_eye 2003-01-21
- 打赏
- 举报
好象有资料是实现象window开始菜单的东东，找一下。
jackie168 2003-01-21
- 打赏
- 举报
上面的兄弟,樓主是要上彈式,而不是下拉式的......
類似Windows9x 的"開始"按鈕
呵呵....
----------------
俺不知道哪里有這樣的控件...
先頂一下...
類似Windows9x 的"開始"按鈕
呵呵....
----------------
俺不知道哪里有這樣的控件...
先頂一下...
poleax 2003-01-21
- 打赏
- 举报
sorry, 上面有一句写错了
IF button = mbLeft then
IF button = mbLeft then
poleax 2003-01-21
- 打赏
- 举报
//Example:
procedure TForm1.Edit1MouseDown(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
Var p: TPoint;
begin
IF button = mbRight then
Begin
GetcursorPos(p);
PopupMenu1.Popup(p.x, p.y);
End;
end;
procedure TForm1.Edit1MouseDown(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
Var p: TPoint;
begin
IF button = mbRight then
Begin
GetcursorPos(p);
PopupMenu1.Popup(p.x, p.y);
End;
end;
wangzn1979 2003-01-21
- 打赏
- 举报
使用popup menu,在OnClick事件中
idilent 2003-01-21
- 打赏
- 举报
popmenu是上弹还是下弹是由于点击的位置决定的，如果按钮在form的最下面，可能就会向上。
