| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

Неправильно всплывает хинт [D7, XP]

madmech ©   (2009-06-03 15:33:00) 

Я формирую в таблице (DBGrid) всплывающие хинты, меняющиеся от каждой строчки к строчке и от каждого столбца к столбцу в зависимости от содержимого ячейки. До поры до времени все происходит нормально - хинт всплывает в правильном месте: возле указателя мыши. Но как только указатель смещается к двум последним столбцам и трем последним строчкам (в правый нижний угол), хинт почему-то начинает появляться вверху, как показано на приведенном изображении:
http://fo-ma.ru/8/73/59/387359/6.jpg

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

---

oldman   (2009-06-05 01:26:00) [1]

Не надо читать [3]
Устал я чего-то и торможу. Спать пойду, наверное.

---

oldman   (2009-06-04 23:43:00) [2]

По мелочи:


> ShowHint := True;
> Application.ActivateHint(Point(X, Y));


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

И почему Hint:=s стоит ПОСЛЕ ShowHint:=True?

---

madmech   (2009-06-04 16:51:00) [3]

ОК

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;

---

brother   (2009-06-04 11:16:00) [4]

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

а ты считаешь, что сейчас не надо?

---

Наверх