DELPHI form1.showmodal

发布网友 发布时间：2022-04-23 07:26

我来回答

共5个回答

热心网友 时间：2022-06-17 16:12

procere 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

热心网友 时间：2022-06-17 16:12

这样试试

procere 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

热心网友 时间：2022-06-17 16:12

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

热心网友 时间：2022-06-17 16:13

不明白，另谋高人

热心网友 时间：2022-06-17 16:14

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