Question

delphi 怎样实现窗口的随机显示

怎样做能点击一个按钮后随机显示一个窗口呢，还有就是我在运行程序时登录窗口后面总是有另一个窗体存在，怎么把后面那个去掉使桌面只剩下登录界面呢

Answer 1

1.随机窗口
procedure X.ButtonClick(Sender: TObject);
begin
with TForm.Create(Self) do
Show;
end;

2.登录界面
这个我们一般是在项目的dproj源文件中处理(对项目点右键,选择view source)
比如你的登录界面单元为unit1,且unit1声明了登录方法:
function DoLogin: boolean;
begin
//此处可以调用登录窗口,以模态显示
end;

program ProjectX;

uses
Forms,
Unit1, //引用登录验证单元
MainForm in 'unit2.pas';

{$R *.res}

begin
Application.Initialize;
Application.MainFormOnTaskbar := True;
if DoLogin then //注意这里
Application.CreateForm(TForm5, Form5); //这里创建主界面
Application.Run;
end.

还有,将登录窗口设置为主界面不好,你的登录窗口必须一直存在,没那个必要

说明下,我的代码是直接网页里面敲的,你直接可以拷贝的只是方法,不是代码,因为代码没经过验证

Answer 2

你设置登录窗体为主窗体，运行时候就可以先显示出登录窗口了！