Главная страница
    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.46 MB
Время: 0.011 c
1-35345
KPY
2002-07-30 12:34
2002.08.12
Подскажите как лучше сделать


1-35235
НАИВный панк
2002-07-29 01:49
2002.08.12
как сделать что то типа консольного приложения...


14-35464
Bboy
2002-07-18 22:37
2002.08.12
Проблемы при просмотре фильма???!?!?!?


1-35284
Demona
2002-07-30 21:18
2002.08.12
как читать и редактировать файл в Юникодах?


1-35327
GTA 3
2002-07-29 21:03
2002.08.12
Сохранение строки в файл, НО в опр. строку по счёту





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
Английский Французский Немецкий Итальянский Португальский Русский Испанский