关于STRINGGRID问题

Question

我在STRINGGRID表格的一个单元格中,有字符串'abcdefg',现在我想能通过BUTTON的CLINK事件,使得这个单元格的字符串中'abcd'变为红色,'efg'不变,不知如何用代码实现?请各位帮忙,急待!!!

Answer 1

var
  Str: String;
  vX: integer;
begin
  self.Canvas.Font.Color := $000080FF;
  Str := 'abc';
  vX:= self.Canvas.TextWidth(Str);
  self.Canvas.TextOut(10, 10, Str);
  self.Canvas.Font.Color := $0000EC00;
  self.Canvas.TextOut(10 + vX, 10, 'defg');
end;
//////////
大概思路这样吧呵呵。。