但在属性里又能看到得!
unit Unit_SelectFiles;interfaceuses
QStdCtrls, Classes, unit_Select;type TSelectFile = class(TButton) Public
Constructor Create(AOwner: TComponent); override;
destructor Destroy; override;
Procedure MyClick(Sender: Tobject);
end;Procedure Register;implementation{ TTSelectFile }constructor TSelectFile.Create(AOwner: TComponent);
begin
inherited;
OnClick := MyClick;
Frm_Select := TFrm_Select.Create(Self);
end;destructor TSelectFile.Destroy;
begin inherited;
end;procedure TSelectFile.MyClick(Sender: Tobject);
begin
Frm_Select.ShowModal;end;Procedure Register;
begin
RegisterComponents('Antique', [TSelectFile]);
end;end.其实很简单的一个button, click显示另一个form
大家看看
unit Unit_SelectFiles;interfaceuses
QStdCtrls, Classes, unit_Select;type TSelectFile = class(TButton) Public
Constructor Create(AOwner: TComponent); override;
destructor Destroy; override;
Procedure MyClick(Sender: Tobject);
end;Procedure Register;implementation{ TTSelectFile }constructor TSelectFile.Create(AOwner: TComponent);
begin
inherited;
OnClick := MyClick;
Frm_Select := TFrm_Select.Create(Self);
end;destructor TSelectFile.Destroy;
begin inherited;
end;procedure TSelectFile.MyClick(Sender: Tobject);
begin
Frm_Select.ShowModal;end;Procedure Register;
begin
RegisterComponents('Antique', [TSelectFile]);
end;end.其实很简单的一个button, click显示另一个form
大家看看
没有'Antique'这个组件页吗?
再不行换一个页面看看。