我是Delphi新手
发现很多过程中用到Sender这个参数
对其函意很是蒙胧,请各位大虾多多指点
小弟在此拜谢
解决方案 »
- ADO的 RECORDSET 的 RecordCount 返回为-1,为何?
- 请教大家Image1.Picture.LoadFromFile(PicFileName)这句话是什么意思,能不能把它格式的意思给具体说下,初学者,谢谢大家!
- 通过扫描图片得到的HRGN,创建不规则窗体,如何保存HRGN到文件,避免每次扫描
- 还有8个小时,Turbo Delphi就发布了。
- 有关错误的捕捉
- AdoQuery中的记录查找问题
- D6中如何查看多个数据库组件之间联系的Diagram?
- 在DELPHI中如何调用存储过程?
- shellexecute对应的在NT下的API涵数是什么???急!!!谢谢!
- 各位老大,给一个VCL控件吧,有没有,带有动画的SPEEDBUTTON,像OICQ里的那种
- 升星,告别。散分。
- windowsmediaplayer的奇怪问题,请问怎么解决?
由于Delphi中对象是以控件名称存在于Form中的,所以一般很少会用到此参数。但Sender一般只能处理程序内部对象,对于程序以外对象产生的消息,它通常收不到的。
begin
if Assigned(FOnCreate) then
try
FOnCreate(Self);
except
if not HandleCreateException then
raise;
end;
if fsVisible in FFormState then Visible := True;
end;------
FOnCreate(Self);就是你定义的oncreate事件
//隅砱珨跺聆彸腔源楊
procedure TForm1.SenderTest(Sender: TObject);
begin
//彆覃蚚腔岆TButton勤砓
if Sender is TButton then
begin
ShowMessage('Sender is Button');
//党蜊Caption扽俶
TButton(Sender).Caption := 'Sender 0';
end;
end;procedure TForm1.Button1Click(Sender: TObject);
begin
SenderTest(Sender);
end;
Sender is TButton 当事人种类(中国人,外国人,黄种人...)TButton(Sender).Caption 当事人名字....