谢谢~

解决方案 »

  1.   

    在上面显示hint可能没有办法不过
    当鼠标点击时或用键盘移到光标到当前单元格时可以
      

  2.   

    用AnyLib吧,可以满足你的要求
    <A href="http://www.anylib.com">http://www.anylib.com</A>
      

  3.   

    procedure Tform1.DBGridEh2CellClick(Column: TColumnEh);
    var 
      str : String;
    begin
      inherited;
      if DBGridEh2.SelectedField <> nil then
      begin
        str := DBGridEh2.Fields[DBGridEh2.SelectedIndex].AsString;
        DBGridEh2.Hint := str;
      end;
    end;
    procedure TfFYAO_Htpy.DBGridEh2ColEnter(Sender: TObject);
    begin
      inherited;
      if DBGridEh2.Fields[DBGridEh2.SelectedIndex].AsString <> '' then
        DBGridEh2CellClick(nil);end;
      

  4.   

    showhint设置为true,没有变化。是不是因为盗版delphi的缘故?