Question

delphi里面toolbutton按钮我想按一下之后DOWN=TRUE 再按一下之后等于FALSE请问高手们怎么做!

并且我要给它添加图片 按照网上的方法都不可以,希望给一个可行的方法!谢谢
按一下之后DOWN=TRUE 再按一下之后等于FALSE 可以重复的来回使用

Answer 1

procedure TForm1.ToolButton1Click(Sender: TObject);
var
down : boolean;
begin
toolbutton1.Tag := toolbutton1.Tag + 1;
down := odd(self.ToolButton1.Tag);
end;

追问

请问你给我的是添加图片的吗?再说我放在那里也行不通啊?求解释 对了 还要请教一个问题哦,最主要的我现在是想点一下toolbutton之后按钮成为DOWN状态的时候我想给鼠标定义一个命令 只要我不取消DOWN的状态, 鼠标里面就一直存在这个状态,请问怎么做啊

追答

加图片可以再添加一个Imagelist控件，双击可以进去add图片

然后与你的toolbutton所属的toolBar建立联系，方法为把toolbar1的images属性选择你之前添加的Imagelist，然后boolbutton的imageindex属性选择imagelist相应的图片编号即可

‘最主要的我现在是想点一下toolbutton之后按钮成为DOWN状态的时候我想给鼠标定义一个命令 只要我不取消DOWN的状态’
这句没表述明白，不知所云

追问

就是我按下toolbutton1按钮之后按钮不就陷进去了吗 这个同时 我的鼠标就一直处于自定义的鼠标状态(cursor) 然后我再点一下按钮之后 按钮就不陷进去了,出来了,同时鼠标的状态也还原到箭头了了!其他问题都解决了 ,就差这个了!你是狠人啊 呵呵

追答

说直接的是不是点第一下是一个CURSOR风格，再点一下就再切换另一种cursor风格吗

procedure TForm1.ToolButton1Click(Sender: TObject);
var
down : boolean;
begin
toolbutton1.Tag := toolbutton1.Tag + 1;
down := odd(self.ToolButton1.Tag);
if down then
toolbutton1.Cursor := crHandPoint //手的形状
else
toolbutton1.Cursor := crArrow; //箭头形状
end;