Форум: "Начинающим";
Текущий архив: 2009.08.02;
Скачать: [xml.tar.bz2];

Вниз

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

← →
madmech ©   (2009-06-03 15:33) [0]

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

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

---

← →
brother ©   (2009-06-04 11:16) [1]

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

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

---

← →
madmech ©   (2009-06-04 16:51) [2]

ОК

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;

---

← →
oldman ©   (2009-06-04 23:43) [3]

По мелочи:


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


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

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

---

← →
oldman ©   (2009-06-05 01:26) [4]

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

---

Страницы: 1 вся ветка

Форум: "Начинающим";
Текущий архив: 2009.08.02;
Скачать: [xml.tar.bz2];

Наверх

Память: 0.46 MB
Время: 0.004 c