[madmech]

Сообщение от Grunch

Ну да, без кода трудно сказать что-то определенное, но подозреваю что это связано с тем, что хинт пытается отрисоваться ниже и правее мышки, а там ему не хватает места и он пытается отрисоваться левее и выше курсора. Ну и видимо путает кординаты и вылазиет вверху.

Хорошо, что тут можно предпринять?
Предъявляю код:

Код:

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;