help me……关于SpeedButton! (高手哪去了？？？？？) (50分)

P

popewh

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-11-04

• #1

SpeedButton的mousedown事件中将popupmenu给popup出来，当popupmenu消失后，
SpeedButton.Down却为true,为什么？？？诸位高手请出来指点江山

 

P

popewh

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-11-04

• #2

忘了说，我不想用消息处理

 

J

jsxjd

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-11-04

• #3

这是因为 speedbutton 没有执行 Mouse up

procedure TForm1.SpeedButton1Click(Sender: TObject);
var
p:tpoint;
begin
getcursorpos(p);
popupmenu1.popup (p.x,p.y)
end;

 

S

sky2008

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-11-04

• #4

用Toolbar比较好点
设置ToolButton1的DropdownMenu属性就可以了

 

Y

yaya8163

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-11-05

• #5

要么用Toolbar的group属性，要么当popupmenu消失后
SpeedButton.Down负值为false

 

F

faguobali

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-11-05

• #6

同意sky2008的：
用如下方法即可实现我：
1.放一个controlbar
2.放一个toolbar到controlbar上
3.放一个ImageList,添加图标
4.放一个popupmenu,添加若干菜单项
5.在toolbar上点右键
6.然后new toolbutton多个
7.全选toolbutton1，toolbutton2,toolbutton3...，另Grouped:=true
8.设置toolbutton1.style=tbsButton,
toolbutton2.style=tbsButton,
toolbutton3.style=tbsButton...
9.设置toolbutton1.menuitem,toolbutton2.menuitem,toolbutton3.menuitem...
10.toolbar.flat:=true;
11.controlbar.docksite:=true;
12.toolbar.dragkind:=dkdock;
界面在ＸＰ下也挺不错的，有Ｄ６组件栏的风格。

 

P

popewh

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-11-05

• #7

to yaya8163:如何捕捉popupmenu消失的事件

to faguobali:toolbar 如何做到将一部分toolbutton的caption显示出来，一部分不显示，
别告诉我再用BitButton，因为我要Flat属性

 

F

faguobali

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-11-05

• #8

showcaption:=true;
and you don't want it show caption,
let the caption of the toolbutton ' '.
ok?!

 

P

popewh

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-11-05

• #9

那么如何设置toolbutton的宽度，有Caption的宽度和没有Caption的宽度不能相同吧

 

一

一箭穿心

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-11-05

• #10

在SpeedButton的mousedown事件中将popupmenu给popup出来的语句后加一条语句
将SpeedButton.Down的属性值改为false

 

P

popewh

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-11-05

• #11

to：一箭穿心
我试过不好用

 

F

fu_qi_ming

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-11-06

• #12

在speedbutton的onclick事件中写你的代码

 

P

popewh

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-11-06

• #13

没那么简单，请诸位高手试通后再发言

 

F

faguobali

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-11-06

• #14

up

 

陈

陈晨

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-11-06

• #15

鼠标按下了焦点在popmenu上，然后
焦点转移，没有回到speedbutton上，
不响应mouseup事件，perform消息呵呵呵还是不行，
怕了你了

 

P

popewh

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-11-08

• #16

实在解决不了了，不过多少也得到一些收获，算了吧，发分吧