| MyButton := TButton.Create(self);
MyButton.Parent := self;
//告诉创建方法在Form1中显示MyButton
MyButton.Caption := '测试一';
MyButton.OnClick := MyButtonClick;
MyButton.Show;
end; procedure TForm1.MyButtonClick(sender:TObject);
begin
Application.MessageBox(PAnsiChar(TButton(sender).Caption)
,'Test Component');
TButton(sender).Caption := '测试二';
end; initialization {可选的初始化部分}
//
finalization {结束部分}
// end. {End结束符} |
6.Sender参数:
看上面程序代码发现事件处理程序的参数中,至少含有一个参数Sender,它代表触发事件处理程序的组件,有了Sender参数,可以使多个组件共用相同的事件处理程序.
7.Self参数:
Self是指所编的程序范围是在哪一个类中,Delphi中大都在窗体范围内编程,因此,Self即指窗体,如果在编写一个类或是一个组件,则Self指该类或该组件.我们在过程和函数的声明中可以看出Self是代表哪个组件,即Self代表"."号之前的组件.另外应注意,Self只能用在类方法中,而不能用在过程或函数中.如下列是错误的:
| Function a1(B:Integer):Integer;
begin
...
Button := TButton.Create(self);
...
end; |
8.Parent和Owner的区别:
(1):Parent属性是指组件的包容器,组件只能在此范围内显示和移动.
(2):Owner属性是指组件的所有者,它负责组件的创建和释放.Create方法应带有表示组件
所有者的参数.
(3):它们都是运行阶段的属性,只能通过代码设置. 作者网站:http://asp.itdrp.com/hottey
|
