我输出到屏幕上的文字都是白色的底,太难看了,能不能变成透明的呢?
还有文字能不能变成半透明的呢,
文字能不能用在最上面呢?不防碍其他操作。谢谢大家

解决方案 »

  1.   

    Canvas.Brush.Color := 你的颜色;
    Canvas.Brush.Style := bsClear;//等等,你自己查查就知道了;
      

  2.   

    procedure TForm1.FormMouseDown(Sender: TObject; Button: TMouseButton;
      Shift: TShiftState; X, Y: Integer);
    var
      LogFont : TLogFont;
      newFont : TFont;
    begin
      with Form1.Canvas do
      begin
        Font.Name := '黑体'; // 字体
        Font.Size := 32; // 字号
        Font.Color:= $00ffcc; // 颜色
       // 创建新字体
       newFont := TFont.Create;
       newFont.Assign(Font); // 新字体继承窗体字体的属性
       Font.Assign(newFont);
       newFont.Free;
      // 在鼠标按下的位置显示文字
      TextOut(X, Y, '旋转文字Demo');
      end;end;
      

  3.   

    Canvas.Brush.Style := bsClear;
    Canvas.Brush.Color := 你的颜色;
    Canvas.TextOut();
      

  4.   

    : ljmanage(过客):
    下面这一句不能用否则反会显示背景。 
    Canvas.Brush.Color := 你的颜色;
      

  5.   

    对,应该就是这样
    Canvas.Brush.Style := bsClear;
    Canvas.TextOut();
      

  6.   

    如何让画布重画的时候文字还在上面呢?现在的程序做成了,但是一刷新就没有了!如何没有FREE前一直有呢?