7
是否可以在Delphi XE2中配置多色多線TMemo?。
就像當我寫代碼:根據變量的條件多色多線TMemo
procedure TForm1.BitBtn1Click(Sender: TObject);
var
FirstVariuble, SecondVarible, ThirdVarible :BOOL;
begin
if FirstVariuble = true then
begin
Memo1.Font.Color := clGreen;
Memo1.Lines.Add('FirstVariuble = True');
end
else if SecondVarible = true then
begin
Memo1.Font.Color := clBlue;
Memo1.Lines.Add('SecondVarible = True');
end
else
begin
Memo1.Font.Color := clRed;
Memo1.Lines.Add('ThirdVarible = True');
end;
end;
字體顏色爲所有先前存在的線得到改變。
請刪除'= true'。 – 2013-04-26 21:52:15