Форум по Delphi программированию

Delphi Sources



Вернуться   Форум по Delphi программированию > Все о Delphi > [ "Начинающим" ]
Ник
Пароль
Регистрация <<         Правила форума         >> FAQ Пользователи Календарь Поиск Сообщения за сегодня Все разделы прочитаны

Ответ
 
Опции темы Поиск в этой теме Опции просмотра
  #1  
Старый 23.07.2016, 16:44
aqula aqula вне форума
Новичок
 
Регистрация: 19.10.2012
Сообщения: 95
Репутация: 10
По умолчанию как отследить позицию scrollbox?

Как отследить что установлено самое верхнее положение в скроллбоксе?
Пробую так но ничего не показывает. ((
Код:
procedure TForm.FormMouseWheelUp(Sender: TObject; Shift: TShiftState;
  MousePos: TPoint; var Handled: Boolean);
begin
  if (Sender is TScrollBox) then
    showmessage(Inttostr(Scrollbox1.VertScrollBar.Position));
end;
Ответить с цитированием
  #2  
Старый 23.07.2016, 19:34
lmikle lmikle вне форума
Модератор
 
Регистрация: 17.04.2008
Сообщения: 8,004
Версия Delphi: 7, XE3, 10.2
Репутация: 49089
По умолчанию

ну, видимо, потому что Sender не есть TScrollBox.
убери этот if и попробуй, тем более, что эта проверка тебе нафиг не нужна, бо как потом ты обращаешься к компоненту напрямую, а не через Sender.
Ответить с цитированием
  #3  
Старый 24.07.2016, 07:31
aqula aqula вне форума
Новичок
 
Регистрация: 19.10.2012
Сообщения: 95
Репутация: 10
По умолчанию

Пробую так
Код:
procedure TForm.FormMouseWheelUp(Sender: TObject; Shift: TShiftState;
  MousePos: TPoint; var Handled: Boolean);
begin
  with ScrollBox1 do
  if  ((VertScrollBar.Position <= 4) OR
     (VertScrollBar.Position = VertScrollBar.Range - ClientHeight))
  then
    ShowMessage(Inttostr(VertScrollBar.Position));
end;
Интересно, что на других страницах pagecontrol выдает 0, а на той где есть скролбокс молчит.
Ответить с цитированием
Ответ


Delphi Sources

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

Расширенный поиск
Опции просмотра

Ваши права в разделе
Вы не можете создавать темы
Вы не можете отвечать на сообщения
Вы не можете прикреплять файлы
Вы не можете редактировать сообщения

BB-коды Вкл.
Смайлы Вкл.
[IMG] код Вкл.
HTML код Выкл.
Быстрый переход


Часовой пояс GMT +3, время: 08:53.


 

Сайт

Форум

FAQ

RSS лента

Прочее

 

Copyright © Форум "Delphi Sources" by BrokenByte Software, 2004-2023

ВКонтакте   Facebook   Twitter