Question

delphi 7.0中 Inputbox 调用窗口的 具体用法

Answer 1

procedure TForm1.Button1Click(Sender: TObject);
begin
--InputBox('姓名','请输入姓名','姓名测试');直接赋值
Edit1.text:=InputBox('姓名','请输入姓名','姓名测试')
end;
--这个也可以inputQuery('输入查询条件','姓名为',newstring);
procedure TForm1.Button2Click(Sender: TObject);
var
newstring:string;
begin
inputQuery('输入查询条件','姓名为',newstring);
--调用 self.ADOTable1.Locate('Sname',newstring,[loPartialKey])
end;