Question

Delphi中如何使用timer使得label的颜色在两种颜色中交替变化呢？是两种不是任意的。谢谢

已解决

Answer 1

procedure TForm1.Timer1Timer(Sender: TObject);
begin
  if Label1.Font.Color=clRed then
    Label1.Font.Color:=clBlue
  else
    Label1.Font.Color:=clRed
end;

 将clRed 和clBlue替换成你需要的颜色

追问

问题已经解决了，谢谢你的热心，我想问你一个其他的问题，就是我如何将选中的文本文档的内容批量修改？例如内容如下
123
234
345
.....，我想批量将这些字符串加上双引号，就像这样：
“123”
“234”
“345”
.....
谢谢了

追答

那这个需要一点点添加了。

建立一个按钮，和一个memo，在按钮上写下：

procedure TForm1.Button1Click(Sender: TObject);
var
  i:Integer;
begin
  for i:=0 to Memo1.Lines.Count-1 do
  begin
    Memo1.Lines[i]:=''''''+Memo1.Lines[i]+'''''';
  end;
end;

将要添加双引号的字符贴在memo里，运行按钮。

Answer 2

唉，又被人抢先了，简单的总是这么抢手

追问

请问你有ColorStringGrid控件吗？

追答

如果你有分，我就有控件，O(∩_∩)O~