易截截图软件、单文件、免安装、纯绿色、仅160KB

Delphi处理事件函数中的Sender: TObject代表什么?

下面这个按钮点击事件中,Sender代表谁?
Delphi(Pascal) code:
procedure Tsomain.ToolButton1Click(Sender: TObject);


是代表事件的拥有者吗?
Delphi(Pascal) code:


procedure TForm1.Button1Click(Sender: TObject);
begin
ShowMessage(Sender.ClassName);
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
Button1Click(Button2);
Button1Click(Form1);
end;





看这样子好明白吗? :)

代表响应这个事件的当前的控件
比如你上面那个事件,sender就是被点击的那个按钮


按照语义来说是被触发的那个控件

当然也并不一定 如果自己调用这个参数可以传任意对象

代表响应这个事件的当前的控件;ToolButton1的click事件.
当然也并不一定 如果自己调用这个参数可以传任意对象;


向下转型的类参数,用处还有很多


相关问答:

delphi 异步线程

delphi 异步线程怎么怎么实现?
请各位大佬帮忙!
最好有个实例!
多谢

你不同步就是异步了,还写啥

默认情况下,线程就是异步的…………*^_^*

估计楼主同步和异步概念都没弄清

真无语。。可 ......

Delphi中数据库查询的疑惑

昨晚在Delphi数据库查询中遇到了一个疑惑。代码如下:
procedure TFormSearchAchievement.ComboBoxXYChange(Sender: TObject);
var
  XY : string;
begin
  XY := comboboxxy.Items[comboboxx ......

delphi动态数组如何去掉一个元素

procedure DynArrayDelete(var A;elSize:Longint;index,Count:Integer);
var
len,MaxDelete:Integer;
P:PLongint; //4 个字节的长整形指针
begin
P:=PLongint(A);// 取的 A 的 ......

delphi中select 的 where后面的id=变量怎么写啊

我的程序中有一段更新某一条记录的语句:
var
id:=integer;
begin
id:=strtoint(edit1.text);//edit1.text的值已经取得;
...
...
...
adoQuery1.sql.add('update 计划清单表 set 计划日 ......

如何在delphi里用代码实现创建VPN连接?

我的代码如下,怎么总提示连不成功:
type
  GUID = record //申明调用RAS(创建VPN连接用)函数所需结构体
  Data1: integer;
  Data2: Shortint;
  Data3: Shortint;
  ......
© 2009 ej38.com All Rights Reserved. 关于E健网联系我们 | 站点地图 | 赣ICP备09004571号