请教！！(50分)

东

东方星辰

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-11-21

• #1

请问如何实现以下功能：
1。点击窗体右上角的“关闭”却使它最小化。
2。怎样给一个应用程序在系统托盘中制作一个图标。
3。delphi组建栏中有win32,win31，有人说这是win32系统和win31系统，那他们到底是什麽呢？

 

Y

yanghai0437

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-11-21

• #2

1你的是子窗体吧，在close事件中action:=cafree

 

东

东方星辰

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-11-21

• #3

1。我是想实现像Flashget中的点击关闭，它会成为最小化

 

B

beta

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-11-21

• #4

1. Form 的 OnClose 事件里写 Application.Minimize;
(若是这样，则要真正退出就需要 Application.Terminate)
2. CoolTrayIcon 控件还不错。
3. 乱说。那些只是控件，不是系统。只不过 Win32 页里面的控件是和 Win95(及以后)
操作系统所使用的控件外观差不多；而 Win31 里面的控件则是 Win95 之前的系统
用过的(外观)。

 

K

keen

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-11-21

• #5

2. date: TNotifyIconData;
Data.cbSize := SizeOf(Data);
Data.Wnd := Handle;
Data.uID := ICON_ID;
Data.uFlags := NIF_ICON or NIF_MESSAGE or NIF_TIP;
Data.uCallBackMessage := MOUSEMES;
Data.hIcon := Icon.Handle;
Shell_NotifyIcon(NIM_MODIFY, @Data);