[madmech]

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


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

[Grunch]

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

[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;

[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;

[Mag992]

madmech, не могли бы вы подсказать, как у вас реализован размер Хинта? а то у меня почему то от курсора мыиш, до правого края монитора....
(Сорь, не по теме)