高手请进：如何实现不使用插入对象对话框插入一个对象？

Question

你说的是加入控件么？
如果是，则
以在form中加入一个Tedit为例：
unit form1;interfaceuses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  StdCtrls, ExtCtrls;type
  Tform1 = class(TForm)
    Button1: TButton;
  private
    { Private declarations }
  public
    { Public declarations }
  end;var
  form1: Tform1;
  Edit1:Tedit;
implementation{$R *.DFM}procedure Tform1.Button1Click(Sender: TObject);
begin
  Edit1:=Tedit.create(self);
  Edit1.parent:=form1;
  Edit1.Top:=50;
  Edit1.Left:=60;
end;
end.

Answer 1

多谢，我要插入的是一个系统的对象，比如“BMP 图像“,好像word中的插入-〉对象-〉插入对象对话框我的意思就是不使用对话框，

Answer 2

声名一个对象相对应的类，以bitmap为例
procedure ...
var 
  MyImage:Tbitmap;
begin
  MyImage:=Tbitmap.Create;
  MyImage.LoadFromFile('File.ico')
  Draw(0,0,16,16,myimage);
end;
  

Answer 3

to neubird:
  如何得知系统中的对象的类呢？
  

Answer 4

实际上是一个OLE对象，要实现插入对象对话框的功能。
请大家继续讨论。

Answer 5

说详细点，就是在允许插入OLE对象的控件上，插入一个对象，可又不想让用户选择对象（有可能他们不知是哪个对象），我想做一个Botton,或菜单，点击就可以插入（打开）相应的对象。可我不知如何得到系统已注册的OLE对象，如何插入一个OLE对象。
请大家帮帮忙。

Answer 6

说详细点，就是在允许插入OLE对象的控件上，插入一个对象，可又不想让用户选择对象（有可能他们不知是哪个对象），我想做一个Botton,或菜单，点击就可以插入（打开）相应的对象。可我不知如何得到系统已注册的OLE对象列表，如何插入一个OLE对象,
请大家帮帮忙。 

Answer 7

用函数
CreateObjectFromFile；