时间、托盘使用、面板的使用，请教…………(20分)

东

东方龙

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-11-29

• #1

1如何在label1.caption显示正在运行的时间，，是要会运行的。不要取时间。
2如何使用托盘把主程序面板关掉他自动转为托盘而不是直接关闭程序，像金山DUBA
3如何使面板变为可调大小，而且要调在大时，面板字体图像跟着大，像放大镱。
4如何按A按钮程序运行别一个窗口，像关于窗口。

 

饿

饿狼传说

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-11-29

• #2

1.加一个状态栏，做一个线程
代码如下：
rocedure dktime.Execute;
var
nowtime:Tdatetime;
begin
{ Place thread code here }
nowtime:=now;
form1.StatusBar1.Panels[1].Text:='现在时刻：'+timetostr(nowtime);
sleep(1000);
end;

 

东

东方龙

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-11-29

• #3

第一个我用了一个很简单的做请回答2 3 4

 

东

东方龙

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-11-29

• #4

加一个time
label1.caption:='now time is:'+datetimetostr(now);

 

东

东方龙

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-11-29

• #5

2在onclose里写form1.hide;不行。
在exit button里写form1.hide就可以