好象不行,用StringGrid试一试,比较麻烦!

解决方案 »

  1.   

    我也想知道!!!
    最好给出原代码!!!http://www.csdn.net/expert/topic/129/129995.shtm
      

  2.   

    // 下列是使当Listview1失去focus中,可以使Listview1看上去还是像选中的样子。
    procedure TForm1.ListView1AdvancedCustomDrawItem(
      Sender: TCustomListView; Item: TListItem; State: TCustomDrawState;
      Stage: TCustomDrawStage; var DefaultDraw: Boolean);
    begin  
      if Item = Sender.Selected  then
      begin
        Sender.Canvas.Font.Color := clWhite;
        Sender.Canvas.Brush.Color := clBlack;
      end;
    end;
      

  3.   

    很多地方可以写 比如OnCustomDrawItem
    begin
     If Item.Index mod 2 <> 0 then
      Sender.Canvas.Font.Color := clBlue
     else
      Sender.Canvas.Font.Color := clBlack;
    end;