界面(100分)

X

xuhu

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-02-03

• #1

如何实现按一个按钮就出现一个下拉菜单

 

K

Kang

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-02-03

• #2

TForm1.Button1Click( sender:tobject);
var x,y:integer;
begin
x:=
y:=
PopupMenu1.Popup(x,y);
end;

 

远

远帆

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-02-03

• #3

用popupmenu就可以实现

 

D

dongberlin

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-02-03

• #4

在你的Form1中加入一个Button1和PopupMenu1,然后在Button的OnClick中入以下代码：
procedure TForm1.Button1Click(Sender: TObject);
begin
Button1.PopupMenu.Popup(Button1.Left+Form1.Left+3, Form1.Top+Button1.Top+
+Button1 .Height+Form1.Height-Form1.ClientHeight-6);
end;

 

3

3h

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-02-03

• #5

如果你用的是普通的按钮则可以按楼上说的做。
如果你用的是ttoolbar上的tToolButton，则只需要设置它的DropDownMenu成那个POPMENU即可。

 

花

花 儿

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-02-03

• #6

对呀，楼上都说了阿

 

L

lujr

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-02-04

• #7

PopupMenu

 

D

djdsz

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-02-04

• #8

var
p:TPoint;
begin
GetCursorPos(p);
Popupmenu1.Popup(p.x,p.y);
end;

 

D

Delphi XP

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-02-04

• #9

赞同一上!

 

G

ghg_qh

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-02-04

• #10

是一般按钮?

 

L

lzhuan

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-02-04

• #11

同意

 

N

net_2001

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-02-04

• #12

楼上的答案一定够你用的了。

 

X

xuhu

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-02-07

• #13

我问一下，Popupmenu则实现按右键出现下拉菜单，而我想实现的是如何实现按下左键可以出现一个下拉菜单

 

D

dhl2001

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-02-07

• #14

有一个属性可以设置呀，
trackbutton:=tbleftbutton

 

孙

孙靖

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-02-07

• #15

我想问一下，如果没有click按钮，如何实现在空白的form上实现按下右键出现下拉菜单

 

孙

孙靖

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-02-07

• #16

？？？？

 

D

dhl2001

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-02-07

• #17

form1.popupmenu:=popupmenu1;

 

A

Adnil

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-02-07

• #18

To xuhu：
你在button的mousedown事件里面写不就行了？
当然得判断MouseButton为mbLeft

 

孙

孙靖

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-02-07

• #19

to dlh2001:form1.popupmenu:=popupmenu1放在哪个事件里，我怎么试不成功

 

晓

晓风月

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-02-07

• #20

大家给你讲得方法已经完全可以解决你的问题了。
先动手做吧。