只有本站会员才能查看附件，请 登录
已经解决 附上代码
我也是菜鸟 有学Delphi大家一起讨论学习啊
程序代码：procedure TForm1.Button1Click(Sender: TObject);
var
X,Y: string;
begin
X:='1234';
Y:='2345';
if ((X=edit1.Text) and (Y=edit2.Text))then
form2.show
else showmessage('´íÎó');
end;
var
X,Y: string;
begin
X:='1234';
Y:='2345';
if ((X=edit1.Text) and (Y=edit2.Text))then
form2.show
else showmessage('´íÎó');
end;
[ 本帖最后由 lingwanqiu 于 2011-6-26 18:02 编辑 ]