getdc(0)
取得做图的句柄
然后就可以。(不用我说了吧)

解决方案 »

  1.   

    我还是不明白
    说清楚一点好把
    THANKS
      

  2.   

    谢谢了
    用CANVAS。TEXTOUt就可以了
      

  3.   

    我的这段程序可以在桌面绘图;
    我想这也太简单了;剩下的工作交给你了
    procedure TForm1.Button1Click(Sender: TObject);
    var
      AC:TCanvas;
      DC:THandle;
    begin
      AC:=TCanvas.Create;
      DC:=GetDC(0);
      try
        AC.Handle:=DC;
        AC.Pen.Color:=clRed;
        AC.Pen.Width:=10;
        AC.Brush.Color:=clYellow;
        AC.Rectangle(500,100,700,350);
      finally
        ReleaseDC(0,DC);
        AC.Free;
      end;
      form1.Refresh;
    end;