关于delphi动态加载控件，在线

Question

unit Unit1;interfaceuses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;type
  TForm1 = class(TForm)
    Button1: TButton;
    procedure Button1Click(Sender: TObject);
    procedure FormDestroy(Sender: TObject);
  private
    { Private declarations }
  public
        m_btn:TButton;
        procedure MyButtonClick(Sender:TObject);
    { Public declarations }
  end;var
  Form1: TForm1;implementation{$R *.dfm}procedure TForm1.MyButtonClick(Sender:TObject);
begin
        showmessage('嘿嘿');
end;procedure TForm1.Button1Click(Sender: TObject);
begin
        m_btn:=Tbutton.Create(self);
        m_btn.Parent:=self;
        m_btn.Left:=100;
        m_btn.top:=100;
        m_btn.Width:=100;
        m_btn.Height:=50;
        m_btn.Caption:='Click me!!!!!';
        m_btn.OnClick:=MyButtonClick;
end;procedure TForm1.FormDestroy(Sender: TObject);
begin
        try
                m_btn.Free;
        except        end;
end;end.

Answer 1

测试，上面的例子：只须在from放一个button1，在onclick里加入：
m_btn:=Tbutton.Create(self);
m_btn.Parent:=self;
m_btn.Left:=100;
m_btn.top:=100;
m_btn.Width:=100;
m_btn.Height:=50;
m_btn.Caption:='Click me!!!!!';
m_btn.OnClick:=MyButtonClick;