低级问题：怎么用一个Button来打开自己做的新窗口(50分)

Y

yossy_chan

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2000-05-22

• #1

我刚学Delphi，想在一个Button里来打开自己做(不是自动创建新窗口)的新窗口，可是怎么试都说Project1.exe出错。。请高手帮帮我。。。我很感激！
我现在有form1,form2...(form1 Autocreat)
form1里的Button元件里我是这么写的：
----------------------------------------------------------------------
procedure TForm1.Button1Click(Sender: TObject);
begin
form1.hide;
form1.free;
form2.show;
end;
----------------------------------------------------------------------
还有一个问题。。我用applition.icon.loadfromfile。。。怎么是改变窗口上的图标
我要改应用程序的图标。。该怎么用啊。。。。
十分感激。。。。。。虽然是很低级的问题。。。还是请高手能帮我解答。。并说点道理好么？
：）

 

C

cheka

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2000-05-22

• #2

1.
procedure TForm1.Button1Click(Sender: TObject);
begin
form2.show;
end;

2.
在Project选项里改Icon

 

C

cheka

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2000-05-23

• #3

你把Form1都给Free了,就不能再调用它的方法或属性

 

W

wjiachun

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2000-05-23

• #4

1.说完了。
2.Project|Options|Icon 可以改变应用程序的图标。

 

F

FreeFly

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2000-05-23

• #5

procedure TForm1.Button1Click(Sender: TObject);
begin
form2 := Tform2.create(application);
form2.show;
form1.hide;
end;

应用程序的图标可以project/options中改

 

F

Fudei

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2000-05-23

• #6

>>我现在有form1,form2...(form1 Autocreat)
难道你的form2没有create，你看下Project|Options|Form 如form2在可用窗体列
表中的话你必须create它，如form1是主窗体话你free当然会出错。
>>我用applition.icon.loadfromfile。。。怎么是改变窗口上的图标
听你所说好象只是要改变应用程序图标不想改变窗口图标
你可以先
Application.Icon.LoadFromFile 会改变应用程度图标同时改变窗口图标.
再
Form1.Icon.LoadFromFile 只改变窗口上图标

 

I

iie

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2000-05-23

• #7

上面几位老兄已经说够了,我只好补充一些"道理"
1,如果form1不能把自己杀掉自己
2,应用程序的图标编译时间已经确定,要在运行期间修改,需要其他工具或编程
但肯定是要修改可执行代码的(类似病毒

 

星

星巴

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2000-05-23

• #8

一上说得都很详细了
1.如果是一些小窗体，只需要，show,就可以了
2.在在Project选项里改Icon就可以了。

 

Y

yossy_chan

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2000-05-23

• #9

谢谢高手指点
：）

 

W

wjiachun

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2000-07-26

• #10

时间太久，强制结束。 wjiachun