大家请进来,想给程序添加一个启动画面和登录密码,密码最好能加密存在一表中。教教小弟吧。 大家请进来,想给程序添加一个启动画面和登录密码,密码最好能加密存在一表中。教教小弟吧。 解决方案 » 免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货 登陆窗体:program Project1;uses Forms, Unit1 in 'Unit1.pas' {MainForm}, Unit2 in 'Unit2.pas' {LoginForm};{$R *.res}begin Application.Initialize; LoginForm:=TLoginForm.Create(Application); try LoginForm.Show; LoginForm.Update; Application.CreateForm(TMainForm, MainForm); Application.Run; finally LoginForm.Free; end;end. 其实还可以用timer控见实现。 我只知道启动画面的问题:新建一窗体form1,将其boderstyle属性设置为bsnone,添加一Timage控件,再放如你想要的图片,在工程属性里将其设置为非自动创建的窗体,接下来修改工程文件..... Form1:=TForm1.Create(application); Form1.Show; Form1.Refresh; Application.CreateForm(TMainForm, MainForm);//你程序的主窗体 Form1.Hide; Form1.Free;...... 如果winio也模拟不了键盘, 该怎么办? DELPHI做DLL时,里面加了ADO控件后为什么DLL就不能用? 线程错误,代码很短,请指点,谢谢 数据库提取时字段名称为数字开头的怎么办 xml 发送及接受,在线等。。。。。。。 调用DLL出了问题! 我是菜鸟,提个简单问题: delphi前端+ oracle后端 做文本数据管理软件 希望大家指导! 數據集中當前指針的記錄號不是RecNo嗎,為什麼我得到的值總是-1呢,為什麼 控件使用问题 急急急,100拱手相送,我做了一个activex form在给客户安装时我遇到了一个问题,急死我了,高手帮忙 关于把form从内存释放的问题
program Project1;uses
Forms,
Unit1 in 'Unit1.pas' {MainForm},
Unit2 in 'Unit2.pas' {LoginForm};{$R *.res}begin
Application.Initialize;
LoginForm:=TLoginForm.Create(Application);
try
LoginForm.Show;
LoginForm.Update;
Application.CreateForm(TMainForm, MainForm);
Application.Run;
finally
LoginForm.Free;
end;
end.
新建一窗体form1,将其boderstyle属性设置为bsnone,添加一Timage控件,再放如你想要的图片,在工程属性里将其设置为非自动创建的窗体,接下来修改工程文件
.....
Form1:=TForm1.Create(application);
Form1.Show;
Form1.Refresh;
Application.CreateForm(TMainForm, MainForm);//你程序的主窗体
Form1.Hide;
Form1.Free;
......