Question

delphi技术

begin
if (edit1.Text='123456') and (edit2.Text='123')
then
Memo1.Lines.Add('密码正确 连接成功')
else
Memo1.Lines.Add('密码不正确')
end;
我想添加个连接成功就弹出窗口form2的代码

Answer 1

首先
uses
unit2;//form2的单元名

if (edit1.Text='123456') and (edit2.Text='123')
then
Memo1.Lines.Add('密码正确 连接成功')
form2:=Tform2.Create(nil);
form2.Showmodal;
//如果你不想显示Form1 form1.visible:=False;
form2.Free;
else
Memo1.Lines.Add('密码不正确')
end;

Answer 2

begin
if (edit1.Text='123456') and (edit2.Text='123') then
begin
Memo1.Lines.Add('密码正确 连接成功');
Form2.Show;
end
else Memo1.Lines.Add('密码不正确')
end;

Answer 3

form2.ShowModal

Answer 4

begin
if (edit1.Text='123456') and (edit2.Text='123')
then
begin
Memo1.Lines.Add('密码正确 连接成功');
Application.CreateForm(Tfomr1,fomr1);
fomr1.ShowModal;
fomr1.Destroy;
end
else
Memo1.Lines.Add('密码不正确')
end;
但你先要在USES里面uses
unit1