是否可以在Delphi XE2中配置多色多线TMemo?。
当我写代码时:
procedure TForm1.BitBtn1Click(Sender: TObject);
var
FirstVariable, SecondVariable, ThirdVariable :BOOL;
begin
if FirstVariable then
begin
Memo1.Font.Color := clGreen;
Memo1.Lines.Add('FirstVariable = True');
end
else if SecondVariable then
begin
Memo1.Font.Color := clBlue;
Memo1.Lines.Add('SecondVariable = True');
end
else
begin
Memo1.Font.Color := clRed;
Memo1.Lines.Add('ThirdVariable = True');
end;
end;
所有先前存在的行的字体颜色将根据变量的条件进行更改。
答案 0 :(得分:19)
不,这是不可能的。但您可以使用RICHEDIT控件,例如TRichEdit
包装器。
RichEdit1.SelAttributes.Color := clGreen;
RichEdit1.Lines.Add('First line.');
RichEdit1.SelAttributes.Color := clBlue;
RichEdit1.Lines.Add('Second line.');
RichEdit1.SelAttributes.Color := clRed;
RichEdit1.Lines.Add('Third line.');