Question

DELPHI form1.showmodal

procedure TMainForm.FormActivate(Sender: TObject);
var
times:integer;
s1,s2:string[200];
begin
times:=1;
if login=false then
begin
login:=true;
repeat
rn:=passworddlg.ShowModal;
if rn=mrOK then
begin
s1:=PasswordDlg.ComboBox1.Text;
s2:=PasswordDlg.password.Text;
if password(s1,s2) then

这是整个程序中的一部分，总是一运行到rn:=passworddlg.ShowModal;（当鼠标放在passworddlg.ShowModal上时出现passworddlg.ShowModal=inaccessible value）这一句就出现错误，人都快搞疯了！急啊下面的图片是提示！
加入图片

Answer 1

procedure TMainForm.FormActivate(Sender: TObject);
var
times:integer;
s1,s2:string[200];
begin
times:=1;
if login=false then
begin
login:=true;
repeat
passworddlg:=tpassworddlg.Create(self);
rn:=passworddlg.ShowModal;
if rn=mrOK then
begin
s1:=PasswordDlg.ComboBox1.Text;
s2:=PasswordDlg.password.Text;
if password(s1,s2) then

Answer 2

这样试试

procedure TMainForm.FormActivate(Sender: TObject);
var
times:integer;
s1,s2:string[200];
begin
times:=1;
if login=false then
begin
login:=true;
repeat
passworddlg.ShowModal;
if passworddlg.ModalResult=mrOK then
begin
s1:=PasswordDlg.ComboBox1.Text;
s2:=PasswordDlg.password.Text;
if password(s1,s2) then

Answer 3

在执行passworddlg.ShowModal前要
application.createform(Tpassworddlg,passworddlg);
一下

Answer 4

不明白，另谋高人

Answer 5

改成 Show 函数!!!!!!!!!!