Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > Delphi программирование > Общие вопросы Delphi
Регистрация

Восстановить пароль
Повторная активизация e-mail

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 30.01.2010, 22:39   #1
Polotenchik
Форумчанин
 
Аватар для Polotenchik
 
Регистрация: 04.12.2008
Сообщений: 260
По умолчанию Прокрутка мышкой Frame

не пойму в чем ошибка: есть frame со скроллом. Хочу что бы он прокручивался мышкой. В события фрейма пишу:

Код:
procedure TF1_3.FrameMouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
  VertScrollBar.Position:=VertScrollBar.Position+5;
end;

procedure TF1_3.FrameMouseUp(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
  VertScrollBar.Position:=VertScrollBar.Position-5;
end;
И не работает! Что я забыл?
Я бы изменил мир, но Бог не дает исходники...
Polotenchik вне форума Ответить с цитированием
Старый 30.01.2010, 22:55   #2
mihali4
*
Старожил
 
Регистрация: 22.11.2006
Сообщений: 9,201
По умолчанию

Может, все-таки OnMouseWheelDown и OnMouseWheelUp ?
mihali4 вне форума Ответить с цитированием
Старый 30.01.2010, 22:59   #3
raxp
Старожил
 
Регистрация: 29.09.2009
Сообщений: 9,742
По умолчанию

свойство формы keypreview в true и... событие другое...
Код:
procedure TForm1.FormMouseWheel(Sender: TObject; Shift: TShiftState;
  WheelDelta: Integer; MousePos: TPoint; var Handled: Boolean);
begin
 if WheelDelta>0 then frame.VertScrollBar.Position:= frame.VertScrollBar.Position+5
  else frame.VertScrollBar.Position:= frame.VertScrollBar.Position-5
end;
о-пс... уже
Разработки и научно-технические публикации :: Видеоблог :: Твиттер
Radar systems engineer & Software developer of industrial automation
raxp вне форума Ответить с цитированием
Старый 30.01.2010, 23:08   #4
Polotenchik
Форумчанин
 
Аватар для Polotenchik
 
Регистрация: 04.12.2008
Сообщений: 260
По умолчанию

Точно! Спасибки!
Я бы изменил мир, но Бог не дает исходники...
Polotenchik вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
option и frame Peperovich HTML и CSS 1 24.11.2009 10:30
Проблемка с Frame. blackstersl Общие вопросы Delphi 2 03.08.2009 14:05
frame blackstersl Общие вопросы Delphi 1 18.09.2008 16:54
Frame in frame avalon8 Работа с сетью в Delphi 1 31.07.2008 16:14
Frame Zeraim Общие вопросы Delphi 1 25.05.2008 23:17