procedure TForm1.SpeedButton1Click(Sender: TObject)
经常看到这个sender
后面又可以引用比如sender.classname.....
经常看到这个sender
后面又可以引用比如sender.classname.....
解决方案 »
- 两台不同局域网的内网电脑,都连接上了互联网,有没办法实现PC1远程控制PC2 ??
- 把一个panel和里面所包括控见所显示的都打印出来。 为什么这个打印是白色的什么都没有呢? 关于如何将panel中的内容打印出来
- [急帖]问下高手,SOCKET连接中存活包的发送时间间隔多少合适啊,400个客户端左右!
- 让TStrings支持Unicode!
- 大家认为together for delphi什么时候会出?欢迎讨论,人人有分
- 为什么我获取不到QQ文本框的文字呢?
- 如何写这个Store Procedure
- 关于控件制作的两个问题
- 呵呵,重新改版的CSDN悦目许多^_^
- 有在“北京思元软件有限公司 ”工作或工作过的吗,这公司怎么样
- 如何在登录窗体后再启动MDI主窗体??
- 数据查询出问题急要啊,例外求打印问题!!!!!
在你上面的事件中,就是指的SpeedButton1它自己了.多看看书吧.^___^
with Sender as TSpeedButton 当作TSpeedButton 还用
begin
end;看到你另外一个问题 "初学delphi的困惑!", 这就是对像多态的一种用法delphi 中强制所有类从 TObject 派生而不理会你是否申明了从 TObject 派生, 比方 TFoo = class; 这样的 TFoo 也是 TObject 子类(隐式)
TObject 提供了对像的 RTTI 支持, 这样就可以对 delphi 所有对像作 is/as 操作
由于 TObject 是所有类的基类, 所以 Sender 就用 TObjectdelphi VCL 本身就是一个很好的面像对像结构, 主要部分是
TObject 支持 RTTI
|
TPersistent 支持持久化对像
|
TComponent 支持 Name 这种东东, 本身是 delphi magic
|
TControl 支持可视组件
|---------------------------------------|
TWinCotnrol Windows 可视组件 TGraphicsControl 图形组件等等等, delphi 光盘上应该有个 pdf 的文件是整个这样的图
其实,它只是变量名称,
if Sender is TButton then \\先判断是不是 TButton
with Sender as TButton do \\强制转换为TButton
begin end;