怎样给button添加一个属性如count,当click一下时count:=true,第二下count:=fasle

Question

怎样给button添加一个属性如count,当click一下时count:=true,第二下count:=fasle
第三下时count:=true;怎么做??

Answer 1

继承TBUTTON，注意COUNT应该为BOOL类型

Answer 2

添加属性的话得改控件，不方便。你可以利用Tag属性来实现：
procedure TForm1.Button1Click(Sender: TObject);
begin
  if Button1.Tag = 0 then
    Button1.Tag := 1
  else
    Button1.Tag := 0;
end;

Answer 3

i定义为全局变量。初值付为0
procedure TForm1.Button1Click(Sender: TObject);
begin
  if i= 0 then
begin
  count:=true
    i:= 1
end  
else
begin
  count:=fasle
    i:= 0;
end
end;

Answer 4

直接定义全局变量count=false ,
procedure TForm1.Button1Click(Sender: TObject);
begin
  if count 
    count = false
  else
    count = true;
end;

Answer 5

sysu(死树),如果要添加属性,怎么做,举个例子?谢谢!

Answer 6

一般showhint用不到,可以利用这一属性.只要hint就行.

Answer 7

private
  count:boolean;
....
procedure TForm1.Button1Click(Sender: TObject);
begin
  count:= not  count; ／／更简单
end;

Answer 8

tnewbutton = class(tbutton)
count:boolean;
...