Скачать: CL | DM;

TStringGrid, мыш, хинт   Найти похожие ветки 

← →
Andrey K   (2009-06-29 10:58) [0]

Доброго времени суток.
Обрабатываю:
sgTextWork: TStringGrid;

procedure Tfm1.sgTextWorkMouseMove(Sender: TObject;
 Shift: TShiftState; X, Y: Integer);
var xc,yr: Longint;
begin
 
 with sgTextWork do
 begin
   MouseToCell(x,y,xc,yr);
   if yr > 0 then
   begin
     ShowHint := true;
     Hint := yr-1;
   end
   else ShowHint := false;
 end;
end;
При перемещении указателя мыши по sgTextWork не изменяется номер строки, какую первую «строку засёк», ту и показывает.
Как быть?

---

← →
oldman ©   (2009-06-29 12:10) [1]

Попробуй убрать with sgTextWork do
И написать
> sgTextWork.MouseToCell(x,y,xc,yr)

---

← →
Jungle ©   (2009-06-29 12:10) [2]

var
 xc_old, yr_old: Longint;

...

procedure Tfm1.FormCreate(Sender: TObject);
begin
 sgTextWork.Hint := "";
 sgTextWork.ShowHint := true;
 xc_old := -1;
 yr_old := -1;
end;

procedure Tfm1.sgTextWorkMouseMove(Sender: TObject;
Shift: TShiftState; X, Y: Integer);
var
 xc, yr: Longint;

begin
 with sgTextWork do
 begin
   MouseToCell(x, y, xc, yr);
   if ( yr > 0 ) and ( ( yr <> yr_old ) or ( xc <> xc_old ) ) then
   begin
     Application.CancelHint;
     xc_old := xc;
     yr_old := yr;
     Hint := IntToStr(yr - 1);
   end
 end;
end

Пойдёт?

---

← →
Andrey K   (2009-06-29 13:08) [3]

Спасибо за помощ. Работает нормально.

---

← →
TIF ©   (2009-06-29 20:26) [4]

> мыш

> помощ

:^)
То ли грамотность хромает, то ли мягкий знак на клавиатуре барахлит

---

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

Скачать: CL | DM;



Память: 0.45 MB
Время: 0.01 c