包括组件的Load,组件的Create,窗体的Load,窗体的Create,等等的顺序
解决方案 »
- 关于AddVectoredExceptionHandler
- 如何实现delphi切图
- sql语句出错,求救。
- 关于delphi对象销毁及内存泄漏的问题,谢谢各位!
- 原来的程序中type library 中的一些名称可以同名,而改写后怎么却不能同名了
- 谁见过这种方法,一个字:绝!(有见地的回帖都有分)
- 请问如何改变MainMenu菜单的大小、如何设置菜单项Caption的属性、如何改变状态栏中显示的文字的颜色中?谢谢!
- ADO+access中查找相同编号的问题,在线等待!!
- 一个有关locate的很急的问题,再线等待...
- socket IdUDPServer1如何发送UDP广播报255.255.255.255
- 怎样获取窗口句柄???
- 请教windowsmediaplayer1控件的用法!在线等待!!!!
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls;type
TTestBtn=class(TButton)
public
constructor Create(AOwner:TComponent);override;
end;
TForm1 = class(TForm)
procedure Button1Click(Sender: TObject);
procedure FormCreate(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;var
Form1: TForm1;
TestBtn:TTestBtn;implementation{$R *.dfm}procedure TForm1.Button1Click(Sender: TObject);
beginend;{ TTestBtn }constructor TTestBtn.Create(AOwner: TComponent);
begin
Inherited;
ShowMessage('偶被创建了');
end;procedure TForm1.FormCreate(Sender: TObject);
begin
TestBtn:=TTestBtn.Create(Self);
TestBtn.Parent :=Self;
end;initialization
RegisterClass(TTestBtn);end.
fs的例子很好
先是组建的create,然后才是form的create