Главная страница
    Top.Mail.Ru    Яндекс.Метрика
Форум: "Основная";
Текущий архив: 2002.08.12;
Скачать: [xml.tar.bz2];

Вниз

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 секунды хинт исчезает, и это достаточно ненапряжно.


 
Schummi   (2002-07-31 08:13) [10]

Ясно!


 
Alx2   (2002-07-31 08:55) [11]

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



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

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

Наверх





Память: 0.57 MB
Время: 0.029 c
1-35265
ALexSvid
2002-07-29 22:20
2002.08.12
компаненты для експорта данных в формате Excel


1-35373
Starkom
2002-07-30 16:24
2002.08.12
А кто мне скажет почему в Борланде такие плохие хелпописатели???


3-35160
AndbyOne
2002-07-19 12:10
2002.08.12
Удаление записи в IB


8-35393
DDDeN
2002-04-10 15:48
2002.08.12
Работа со звуком


14-35462
Baz
2002-07-18 15:49
2002.08.12
Outlook Express





Afrikaans Albanian Arabic Armenian Azerbaijani Basque Belarusian Bulgarian Catalan Chinese (Simplified) Chinese (Traditional) Croatian Czech Danish Dutch English Estonian Filipino Finnish French
Galician Georgian German Greek Haitian Creole Hebrew Hindi Hungarian Icelandic Indonesian Irish Italian Japanese Korean Latvian Lithuanian Macedonian Malay Maltese Norwegian
Persian Polish Portuguese Romanian Russian Serbian Slovak Slovenian Spanish Swahili Swedish Thai Turkish Ukrainian Urdu Vietnamese Welsh Yiddish Bengali Bosnian
Cebuano Esperanto Gujarati Hausa Hmong Igbo Javanese Kannada Khmer Lao Latin Maori Marathi Mongolian Nepali Punjabi Somali Tamil Telugu Yoruba
Zulu
Английский Французский Немецкий Итальянский Португальский Русский Испанский