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

Question

这句居然让偶的内存使用数量不断上升,郁闷,谁有办法搞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;

Answer 1

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

Answer 2

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

Answer 3

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

Answer 4

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;

Answer 5

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

Answer 6

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

Answer 7

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

Answer 8

1、不知道你是在什么地方看的内存一直上升,是任务管理器里吗？这时看到的可能更新不及时,并且程序申请完内存之后,即使释放了,在任务管理器里也不一定马上能降下来,需要系统中有需要更大内存的程序运行的时候,你的程序内存才会降下来!2、你可以将释放句柄的函数放在finally域里，这样能够保证句柄肯定会被释放，你也不用担心了~~~~~

Answer 9

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

Answer 10

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

Answer 11

估计是太频繁调用导致的问题
能否改用别的方法呢？http://lysoft.7u7.net

Answer 12

重复创建内容空间，而每次使用完后没有即时释放内存造成的！
你要记得每次处理完后用FreeAndNil（）释放所占用资源，这样会好点！

Answer 13

哎，蝎子王，你真的是没试过就乱说话，其实是不会有问题的哦~真的不会有问题除非你在里面+上  IF 我是帅哥 THEN EXIT 之类的东东，不然是不会有这个问题的和大家开个玩笑~~呵呵，总看不到偶的帖子能有这么多人回复哦准备结帖子了
FCU-----------------------WMNCMOUSEMOVE   你没看到后来更正了吗？只有 FLYINWUHAN 回答正确，确实没问题。哎，郁闷啊，这么多人就一个答对了还是湖北的厉害，天上湖北佬，地上也是湖北佬啊