delphi中动态创建的问题

Question

function Create_object;
var frm_temp: Tform;
    Btn_temp: Tbutton;
    ProgressBar1:=TProgressBar;
begin
  frm_temp:= Tfrm.create(nil);
  frm_temp.caption:= 'XXX';
  btn_temp:= Tbutton.create(frm_temp);
  btn_temp.parent:=frm_temp;
  btn_temp.setBounds(10,10,40,30);
  ProgressBar1:=TProgressBar.Create;
  ProgressBar1.parent:=frm_temp;
  ProgressBar1.setBounds(100,100,400,130);
  frm_temp.show;
end;

Answer 1

好，谢谢！那btn_temp的事件又要怎么写呢？

Answer 2

btn_temp.OnClick := Button1.Click;
&
btn_temp.OnClick := Button1Click;

Answer 3

function create_object;
var frm_temp:tform;
    btn_temp:integer;
begin
   frm_temp:=tfrm.create(nil);
   btn_temp:=createwindow('BUTTON','OK',WS_VISIBLE OR WS_CHILD
  OR BS_PUSHLIKE OR BS_TEXT,
  216,8,75,25,form.handle,0,0,NIL);
  frm_temp.show;
 end;
//btn_temp表示句柄；

Answer 4

在创建控件时应注意控件的
parent属性，你没有设定它当然没有显示啦
btn_temp.parent:=from1;
它的事件是这样写，你可以先写一个过程
在
btn_temp.onclicked;=x;//x为你的过程名