TXXForm = class(TForm)protected
procedure wmncpaint(var message: TNCPaintmessage); message wm_ncpaint;
...
end;procedure txxxform.wmncpaint(var message: TNCPaintmessage);
var
dc: HDC;
begin
dc := GetWindowDC(Handle); // do something yourself!! ReleaseDC(handle, DC);
end;
procedure wmncpaint(var message: TNCPaintmessage); message wm_ncpaint;
...
end;procedure txxxform.wmncpaint(var message: TNCPaintmessage);
var
dc: HDC;
begin
dc := GetWindowDC(Handle); // do something yourself!! ReleaseDC(handle, DC);
end;
你可以做个无边框的窗口,放上一幅图片(在哪儿都可以,只要你高兴),再在图片的 MouseDown 事件中加上 SendMessage(handle,WM_SYSCOMMAND,$f012,0)
然后 你拖运图片试试