Прокрутка колёсика мыши (Я КАСТРЮЛЯ)

← →
КАСТРУЛЯ (2003-01-30 16:24) [0]

Я КАСТРЮЛЯ.
С отловом сообщений не работала.
Напишите, пожалуйста, ПОЛНЫЙ код, чтобы при прокрутке колёсика мыши выполнялось какое-либо действие.
ОЧЕНЬ НУЖНО!!!

← →
gsu © (2003-01-30 16:26) [1]

procedure TForm1.FormMouseWheel(Sender: TObject; Shift: TShiftState;
WheelDelta: Integer; MousePos: TPoint; var Handled: Boolean);
begin
Caption:="Я КАСТРЮЛЯ";
end;

← →
Max2002 (2003-01-30 16:38) [2]

Ты - девушка?! Программирующая?! Слушай, а давай просто познакомимся - меня зовут Макс! Тоже программист, об остальном в письме :))) мой email-xfire@mail.ru, пиши, буду ждать !!!

← →
Delirium^.Tremens © (2003-01-30 16:48) [3]

Max2002 (30.01.03 16:38)
На кухонную утварь потянуло?

← →
Ketmar © (2003-01-30 16:59) [4]

запросто. даже без кода. пачкаем колесико чем-нибудь (фекалиями, например) и подсовываем боссу, который увлеченно рассматривает порнуху в Сети. море действий гарантирую.

Satanas Nobiscum! 30-Jan-XXXVIII A.S.

Способ так же основанный на пачкании колесика:
Размечаешь колесико маркеров, например через каждые 5 мм. А потом каждые 13 сек спрашиваешь у пользователя, на сколько меток и в какую сторону было прокручено колесико.

Прокрутка колёсика мыши (Я КАСТРЮЛЯ) Найти похожие ветки