盒子论坛 v2.1

我用了一组TSPEEDBUTTON，它们的功能相似，我用从本站学的方法用一个函数响应它们所有的单击事件，但是在函数内部，又要有细微的差别需要区分它们哪个是哪个，请各位大虾赐教我该怎么办？
  本来我尝试用它们的名字来区分，但程序单步运行到case行就报错，代码如下：
procedure TFormSystemSet.CPUButtonClick(Sender: TObject);
begin
  if Sender is TSpeedButton then begin
    case TSpeedButton(Sender).Name of
  'SpeedButton0':
  'SpeedButton1':
  'SpeedButton2':
  'SpeedButton3':
  'SpeedButton4':
  'SpeedButton5':
  'SpeedButton6':
  'SpeedButton7':
  'SpeedButton8':
  'SpeedButton9':
    end;
  end;
end;

----------------------------------------------
-在哪里，在哪里见过你，你的笑容那样熟悉，我一时想不起...

作者：

bios (阿贡)	★☆☆☆☆	-
	盒子中级会员

2004/1/4 10:23:49

1楼：

pascal的CASE 语句对字符串支持是很麻烦要转弯！
所以建议用case TSpeedButton(Sender).tag of
    0:
    1:
    ........
    9:
    end;
----------------------------------------------

作者：

asklaibao (laibao)	★☆☆☆☆	-
	盒子活跃会员

2004/1/4 10:25:50

1楼：

case 语句中必须使用“顺序类型”，而不是'SpeedButton9'这样的名称。

可以考虑使用tag属性，如：

  if Sender is TSpeedButton then begin
    case TSpeedButton(Sender).Tag of
       0:
       1:
       .....
    end;
    end;
----------------------------------------------
-我是天空一片云，漂泊天涯无定所
|    __  o |__   __   __
|_, (__( | |__) (__( (__)

作者：

cherryjing (菜菜)	★☆☆☆☆	-
	普通会员

2004/1/4 10:32:41

2楼：

谢谢各位指点迷经，我还有一个很菜的问题请教各位？Form 和 Frame 在使用上有何区别？
----------------------------------------------
-在哪里，在哪里见过你，你的笑容那样熟悉，我一时想不起...

作者：

chen56 (无知无觉)	★☆☆☆☆	-
	盒子活跃会员

2004/1/4 16:35:33

3楼：

function返回一个参数不就行了嘛！
调用时，不同的button加个不同的参数就行了！
----------------------------------------------
-

作者：

sephil (NAILY Soft)	★☆☆☆☆	-
	盒子中级会员

2004/1/4 17:12:51

4楼：

你可以把Frame理解为内嵌的窗体
即把窗体作为一个控件来用
----------------------------------------------
Copyright 2008 ? NAILY Soft

Click here to redirect to my home
Click here to redirect to my blog

作者：

zxdcj (月下舞者)	★☆☆☆☆	-
	盒子活跃会员

2004/1/4 17:35:40

5楼：

3楼的大哥，请问如何用function返回这个参数啊？谢谢！
----------------------------------------------
-

作者：

s_orry (1岁)	★☆☆☆☆	-
	盒子活跃会员

2004/1/4 17:53:24

6楼：

function setbutton(btn:Tspeedbutton):返回类型；
begin
.....
end;
----------------------------------------------
不爱我-就别靠近我。

信息

登陆以后才能回复