如何动态使用构件和控件

[RunInQuake]

如何动态创建和显示一个构件或控件。
比如说是一个TButton,TLabel，TListBox,TComboBox，或者是一种第三方的ActiveX控件等等,想响应某一事件创建并显示它。
比如

TForm1.OnButtonClick(Sender:TObject)
var
MyButton:TButton
begin
..... //想在这里创建并显示
{
MyButton:=TButton.Create...
MyButton.Name:=..
MyButton.Caption :=
MyButton.Visible:=
} //这一段不行。

end;

MyButton对象应该定义在哪里？定义在上面这个过程里还是定义在Form类里，因为
我还要这个MyButton响应一些事件，支持拖动，等等。
最后如何删除。 Free就可以了吗？

初学Delphi，请多指教。谢谢

[yukuang]

指定
myButton.Parent:=Form1;
就可以显示了。至于怎么响应它的事件。关注。。。

[yukuang]

事件：
unit Unit1;

interface

uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
StdCtrls;

type
TForm1 = class(TForm)
Button1: TButton;
a:TButton;
procedure Button1Click(Sender: TObject);
procedure AClickEventHandler(sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;

var
Form1: TForm1;

implementation

{$R *.DFM}
procedure TForm1.AClickEventHandler(sender: TObject);
begin
Showmessage('Hello!');
end;

procedure TForm1.Button1Click(Sender: TObject);

begin
a:=Tbutton.Create(self);
a.Caption:='abc';
a.Parent:=Form1;
a.OnClick:=AClickEventHandler;
end;

end.

[SGP]

一定要指定parent属性为当前的载体，如mybottom.parent:=myform,也可以在其它控件中显示此控件，如MyBottom.parent:=MyPanel，这可使MyBottom显示在MyPanel中。

[RunInQuake]

这一点拨就明白了。
我发现定义的对象好象在哪里都无所谓的，在过程里定义都可以。
在过程里定义的不是局部的吗？为什么离开了该过程还是可以显示按钮和响应点击？
怎么样把他删除掉？
我对Delphi 的内存对象又糊涂了，我以前是用vc的。

[jeaking]

你定义的TButton类型的变量其实只是一个对象的一个引用，实质就是一个指针。
真正的对象是通过TButton.Create(Owner)创建的，引用消失并不等于对象也消失，
只是你无法通过这个引用操纵它（当然也可以通过别的引用），对象随它的Owner
消失而消失，对象的Parent属性是决定它的显示位置的。

[jeaking]

你定义的TButton类型的变量其实只是一个对象的一个引用，实质就是一个指针。
真正的对象是通过TButton.Create(Owner)创建的，引用消失并不等于对象也消失，
只是你无法通过这个引用操纵它（当然也可以通过别的引用），对象随它的Owner
消失而消失，对象的Parent属性是决定它的显示位置的。想要释放对象用.free方法
或.destory方法。

[TopCat]

procedure TForm1.MyClick(Sender:TObject);
begin
//事件处理代码
end;

然后写
myButton.OnClick := MyClick;
就可以了

[bill_lasker]

练习过自己做控件这个问题就会解决了