虽然下面的代码使用鼠标悬停在单元格的文本上正确设置了Form1.Caption,但是除非我单击该单元格,否则它不会显示任何DBGrid.Hint。
这幅画怎么了?
type
THackGrid = class(TDBGrid); // to expose protected DataLink property
procedure TForm1.DBGrid1MouseMove(Sender: TObject; Shift: TShiftState; X,
Y: Integer);
var
Cell: TGridCoord;
ActRec: Integer;
begin
Cell := DBGrid1.MouseCoord(X, Y);
if dgIndicator in DBGrid1.Options then
Dec(Cell.X);
if dgTitles in DBGrid1.Options then
Dec(Cell.Y);
if THackGrid(DBGrid1).DataLink.Active and (Cell.X >= 0) and
(Cell.Y >= 0) then
begin
ActRec := THackGrid(DBGrid1).DataLink.ActiveRecord;
try
THackGrid(DBGrid1).DataLink.ActiveRecord := Cell.Y;
Caption := DBGrid1.Columns[Cell.X].Field.AsString; // Form1.Caption shows fine!
DBGrid.Hint := DBGrid1.Columns[Cell.X].Field.AsString; // <== Hint only shows when I click into the cell!
finally
THackGrid(DBGrid1).DataLink.ActiveRecord := ActRec;
end;
end;
end;
最佳答案
用所需的提示坐标调用Application.ActivateHint
,例如
Procedure ChangeHint(C: TControl; Const Hint: String; p: TPoint);
var
OldHint: String;
begin
OldHint := C.Hint;
if Hint <> OldHint then
begin
C.Hint := Hint;
Application.ActivateHint(p);
end;
end;
procedure TForm3.DBGrid1MouseMove(Sender: TObject; Shift: TShiftState; X, Y: Integer);
begin
...
ChangeHint(TDBGrid(Sender), YourIntendedHintText, TDBGrid(Sender).ClientToScreen(Point(X, Y)));
....
end;