TStringGrid的问题。

Question

procedure TForm1.StringGrid1SelectCell(Sender: TObject; ACol,
  ARow: Integer; var CanSelect: Boolean);
begin
     if (ACol and $01) = 1 then
        ImeMode := imClose   //关闭IME
     else ImeMode := imOpen;
     SetIme;
end;

Answer 1

哥们儿，TStringGrid没有ImeMode这个属性，我怎么把它的值设成imDisable?

Answer 2

ImeMode := imclose; //关闭IME
SetIme;
是可以的阿

Answer 3

blackdankey(blackdankey，不好意思，没有可用分啦，借你的帖子问个问题：
  能给TStringGrid添加列标题吗？

Answer 4

wITH STRINGGRID2 DO
    BEGIN
      ColWidths[0]:=10;
      ColWidths[4]:=-1;
      ColWidths[3]:=-1;
      ColWidths[1]:=60;
      ColWidths[2]:=30;
      CELLS[5,0]:='工作计划';
      CELLS[6,0]:='领导安排';
      //CELLS[3,0]:='工作日志';
      CELLS[1,0]:='员工姓名';
      CELLS[2,0]:='天数';
    END;