2017-01-16 60 views

回答

1

尝试设置CompLabel.Font.Color

if Index = 1 then 
begin 
    CompLabel.Font.Color := clRed; 
end 
    else 
begin 
    CompLabel.Font.Color := clWindowText; 
end; 
+0

是否有可能降低其上,用鼠标定位时,描述的颜色发生变化的区域?如果我把鼠标指针放在远离单词的地方,但是在同一行中,颜色会发生变化。我希望只有当鼠标指针放在单词上时才会发生改变颜色。 (对不起,我的英语不好)。 –

+0

@NicoZ这可能是可能的。您必须使用具有'DT_CALCRECT'标志的'DrawText' WinAPI来计算文本大小。即使那样,它也不会100%。 –