delphi中过程procedure,在其括号里往往有(Sender:Tobject)
这是做什么的,在学校过程中经常遇到不懂的数据类型,如何解决
谢谢
这是做什么的,在学校过程中经常遇到不懂的数据类型,如何解决
谢谢
解决方案 »
- 如何判断一个文件是否正在被使用???
- 讨论下:关于DBGrid控件复制栏位值会导致其他栏位错乱的问题
- 论:为什么delphi不能走开源之路???
- 如何根据某条件动态修改cxgrid中的某列的值和颜色?
- 我周日想去参加中软应届生招聘会。请问中软怎么样呀?
- 关于数据优化的问题!
- 查询结过保存到新的数据库,怎样用进度条表示过程,实现就给分
- 如何判断一个数组?
- 急!!一个查询功能的实现
- 用ADO连接SQL2000数据库,数据库中有触发器,前台采用缓存更新模式,会出现很多问题,不知道各高手是否曾如此使用,如何解决?
- TMemoryStream数据流存储到数据库和读取问题
- Delphi ADO 连接 Excel 2010
Sender是一个TObject类型的参数,它告诉Delphi哪个控件接收这个事件并调用相应的处理过程。你可以编写一个单一的事件处理句柄,通过Sender参数和IF…THEN…语句或者CASE语句配合,来处理多个构件。发生事件的构件或控件的值已经赋给了Sender参数,该参数的用途之一就在于:可以使用保留字IS来测试Sender,以便找到调用这个事件处理句柄的构件或控件的类型。例如,将表单中编辑框和标签的Click事件的处理句柄都指向表单的xxx过程,编辑框和标签对Click事件有不同的反应:
procedure TForm1 xxx(Sender:TObject);
begin
if(sender is Tedit) then
showmessage(′this is a editbox′);
if(sender is Tlabel) then
showmessage(′this is a label′);
end;
Sender参数的第二个用途是结合AS操作符进行类型转换,将若干个派生于某一父类的子类强制转换成该父类。例如表单中有一个TEdit类控件和一个TMemo控件,它们实际上都派生于TcustomEdit类,如果你要为二者的某一事件提供同样处理,可以将二者事件句柄都指向自定义的过程yyy:
Procedure TForm1.yyy(Sender:TObject);
begin
(sender as TcustomEdit).text:=′This is some demo text′;
end;
在过程中,AS操作符将TEdit类和TMemo类均强制转换成TcustomEdit类,再对TcustomEdit类的属性赋值。注意这种转换必须符合Delphi中类的层次关系。
使用Sender参数可以通过单一过程段处理多类控件,真正体现了Delphi面向对象的重用性。
Sender就是Button1