怎样编写类似opendialog的控件？一定给分！

Question

就是象个form一样！

Answer 1

点“新建”，在Dialogs页就可以新建一个，然后添加你自己想添加的东西

Answer 2

我不是想做form，而是想做一个包含form的控件！

Answer 3

从TOpenDialog继承一个类下来，再改！

Answer 4

最简单的便子:unit Unit1;uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs;type  TForm1 = class(TForm)
  private
    { Private declarations }
  public
    { Public declarations }
  end;
  
  TSampleDial = class(TComponent)
  pubic
    procedure Execute;
  end;implementation{$R *.DFM}procedure TSampleDial.Execute;
var
  Form: TForm;
begin
  Form := TForm1.Create(Application);
  Form.ShowModal;
  Form.Free;
end;end.
end;

Answer 5

最简单的例子:unit Unit1;uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs;type  TForm1 = class(TForm)
  private
    { Private declarations }
  public
    { Public declarations }
  end;
  
  TSampleDial = class(TComponent)
  pubic
    procedure Execute;
  end;implementation{$R *.DFM}procedure TSampleDial.Execute;
var
  Form: TForm;
begin
  Form := TForm1.Create(Application);
  Form.ShowModal;
  Form.Free;
end;end.