ReSQL.ru
     
powered by simpleCommunicator - 2.0.61     © 2026 Programmizd 02
Мобильная версия    Контакт    Правила    FAQ    Помощь
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Доб. в избранное | Игнор. тему | Прикреп. тему | Пометить прочит. / непрочит. | Фильтр
Форумы / Delphi [игнор отключен] [закрыт для гостей] / Trackbar и scrollbox проблема с фокусом
18 сообщений из 18, страница 1 из 1
Trackbar и scrollbox проблема с фокусом
    #39717439
Фотография Tech N9ne
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Tech N9ne
Участник
Добрый день, делаю программку, для прослушивания радиостанций.
на форме:
trackbar - которым регулирую громкость
scrollbox - в него создаю speedbuttonЫ, по нажатию которых, начинает воспроизводится радиостанция.
кнопок на скролбаре может быть до 50.
соответственно нужно крутить скроллом этот скроллбар.

пытался искать код в интернете, который реализует эту возможность, но при скроллинге скролбар не реагирует, так как фокус находится у трэкбара.
в on_change трэкбара, делал
Код: pascal
1.
scrollbar1.SetFocus;


и вроде работало. Но после того, как дописал сохранение позиции трэкбара в ини файл, выскакивает ошибка, Cannot focus a disabled or invisible window.

вопрос, собсно))
как мне прокручивать скроллбар (скроллом), если трэкбар перехватывает фокус?
...
Рейтинг: 0 / 0
15.10.2018, 11:06
| Ответить | Цитировать | Написать  
Trackbar и scrollbox проблема с фокусом
    #39717448
Фотография Tech N9ne
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Tech N9ne
Участник
Tech N9ne,
тьфу ты.. перепутал в первом сообщении scrollbox со scrollbar`ом.

Речь конкретно о scrollbox.

Если не внятно объяснил, киньте на форму trackbar и scrollbox
в scrollbox накидайте чего нибудь и попробуйте скроллить колесом
...
Рейтинг: 0 / 0
15.10.2018, 11:15
| Ответить | Цитировать | Написать  
Trackbar и scrollbox проблема с фокусом
    #39717470
Фотография _Vasilisk_
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
_Vasilisk_
Участник
Tech N9neпосле того, как дописал сохранение позиции трэкбара в ини файл, выскакивает ошибка, Cannot focus a disabled or invisible window.Код сохранения будет?
...
Рейтинг: 0 / 0
15.10.2018, 11:44
| Ответить | Цитировать | Написать  
Trackbar и scrollbox проблема с фокусом
    #39717480
Фотография Tech N9ne
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Tech N9ne
Участник
_Vasilisk_Tech N9neпосле того, как дописал сохранение позиции трэкбара в ини файл, выскакивает ошибка, Cannot focus a disabled or invisible window.Код сохранения будет?
Та дело не в коде сохранения. Там всё ок сохраняется, делал 100 раз))
На on_change в трэкбаре, делал scrollbox.setfocus. B всё работало.
После того как сделал сохранение позиции трэкбара в ini, стала выскакивать эта ошибка.
НО, если стереть "scrollbox.setfocus" - всё ок.
но scrollbox.setfocus мне нужен, так как без этого не могу скроллить колесом scrollbox.

Ну и если вы настаиваете)
Код: pascal
1.
2.
3.
4.
5.
6.
7.
 {FormCreate} ini := TIniFile.Create(ExtractFilePath(ParamStr(0))+'RadioSettings.ini');
 sTrackBar1.Position := ini.ReadInteger( 'Громкость' , 'Уровень громкости' , sTrackBar1.Position );
ini.free
{-------------------------------------------------------}
{Destroy} ini := TIniFile.Create(ExtractFilePath(ParamStr(0))+'RadioSettings.ini');
   ini.WriteInteger( 'Громкость' , 'Уровень громкости' , sTrackBar1.Position );
  ini.Free;
...
Рейтинг: 0 / 0
15.10.2018, 11:55
| Ответить | Цитировать | Написать  
Trackbar и scrollbox проблема с фокусом
    #39717489
Фотография Tech N9ne
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Tech N9ne
Участник
_Vasilisk_,


вот кручу скролл, а крутится трэкбар, за место scrollboxa
на гифке не видно курсора, он находится над кнопками скролбокса
...
Рейтинг: 0 / 0
15.10.2018, 12:02
| Ответить | Цитировать | Написать  
Trackbar и scrollbox проблема с фокусом
    #39717490
goldmi45
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
goldmi45
Участник
Tech N9ne,

в момент создания формы нельзя устанавливать фокус на компоненты. Перенесите код в OnShow.
...
Рейтинг: 0 / 0
15.10.2018, 12:03
| Ответить | Цитировать | Написать  
Trackbar и scrollbox проблема с фокусом
    #39717497
Фотография Tech N9ne
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Tech N9ne
Участник
goldmi45Tech N9ne,

в момент создания формы нельзя устанавливать фокус на компоненты. Перенесите код в OnShow.
Это будет работать, если никогда не притрагиваться к трэкбару.
по этому я в On_Change вставил
...
Рейтинг: 0 / 0
15.10.2018, 12:12
| Ответить | Цитировать | Написать  
Trackbar и scrollbox проблема с фокусом
    #39717499
Фотография Tech N9ne
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Tech N9ne
Участник
Окей ребят, я боюсь запутать вас. Если есть возможность, откройте дельфу, киньте трэкбар и скорллбокс на форму.
накидайте чего нибудь в скролбокс, что бы появилась полоса прокрутки. скомпильте и попробуйте поскроллить скроллом мыши.

Как вы решите эту проблему у себя?))
...
Рейтинг: 0 / 0
15.10.2018, 12:14
| Ответить | Цитировать | Написать  
Trackbar и scrollbox проблема с фокусом
    #39717505
DimaBr
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
DimaBr
Участник
Код: pascal
1.
2.
3.
4.
5.
procedure TForm1.ScrollBox1MouseWheel(Sender: TObject; Shift: TShiftState;
  WheelDelta: Integer; MousePos: TPoint; var Handled: Boolean);
begin
  ScrollBox1.VertScrollBar.Position := ScrollBox1.VertScrollBar.Position - WheelDelta;
end;
...
Рейтинг: 0 / 0
15.10.2018, 12:18
| Ответить | Цитировать | Написать  
Trackbar и scrollbox проблема с фокусом
    #39717509
Фотография Tech N9ne
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Tech N9ne
Участник
DimaBr
Код: pascal
1.
2.
3.
4.
5.
procedure TForm1.ScrollBox1MouseWheel(Sender: TObject; Shift: TShiftState;
  WheelDelta: Integer; MousePos: TPoint; var Handled: Boolean);
begin
  ScrollBox1.VertScrollBar.Position := ScrollBox1.VertScrollBar.Position - WheelDelta;
end;


Неа, ведь фокус то на трэкбаре
...
Рейтинг: 0 / 0
15.10.2018, 12:20
| Ответить | Цитировать | Написать  
Trackbar и scrollbox проблема с фокусом
    #39717513
DimaBr
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
DimaBr
Участник
...
Рейтинг: 0 / 0
15.10.2018, 12:22
| Ответить | Цитировать | Написать  
Trackbar и scrollbox проблема с фокусом
    #39717514
Фотография Tech N9ne
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Tech N9ne
Участник
DimaBr

кинь еще трэкбар на форму. Не в скроллбокс, а чисто на форму
...
Рейтинг: 0 / 0
15.10.2018, 12:24
| Ответить | Цитировать | Написать  
Trackbar и scrollbox проблема с фокусом
    #39717520
goldmi45
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
goldmi45
Участник
Tech N9negoldmi45Tech N9ne,

в момент создания формы нельзя устанавливать фокус на компоненты. Перенесите код в OnShow.
Это будет работать, если никогда не притрагиваться к трэкбару.
по этому я в On_Change вставил
вы устанавливаете позицию трекбару в OnCreate формы, а на изменение позиции трекбара у вас код на установку фокуса в скроллбокс. Перенесите код установки позиции трекбара из OnCreate в OnShow. Тогда установка курсора на скроллбокс при изменении позиции трекбара будет работать.
...
Рейтинг: 0 / 0
15.10.2018, 12:28
| Ответить | Цитировать | Написать  
Trackbar и scrollbox проблема с фокусом
    #39717524
Фотография Tech N9ne
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Tech N9ne
Участник
goldmi45Tech N9neпропущено...

Это будет работать, если никогда не притрагиваться к трэкбару.
по этому я в On_Change вставил
вы устанавливаете позицию трекбару в OnCreate формы, а на изменение позиции трекбара у вас код на установку фокуса в скроллбокс. Перенесите код установки позиции трекбара из OnCreate в OnShow. Тогда установка курсора на скроллбокс при изменении позиции трекбара будет работать.
бляха-муха))))))))
спасибо, спасибо всем за потраченное на меня время))
...
Рейтинг: 0 / 0
15.10.2018, 12:33
| Ответить | Цитировать | Написать  
Trackbar и scrollbox проблема с фокусом
    #39717527
DimaBr
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
DimaBr
Участник
Tech N9neНеа, ведь фокус то на трэкбаре
Когда фокус на TrackBar1, то скролится он.
...
Рейтинг: 0 / 0
15.10.2018, 12:36
| Ответить | Цитировать | Написать  
Trackbar и scrollbox проблема с фокусом
    #39717531
goldmi45
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
goldmi45
Участник
Tech N9ne,

У скролбокса есть событие OnMouseEnter - вот в нём и можно переводить фокус на себя.
...
Рейтинг: 0 / 0
15.10.2018, 12:39
| Ответить | Цитировать | Написать  
Trackbar и scrollbox проблема с фокусом
    #39717536
Фотография Tech N9ne
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Tech N9ne
Участник
goldmi45,
Спасибо) так даже удобней.
...
Рейтинг: 0 / 0
15.10.2018, 12:48
| Ответить | Цитировать | Написать  
Trackbar и scrollbox проблема с фокусом
    #39717577
Сергей N
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Сергей N
Гость
Не надо дергать фокус. Фиксируйте нахождение мыши на трэкбаре (например, создав переменную MouseOnTrackBar, и устанавливая ее в True/False при событиях OnMouseEnter/OnMouseLeave). Тогда перенаправление события скроллинга формы будет выглядеть примерно так:
Код: pascal
1.
2.
3.
4.
5.
Tform1.FormMouseWheel(Sender: TObject; Shift: TShiftState; WheelDelta: Integer; MousePos: TPoint; var Handled: Boolean);
  if MouseOnTrackBar then begin
    ... // управление позицией трэкбара
    Handled:= True;
  end;
...
Рейтинг: 0 / 0
15.10.2018, 13:19
| Ответить | Цитировать | Написать  
18 сообщений из 18, страница 1 из 1
Форумы / Delphi [игнор отключен] [закрыт для гостей] / Trackbar и scrollbox проблема с фокусом
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение   Полит. конфиден.  
NoSQL.ru       Кролег: Проекты, Новости, Чат       РЕД ФОРУМ       Фотоальбом: Участники, Встречи
Закрыть
start [/forum/topic.php?fid=58&gotonew=1&tid=2040272]:
 0ms
get settings:
 8ms
get forum list:
 16ms
check forum access:
 3ms
check topic access:
 3ms
track hit:
 152ms
get topic data:
 9ms
get first new msg:
 5ms
get forum data:
 2ms
get page messages:
 46ms
get tp. blocked users:
 1ms
others: 203ms
total:  448ms
созд. / загр.: 448ms
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]