Question

delphi 数据读取的简单问题

我的form1是登录界面 “edit1”处输入用户名，通过一个“按键”实现数据确认后进入form2。 我希望在form2中建立一个“DBEdit1”，使这个“DBEdit1”关联着上面form1的“edit1”中输入的数据，并且以灰色（不能修改）的方式显示在“DBEdit1”上。
请问我应该在form2“DBEdit1”（或者form1“按键”）的代码上怎么写？

悬赏50分，呵呵，分不多，还要留一点问别的问题。刚接触delphi一周，懂的很少，先谢谢了！
dos62 - 进士出身 九级
的答案试过了，form2“DBEdit1”上依然无法显示那个值，不过您应该是会的，麻烦试验一下，再给个能正确显示出的答案! 谢谢！

Answer 1

这个问题应该这样写：
（以下假设您的口令为OKOK,在我的机上，D7实验通过）
procedure TForm1.Button1Click(Sender: TObject);
begin
if edit1.text='OKOK' then
begin
form2.dbedit1.text:=edit1.text;
form2.dbedit1.enabled:=false;
form2.Show;
end
else Messagebox(0,'不正确的口令!','警告'，MB_OK);
{在程序中建议用Messagebox，不用showmessage，前者是API调用，速度快，编译码少
}
end;
------------------------------------------------
另 dos62 百友写的也是正确的，不过她(他)不应该把form2.Show;语句放在form2.dbedit1.text:=edit1.text;
form2.dbedit1.enabled:=false;之前，这样的话form2“DBEdit1”上无法显示那个值，只有把form2.Show;放在form2.dbedit1.text:=edit1.text;
form2.dbedit1.enabled:=false;之前，才能显示！
--------------------------------------
另，如果想动态调用form2表体，这样写：
procedure TForm1.Button1Click(Sender: TObject);
begin
if edit1.text='OKOK' then
begin
Form2 := TForm2.Create(application);
Form2.dbedit1.text:=edit1.text;
form2.dbedit1.enabled:=false;
form2.ShowModal;
form2.Free;
end
else messagebox(0,'不正确的口令!','警告',mb_ok);

end;

Answer 2

procedure TForm1.Button1Click(Sender: TObject);
begin
if edit1.text='mypassword' then
begin
form2.Show;
form2.dbedit1.text:=edit1.text;
form2.dbedit1.enabled:=false;
end
else showmessage('Wrong password!');
end;