关于窗体最小化,最大化及托盘的问题.(50分)

  • 主题发起人 主题发起人 grass1
  • 开始时间 开始时间
G

grass1

Unregistered / Unconfirmed
GUEST, unregistred user!
要求:按窗体的最小化按钮,窗体最小化到托盘的位置.并提示"最小化"
在托盘处按下图标,窗体恢复到初始大小,并提示"初始化"
按窗体的最大化按钮,窗体最大化到整个屏幕,并提示"最大化",
希望能提供原代码和示例程序 qufeng21cn@21cn.com
一个初学者
 
没有人知道吗???
 
你太懒了!DFW 里已有答案,查一下呀!
 
看看郝新庚的源程序吧。
 
DFW是什么东西?
郝新庚的源程序在哪?
 
这种问题太多,很多人都懒的答了!
 
看样子,只有出高价了!!!
再加50分。
 
const
ICON_ID = 1;
MI_ICONEVENT = WM_USER + 100;
在Private中声明事件:
procedure InstallIcon;
//装载托盘图标
procedure UnInstallIcon;
//卸载托盘图标
procedure IconOnClick(var message: TMessage);
//单击图标事件
message MI_ICONEVENT;
procedure TForm1.IconOnClick(var message: TMessage);
begin
if (message.LParam = WM_LBUTTONDOWN) then
begin
//鼠标右键
end;
if (message.LParam = WM_RBUTTONDOWN) then
begin
//鼠标左键事件
end;
end;
procedure TForm1.InstallIcon;
var
IconData: TNotifyIconData;
begin
sysTrayIcon := TIcon.Create;
sysTrayIcon := Application.Icon;
IconData.cbSize := sizeof(IconData);
IconData.Wnd := Handle;
IconData.uID := ICON_ID;
IconData.uFlags := NIF_ICON or NIF_MESSAGE or NIF_TIP;
IconData.uCallbackMessage := MI_ICONEVENT;
IconData.hIcon := sysTrayIcon.Handle;
IconData.szTip := 'Test';
Shell_NotifyIcon(NIM_ADD, @IconData);
end;

procedure TForm1.UnInstallIcon;
var
IconData: TNotifyIconData;
begin
IconData.cbSize := sizeof(IconData);
IconData.Wnd := Handle;
IconData.uID := ICON_ID;
Shell_NotifyIcon(NIM_DELETE, @IconData);
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
InstallIcon;
ShowWindow(Form1.Handle, SW_HIDE);
ShowWindow(Application.Handle, SW_HIDE);
end;

procedure TForm1.FormClose(Sender: TObject;
var Action: TCloseAction);
begin
UnInstallIcon;
sysTrayIcon.Free;
end;

procedure TForm1.FormActivate(Sender: TObject);
begin
ShowWindow(Form1.Handle, SW_HIDE);
ShowWindow(Application.Handle, SW_HIDE);
end;
你要的提示在相应的地方添加。
 
不如留个妹儿
发信给你
Nizvoo@etang.com
看你也懒得写代码了,不如用组件。。。
 
这样的控件多的很,如RX
 
晕倒,有人不知道DFW就是大富翁!!◎¥###◎¥%
 
谢谢各位的回答。
 

Similar threads

S
回复
0
查看
1K
SUNSTONE的Delphi笔记
S
S
回复
0
查看
900
SUNSTONE的Delphi笔记
S
S
回复
0
查看
3K
SUNSTONE的Delphi笔记
S
S
回复
0
查看
2K
SUNSTONE的Delphi笔记
S
I
回复
0
查看
601
import
I
后退
顶部