procedure Tfrm1.DBGrid1MouseUp(Sender: TObject;
Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
begin
DBGrid1.ShowHint := true;
if FdmStoreManage.cdsBeiWL.RecordCount >0 then
DBGrid1.Hint := DBGrid1.SelectedField.AsString;
Application.HintHidePause := 60000;
end;
设置Column[i]的ToolTips为True
DBGridEh的ShowHint为True
当容不下时就会出现Hint