Delphi!!!!

Question

举个例子把:
procedur Test
var 
  Btn_One:TButton;
begin
  Btn_One:=TButton.Create(self);
  Btn_One.Parent=Sender;
  Btn_One.Name="My Btn One";
end;所以说只要定义一个控件变量就可以实现动态添加控件

Answer 1

With TButton1.Create(self) do begin
  Parent := self;
  Caption := TimeToStr(Now);
  
end;

Answer 2

With Tquery.create(nil) do begin
  Sql.Clear;
  Sql.Add('.....');
  execsql;
  free;
end;with tbutton.create(nil) do begin
  caption:=DateToStr(Date);
  Onclick:=Button1click;
end;