在桌面上绘图之后，该如何把它擦去呢？(100分)

occult · 2000-09-29

问题如下： procedure TForm1.Button1Click(Sender: TObject); var   BMP : TBitMap;   CV  : TCanvas;   R   : TRect; begin   BMP := TBitMap.Create;   BMP.LoadFromFile('E:/My Work/DrawDeaktop/s03.BMP');   R:= Rect(0,0,100,40);   CV:= TCanvas.Create;   CV.Handle := GetDC(0);   CV.Draw(100,100,BMP);   CV.Free;   BMP.Free; end; 当我如上在桌面上Draw了一幅位图之后，我又该如何把这幅图擦去呢？试过 了Invalidaterect, updateWindow都不行，该如何作呢？请指教！！

xixi12359 · 2000-09-29

实际上我认为是一个重新绘图的问题

occult · 2000-09-29

拉呀拉..................

hhzh426 · 2000-09-29

用"异或"的方式画图，要擦除时再用"异或"的方式在原来的位置上再画一遍行吗？ tcanvas.copymode具体用哪一个值不知道，你自己多试试！

CathyEagle · 2000-09-29

刷新桌面不行吗？

Chenlili · 2000-09-29

你要先把背景保存!

occult · 2000-09-29

用异或的方式...唔，不太好吧，我岂不是还得作一幅Mask图了吗？ 保存背景倒是一个方法，待我试试，不过我并不是覆盖整个桌面的画一张图....而且万一同 时桌面有更新该如何呢？ 桌面其实是一个ListView,我总想应该可以通过发一个消息给它，通知它自己重画不就结了， 可是试了试几个消息（WM_PAINT...）都不行，后来就试着用InvalidateRect来强制通知 windows重画这个Rect,可是在桌面就不灵，但我想我的思路应该是对的，让它自己重绘 一次就可以了，不用自己去再作什么。就好比我画完了后，随便找个窗子往上一盖，再 移开，windows自己就重绘如初了，但该发个什么消息呢？或是有什么更好的API呢？

occult · 2000-09-30

拉呀拉..................

crystal · 2000-09-30

弄个窗口最大化,再把这个窗口关了,就应该能重画,估计也就是闪一下...

zwma · 2000-09-30

再作一次   BMP := TBitMap.Create;

pxd · 2000-09-30

估计有API可以。

loopy · 2000-09-30

反相地再写、画一下

悲酥清风 · 2000-10-01

关注此题！ 好多桌布游戏是怎么做的？有大虾知道么？

温柔一刀 · 2000-10-01

关键是要找到正确的窗口句柄，invalidrect才能成功，不知道你是如何调用的。 要让桌面重画，这段代码就可以了。 var    wnd:HWND; begin    Wnd := GetDesktopWindow;    Wnd := FindWindowEx(Wnd, 0, 'Progman', nil);    Wnd := FindWindowEx(Wnd, 0, 'SHELLDLL_DefView', nil);    Wnd := FindWindowEx(Wnd, 0, 'SysListView32', nil);    InvalidateRect(Wnd, nil, TRUE); end;

occult · 2000-10-02

to 温柔一刀:   多谢，我以前的问题出在 InvalidateRect(GetDeskTopWindow,nil,true)上了， 多谢您的提醒，呵呵，不过我觉的似乎也不用    Wnd := GetDesktopWindow;    Wnd := FindWindowEx(Wnd, 0, 'Progman', nil);    Wnd := FindWindowEx(Wnd, 0, 'SHELLDLL_DefView', nil);    Wnd := FindWindowEx(Wnd, 0, 'SysListView32', nil);  这么麻烦吧，直接Wnd := FindWindow('SysListView32',nil)就可以了。

occult · 2000-10-02

接受答案了.

温柔一刀 · 2000-10-02

>>直接Wnd := FindWindow('SysListView32',nil)就可以了。   错，Windows系统本身使用的listview类名称都是SysListView32， 例如explorer窗口、资源管理器等等，因此如果你没有任何类似窗口打开， 那么恰好找到的是desktop窗口，否则结果可能不可预料。

occult · 2000-10-03

多谢多谢，我又粗心了

在桌面上绘图之后，该如何把它擦去呢？(100分)

occult

Unregistered / Unconfirmed

xixi12359

Unregistered / Unconfirmed

occult

Unregistered / Unconfirmed

hhzh426

Unregistered / Unconfirmed

CathyEagle

Unregistered / Unconfirmed

Chenlili

Unregistered / Unconfirmed

occult

Unregistered / Unconfirmed

occult

Unregistered / Unconfirmed

crystal

Unregistered / Unconfirmed

zwma

Unregistered / Unconfirmed

pxd

Unregistered / Unconfirmed

loopy

Unregistered / Unconfirmed

悲酥清风

Unregistered / Unconfirmed

温柔一刀

Unregistered / Unconfirmed

occult

Unregistered / Unconfirmed

occult

Unregistered / Unconfirmed

温柔一刀

Unregistered / Unconfirmed

occult

Unregistered / Unconfirmed

Similar threads