？（在线等待）(100分)

H

happyball

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2004-03-26

• #1

如何将一个工程中的一个窗体设为主窗体

 

白

白河愁

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2004-03-26

• #2

projects->options->forms->main form

 

H

happyball

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2004-03-26

• #3

谢谢，OK了，
还有个问题，我设为主窗体，但是我打开工程想让另一个窗体先显示，如何做到？

 

Z

zzb1984

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2004-03-26

• #4

projects->viewsource中
program Project1;

uses
Forms,
Unit1 in 'Unit1.pas' {Form1};

{$R *.res}

begin
Application.Initialize;
Application.CreateForm(主窗体);//将主窗体放在最前CREATE
。。。。。。。。。。。。。。。。
Application.CreateForm(TForm1, Form1);

Application.Run;
end.

 

H

happyball

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2004-03-26

• #5

麻烦回答我第2个问题[8D]

 

Z

zzb1984

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2004-03-26

• #6

Application.Initialize;
Application.CreateForm(主窗体);//将主窗体放在最前CREATE
。。。。。。。。。。。。。。。。
Application.showmainform:=false;
Application.CreateForm(TForm1, Form1);//假设FORM1是你要显示的，将FORM1的visible属性设为true

Application.Run;

 

M

mlin

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2004-03-26

• #7

那就把mainfrom设置为第一个要显示的窗口，

 

草

草原牧歌

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2004-03-26

• #8

project project1;
......
.....
begin
loginfrm:=Tloginfrm.create(Application);
loginfrm.show;
//下面显示主窗体

end.

 

E

easykey

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2004-03-26

• #9

要作启动界面吧
program pkc;

uses
Forms,
SysUtils,
kc in 'kc.pas' {frmMain},
Memos in 'Memos.pas' {frmMemo},
setCode in 'setCode.pas' {frmSetCode},
about in 'about.pas' {AboutBox},
dm in 'dm.pas' {dm1: TDataModule},
flash in 'flash.pas' {frmFlash},
kcDetail in 'kcDetail.pas' {frmDetail};

{$R *.res}

begin
frmFlash := TfrmFlash.Create(nil);
frmFlash.Show;
frmFlash.Update;
Application.Initialize;
Application.CreateForm(Tdm1, dm1);
Application.CreateForm(TfrmMain, frmMain);
frmFlash.Hide;
FreeAndNil(frmFlash);
Application.Run;
end.

 

H

happyball

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2004-03-26

• #10

OK了，[][8D][][!]
谢谢，不好意思啊，我分不多，等我分多了，给大家加分呵呵，
感谢帮忙