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数据库查询中遇到了一个疑惑。代码如下:
procedure TFormSearchAchievement.ComboBoxXYChange(Sender: TObject);
var
XY : string;
begin
XY := comboboxxy.Items[comboboxx ......
procedure DynArrayDelete(var A;elSize:Longint;index,Count:Integer);
var
len,MaxDelete:Integer;
P:PLongint; //4 个字节的长整形指针
begin
P:=PLongint(A);// 取的 A 的 ......
我的程序中有一段更新某一条记录的语句:
var
id:=integer;
begin
id:=strtoint(edit1.text);//edit1.text的值已经取得;
...
...
...
adoQuery1.sql.add('update 计划清单表 set 计划日 ......
我的代码如下,怎么总提示连不成功:
type
GUID = record //申明调用RAS(创建VPN连接用)函数所需结构体
Data1: integer;
Data2: Shortint;
Data3: Shortint;
......