__________如何__动态创建控件

Question

如1,何动态创建控件，2,设置控件属性，3,建立控件相关响应事件，4,执行相关响应事件。？？？？？？//用代码创建一个按钮
procedure TForm1.FormShow(Sender: TObject);
var
  mybutton : TButton ; 
begin
     mybutton := TButton.Create(Self);    
with mybutton do
begin
         Parent := form1 ;    
         Align := altop ;
         Caption := '这是一个代码创建的控件' ;
end ;
end;用代码创建控件，设置控件属性 都好了，3,建立控件相关响应事件，4,执行相关响应事件， 怎么做呢？

Answer 1

3,建立控件相关响应事件procedure TForm1.FormShow(Sender: TObject);
var
  mybutton : TButton ; 
begin
  mybutton := TButton.Create(Self);    
  with mybutton do
  begin
    Parent := form1 ;    
    Align := altop ;
    Caption := '这是一个代码创建的控件' ;
    OnClick := DoMyButtonClick;
  end ;
end;

Answer 2

4,执行相关响应事件TForm1 = class;
private
  procedure DoMyButtonClick(Sender: TObject);
...
end;procedure TForm1.DoMyButtonClick(Sender: TObject);
begin
  //Do something here......
end;

Answer 3

大哥 我这里还有个问题，能麻烦你帮我解答下吗？   谢谢你了哈~http://bbs.csdn.net/topics/390609246