procedure TForm1.suiButton3Click(Sender: TObject);
begin
suiPasswordDialog1.Item1Text := '';
suiPasswordDialog1.Item2Text := '';
suiPasswordDialog1.Item1Caption := 'User name: ';
suiPasswordDialog1.Item2Caption := 'Password: ';
suiPasswordDialog1.Item1PasswordChar := #0;
suiPasswordDialog1.Item2PasswordChar := '*';
suiPasswordDialog1.UIStyle := suiForm1.UIStyle;
suiPasswordDialog1.ShowModal();
end;这样是可以的但我把它换成下面这样就不行, 不好意思,我刚学procedure TForm1.beforeformCreate(Sender: TObject);
begin
suiPasswordDialog1.Item1Text := '';
suiPasswordDialog1.Item2Text := '';
suiPasswordDialog1.Item1Caption := 'User name: ';
suiPasswordDialog1.Item2Caption := 'Password: ';
suiPasswordDialog1.Item1PasswordChar := #0;
suiPasswordDialog1.Item2PasswordChar := '*';
suiPasswordDialog1.UIStyle := suiForm1.UIStyle;
suiPasswordDialog1.ShowModal();
end;
begin
suiPasswordDialog1.Item1Text := '';
suiPasswordDialog1.Item2Text := '';
suiPasswordDialog1.Item1Caption := 'User name: ';
suiPasswordDialog1.Item2Caption := 'Password: ';
suiPasswordDialog1.Item1PasswordChar := #0;
suiPasswordDialog1.Item2PasswordChar := '*';
suiPasswordDialog1.UIStyle := suiForm1.UIStyle;
suiPasswordDialog1.ShowModal();
end;这样是可以的但我把它换成下面这样就不行, 不好意思,我刚学procedure TForm1.beforeformCreate(Sender: TObject);
begin
suiPasswordDialog1.Item1Text := '';
suiPasswordDialog1.Item2Text := '';
suiPasswordDialog1.Item1Caption := 'User name: ';
suiPasswordDialog1.Item2Caption := 'Password: ';
suiPasswordDialog1.Item1PasswordChar := #0;
suiPasswordDialog1.Item2PasswordChar := '*';
suiPasswordDialog1.UIStyle := suiForm1.UIStyle;
suiPasswordDialog1.ShowModal();
end;
suiPasswordDialog1.Item1Caption := 'User name: '
这些是什么,请说明一下...
suiPasswordDialog1 := Application.create(); //在oncreate加这一句看看
suiPasswordDialog1.ShowModal();
加在suiPasswordDialog1.UIStyle := suiForm1.UIStyle;后
好像不行。
大家帮帮忙啦。^O^