Неправильно всплывает хинт

[madmech]

Я формирую в таблице (DBGrid) всплывающие хинты, меняющиеся от каждой строчки к строчке и от каждого столбца к столбцу в зависимости от содержимого ячейки. До поры до времени все происходит нормально - хинт всплывает в правильном месте: возле указателя мыши. Но как только указатель смещается к двум последним столбцам и трем последним строчкам (в правый нижний угол), хинт почему-то начинает появляться вверху, как показано на приведенном изображении:


Кто-нибудь сталкивался с подобной проблемой и если да, то как решили? Фрагменты кода по обработке движения мыши над ДБГридом готов предоставить по необходимости.

[Stilet]

Фрагменты кода по обработке движения мыши над ДБГридом готов предоставить по необходимости.

Предьяви.
И покажи как ты хинт вылезать заставляешь?
Как ты с хинтом работаешь.

[Alex Cones]

Сам сказал -

в правый нижний угол

Скорее всего ему просто не хватает места, что бы отобразится правильно. Подобное происходит и в меню "Пуск": Если открытие следующей папки вправо недопустимо, она открывается влево.

[madmech]

Сообщение от Alex Cones

Сам сказал - Скорее всего ему просто не хватает места, что бы отобразится правильно. Подобное происходит и в меню "Пуск": Если открытие следующей папки вправо недопустимо, она открывается влево.

И что же делать?

Предьяви.
И покажи как ты хинт вылезать заставляешь?
Как ты с хинтом работаешь.

Предъявляю:

procedure TMainForm.EnumDBGridMouseMove(Sender: TObject;
  Shift: TShiftState; X, Y: Integer);   
var XX, YY, CurRec: integer;
    m, i, Pos: integer;
    s: string;
    KG_Flag: Boolean;
begin
  with THackDBGrid(EnumDBGrid) do
    begin
      XX := MouseCoord(x, y).x;
      YY := MouseCoord(x, y).y;
      CurRec := DataLink.ActiveRecord;
      DataLink.ActiveRecord := YY - 1;
          if ((XX = 2) or (XX = 2 * number1 + 3) or (XX = 2 * number1 + 4)) and (YY > 0) then
            begin
              ShowHint := True;
              DM1.EnumCDS.RecNo := Columns[1].Field.AsInteger;
              for m := 1 to number1 do
                begin
                  Pos := 1;
                  for i := 1 to quantity do
                    begin
                      if i = 1 then
                        begin
                          if m = 1 then
                            s := 'Подгруппа ' + IntToStr(m) + ': ' +
                                 SurName[StrToInt(ExtractSubstr(Columns[2*m].Field.AsString, Pos, [',', ' ']))-1]
                          else
                            s := s + #13 + 'Подгруппа ' + IntToStr(m) + ': ' +
                                 SurName[StrToInt(ExtractSubstr(Columns[2*m].Field.AsString, Pos, [',', ' ']))-1];
                        end
                      else
                        s := s + ', ' + SurName[StrToInt(ExtractSubstr(Columns[2*m].Field.AsString, Pos, [',', ' ']))-1];
                      Pos := Pos + 1;
                    end;
                end;
              Hint := s;
            end;
      Application.ActivateHint(Point(X, Y));
      DataLink.ActiveRecord := CurRec;
    end;
end;

[Скандербег]

В справке ясно сказано, что в параметре ActivateHint передаются экранные координаты, а в этой процедуре X и Y клиентские. Достаточно перевести клиентские в экранные и, думаю, будет все в порядке, во всяком случае, у меня хинт в такой же ситуации отображается нормально.

      P := ClientToScreen(Point(X, Y));
      Application.ActivateHint(P);

где P : TPoint;

[madmech]

Не помогло!

[Stilet]

Достаточно перевести клиентские в экранные

Все еще проще.

  Application.ActivateHint(Mouse.CursorPos);

[madmech]

Все заработало, всем спасибо!