wm_mousemove

← →
Schummi © (2002-07-20 10:53) [0]

Мастера, подскажите, как отловить перемещенее мыши - будь то по форме с компонентами или вне формы. Зачем мне это надо: в ListBox1 показываются строки, если строка длиннее, чем сам ListBox1, то показывается hint в прямоугольнике строки. Но если резко дернуть мышку, то hint останется, а надо, чтобы он убирался. Помогите, плз! Спасибо!

← →
ION T © (2002-07-20 13:17) [1]

А как определишь "резко" или "не резко"?)

← →
Polevi © (2002-07-20 13:20) [2]

хук

← →
Schummi © (2002-07-21 06:09) [3]

To ION T ©
Вот именно, я и не знаю, как может пользователь дернуть мышкой! А ты разве сам на понимаешь, как это - резко и нерезко???

← →
SPeller © (2002-07-21 08:34) [4]

Всё дело в том, что если "резко дёрнуть" мышкой, то следующий mousemove произойдёт на расстоянии ну около 50-100 пикселей. Так и определяй, резко или не резко.

← →
SPeller © (2002-07-21 08:36) [5]

А вообще, зачем это тебе? Сделай так, чтобы навёл мышой - появился хинт и висел, пока не уберёшь указатель. Зачам оно надо юзеру ради лицезрения твоего хинта дёргать мышкой?

← →
Schummi © (2002-07-25 09:13) [6]

2SPeller ну а вдруг ему захочется!

← →
Eugene Lachinov © (2002-07-25 09:27) [7]

Попробуй так
procedure TForm1.ListBox1MouseMove(Sender: TObject; Shift: TShiftState; X,
Y: Integer);
var
Item : Integer;
sHint : string;
begin
if Shift = [] then begin
Item := ListBox1.ItemAtPos(Point(X, Y), True);
if Item <> -1 then
sHint := ListBox1.Items[Item]
else
sHint := "";
if ListBox1.Hint <> sHint then begin
Application.CancelHint;
ListBox1.Hint := sHint
end
end
end;

← →
Schummi © (2002-07-30 08:36) [8]

ok попытаюсь!

← →
Starkom (2002-07-30 08:41) [9]

2 Шумми, у меня для такой цели висит таймер. Пусть дергает - через 2,5 секунды хинт исчезает, и это достаточно ненапряжно.

Ясно!

Посмотри еще что-нибудь наподобие OnMouseLeave

wm_mousemove Найти похожие ветки