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

Вниз

скрола на мишке   Найти похожие ветки 

← →
Oleg_teacher ©   (2007-07-23 15:32) [0]

Как можна обрабатывать сообщения скрола на мишке допустим для scrollboxa. Если можна то с примером

---

← →
Хельг ©   (2007-07-23 15:49) [1]

procedure TForm1.ScrollBox1MouseWheel(Sender: TObject; Shift: TShiftState;
 WheelDelta: Integer; MousePos: TPoint; var Handled: Boolean);
begin
 //здесь пишеш что хочеш
end;

---

← →
любитель поорать   (2007-07-23 16:03) [2]

> [1] Хельг ©   (23.07.07 15:49)

Не, не так.

procedure TForm1.ScrollBox1BearWheel(Sender: TObject; Shift: TShiftState;
WheelDelta: Integer; BearPos: TPoint; var Handled: Boolean);
begin
//здесь пишеш что хочеш
end;

---

← →
MOO   (2007-07-24 13:03) [3]

Удалено модератором

---

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

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

Наверх

Память: 0.44 MB
Время: 0.086 c