我想在电脑屏幕上画矩形框，如何实现。

Question

想局部拷贝屏幕，在电脑屏幕上画矩形框，不是在form中。
就象在Timgic控件中
    foldx:=-1;
    foldy:=-1;
    image1.Canvas.Pen.mode:=pmnot; //笔的模式为取反
    image1.canvas.pen.color:=clblack; //笔为黑色
    image1.canvas.brush.Style:=bsclear; 
那样画框，就是要挪到屏幕上。如何实现。

Answer 1

var
  DC: HDC;
  Canva: TCanvas;
begin
  DC := GetDc(0);
  Canva := TCanvas.Create;
  Canva.Handle := DC;
  //之后用Canva来画图型了...
end;

Answer 2

鼠标在屏幕上，不是在form中，如何判断点击和移动事件，回答此问题可另加分