一个简单的Delphi问题!

[lovearcher]

case (Sender as TToolButton).Index of
0 :begin
ShowMessage('该功能为客户管理');
end;
1 :begin
ShowMessage('该功能为日程管理');
end;
2 :begin
ShowMessage('该功能为图表分析');
end;


在这里 (Sender as TToolButton).Index 这句是什么意思!希望朋友们能详细解释一下!

[长沙三毛]

1）语句应该是TToolButton的按钮事件处理代码
2）TToolButton 按钮事件处理代码的方法形式为：procedure ToolButton1_Click(Sender: Object);
3）几个按钮共享了代码，Sender就是发布Click事件的按钮对象，于是(Sender as TToolButton).Index表示按钮对象的Index属性值

[lovearcher]

Sender 这个是什么意思呢?

[chenyq2008]

代表控件的索引号吧

[Corn1]

(Sender as TToolButton)
as 表示强制类型转换。
Sender是指这个事件的触发对象。