分放完了，问题还有一点．传递值的问题！

Question

窗体一
public
  xx:string;  { Public declarations }
  end;
procedure TForm1.DBGrid1dblclick(Sender: TObject);
begin
xx:=DBGrid1.SelectedField.DisplayText;
form2.Show;
form2.Label2.Caption:=xx;
form2.Label1.Caption:=xx+'的情况如下';
end;
窗体二中
procedure TForm2.FormCreate(Sender: TObject);
begin
ADOQuery1.Close;
ADOQuery1.sql.Clear;
ADOQuery1.SQL.Add('select * from ry where name='+quotedstr(form1.xx));／／这里为什么为空？
end;

Answer 1

窗体二中要使用窗体一。uses
  unitform1;

Answer 2

那你是不是把form1关了哪，如 form1.close;或form1.free; 就错了应 form1.hide;