怎样在窗体外画透明的画？

Question

在桌面上写我会，会画我不会
procedure TForm1.Button1Click(Sender: TObject);
var
  dc: HDC;
  Canvas: TCanvas;
begin
  dc := GetDC(0);
  try
    Canvas := TCanvas.Create;
    Canvas.Handle := dc;
    Canvas.Font.Color := clBlue;
    Canvas.Font.Style := Canvas.Font.Style + [fsUnderLine];
    Canvas.Font.Size := 20;
    Canvas.TextOut(20, 20, 'hello, taxi');
  finally
    ReleaseDc(0, dc);
  end;
end;

Answer 1

//在桌面上画一张画
procedure TForm1.Button1Click(Sender: TObject);
var
  dc: HDC;
  Canvas: TCanvas;
begin
  dc := GetDC(0);
  try
    Canvas := TCanvas.Create;
    Canvas.Handle := dc;
    Canvas.Draw(100, 100, Image1.Picture.Graphic);
  finally
    ReleaseDc(0, dc);
  end;
end;