蔡鸟问

Question

有没有像vb中Inputbox那样的控件阿？
如果想点击Button后弹出另一个form增莫写啊？？

Answer 1

有，试试
var
  m:string;
begin
  inputquery('标题','请输入:',m);

Answer 2

添加一个form;然后在form1中uses unit2;
button1.onclick();
begin
form2.show;
end;var
  Form1: TForm1;implementation
uses unit2;
{$R *.dfm}procedure TForm1.Button1Click(Sender: TObject);
begin
  form2.Show;
end;