但在属性里又能看到得!
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
大家看看