大家看看这三句代码为什么会出现这样的情况

Question

你不如这样：
Label1.Canvas.Text="Linux2001";

Answer 1

我把Label1.Font.Color:=clRed;放在
TForm1.FormCreate(Sender: TObject);
begin
  Label1.Font.Color:=clRed;
end;
就行了，我也不知道为什么？

Answer 2

其中
Label1.Font.Color:=RGB(255,0,0);
改成
Label1.Canvas.Font.Color:=RGB(255,0,0);

Answer 3

Label1.Canvas.TextOut(0,0,'Linux2001');
Label1.canvas.Font.Color:=RGB(255,0,0);
Label1.Canvas.TextOut(1,1,'Linux2001');

Answer 4

//建议用两个TLabel
//否则你还要注意写重绘事件
//Label2在Label1下方
begin
  Label1.Transparent := True;  Label2.Caption := Label1.Caption;
  Label2.Font.Color := clRed;
  Label2.Left := Label1.Left + 1;
  Label2.Top := Label1.Top + 1;
end;

Answer 5

在你进行canvas的操作后，最好刷新一下，结果才会显示出来

Answer 6

将 Label1.canvas.Font.Color:=RGB(255,0,0);
这句话提前初始化就行了。
然后像zswang(伴水)(需要充充电)　说的那样做！

Answer 7

TO ：　Linux2001(准备升级中...)　
不需要那么复杂
1:
label1.Caption :='Linux2001';
Label1.canvas.Font.Color:=RGB(255,0,0);
Label1.Canvas.TextOut(2,2,'Linux2001');
2:
Label3.Canvas.TextOut(0,0,'Linux2001');
Label3.canvas.Font.Color:=RGB(255,0,0);
Label3.Canvas.TextOut(2,2,'Linux2001');

Answer 8

保证你绝对可以
Label1.canvas.Font.Color:=RGB(255,0,0);
Label1.Canvas.TextOut(0,0,'Linux2001');