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;
解决方案 »
- 如何让dbgrid的某一列的值都除以当前dbgrid的行数,再在此列显示出来
- 请问谁知道陈天桥的邮箱?
- 有关程序中“流程图”的设计,恳请高手请进来帮帮小弟!
- 有不需要MODEM(只需ADSL宽带+打印机)即可收发传真的软件吗?
- TCombBox控件的使用问题求解?
- 数据库引擎的驱动需要哪些文件
- 在线等待:Windows启动时弹出“Exception EStackOverflow in moudle ...”的错误提示而无法运行Delphi的程序,why?
- TInterfacedObject与TInvokableClass的区别
- 在Delphi6使用ActiveForm中的问题
- 如何计算时间的问题
- TStringGrid记录的背景色
- 坑朦拐骗得来的分数....散之!!!!
suiPasswordDialog1.Item1Caption := 'User name: '
这些是什么,请说明一下...
suiPasswordDialog1 := Application.create(); //在oncreate加这一句看看
suiPasswordDialog1.ShowModal();
加在suiPasswordDialog1.UIStyle := suiForm1.UIStyle;后
好像不行。
大家帮帮忙啦。^O^