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]

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

> мыш

> помощ

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

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