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

[Linux2001]

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

为什么我要单击两次，Label控件上才会显出字呢

[kylincn]

把代码贴全看看！

[panch]

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

[telepan]

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

[Linux2001]

代码已经全部贴上来了，我要的是打印出两种颜色的字，就是阴影字，前面一种颜色，后面一种颜色

[halfdream]

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

[china_lyz]

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

[sailerbai]

应该update或refresh一次

[liuchang_wh]

同意楼上

[王集鹄]

//建议用两个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;

[iBear]

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

[juqiang]

using Repaint()

[bigysw]

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

[ihihonline]

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');

[childbaby]

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