绝对难的问题，高朽民快来SEE一SEE

[bob008]

这句居然让偶的内存使用数量不断上升,郁闷,谁有办法搞DING
procedure tform1.wmmousemove(var msg:TWMMOUSEMOVE);
var
dc :hdc;
begin
dc:=getwindowdc(handle);
//这里写上TRY ,WITH CAV DO 也是一样的内存使用增加

if msg.hittest=htminbutton then
begin
bitblt...
end
else
begin
bitblt...
end;
RELEASEDC(HANDLE,DC);
...
end;

[bob008]

不是吧，你是斑竹都不知道

[cnhgj]

wmmousemove
哇。。。你这个是不是截获鼠标消息啊。。。只要鼠标在窗体上一动你就执行哦。。。！

[flyinwuhan]

if msg.hittest=htminbutton then
begin
bitblt...//这部分的也贴出来吧
end
else
begin
bitblt...
end;

[bob008]

晕。NCMOUSEMOVE，打错了啊

[aiirii]

在 wmmousemove 中處理, 觸發的次數太多了, 應該適當限制

[bob008]

procedure tform1.wmNCmousemove(var msg:TWMNCMOUSEMOVE);
var
dc :hdc;
begin
dc:=getwindowdc(handle);
//这里写上TRY ,WITH CAV DO 也是一样的内存使用增加

if msg.hittest=htminbutton then
begin
bitblt（DC，（WIDTH-96），0，（WIDTH-64），30，IMAGE1.CANVAS.HANDLE，0，0，SRCCOPY）；

end
else
begin
bitblt（DC，（WIDTH-96），0，（WIDTH-64），30，IMAGE1.CANVAS.HANDLE，29，0，SRCCOPY）；

end;
RELEASEDC(HANDLE,DC);
...
end;

[bob008]

IF MSG.HITTEST=HTMAXBUTTON THEN
和上面一样的绘制而已

[cnhgj]

试试定义个bitmap来存Image1的图片。然后直接转移bitmap上的图像，转移后bitmap1.free;

[bob008]

不会，给个例子先
DELPHI的啊，别的看不懂

[flyinwuhan]

呵呵，没有问题啊~~~~~~~~~~~~~~~~~~~~~~~~~

[bob008]

有问题啊，鼠标一到上面就内存使用增加0.01MB

[bob008]

并且只+不减，，是个大问题

[bob008]

哎，蝎子王，你真的是没试过就乱说话，其实是不会有问题的哦~真的不会有问题

除非你在里面+上 IF 我是帅哥 THEN EXIT 之类的东东，不然是不会有这个问题的

和大家开个玩笑~~呵呵，总看不到偶的帖子能有这么多人回复哦

准备结帖子了
FCU-----------------------WMNCMOUSEMOVE 你没看到后来更正了吗？

只有 FLYINWUHAN 回答正确，确实没问题。哎，郁闷啊，这么多人就一个答对了

还是湖北的厉害，天上湖北佬，地上也是湖北佬啊

[flyinwuhan]

我RI~~~~~

[射天狼]

1、不知道你是在什么地方看的内存一直上升,是任务管理器里吗？这时看到的可能更新不及时,并且程序申请完内存之后,即使释放了,在任务管理器里也不一定马上能降下来,需要系统中有需要更大内存的程序运行的时候,你的程序内存才会降下来!

2、你可以将释放句柄的函数放在finally域里，这样能够保证句柄肯定会被释放，你也不用担心了~~~~~

[射天狼]

DELPHI也有一段时间没用了，不知道里面的关键字finally写的是不是正确，呵呵，你明白意思就行~~~~~

[FCU]

wm_mousemove 鼠标一动就捕获消息,汗......

[何鲁青]

高秀敏
高秀敏
高秀敏
高秀敏
高秀敏
高秀敏
高秀敏
高秀敏
高秀敏
高秀敏
高秀敏

[ly_liuyang]

估计是太频繁调用导致的问题
能否改用别的方法呢？

http://lysoft.7u7.net

[Love_birds]

重复创建内容空间，而每次使用完后没有即时释放内存造成的！


你要记得每次处理完后用FreeAndNil（）释放所占用资源，这样会好点！