(Sender) не работает на Win7!? НА XP и win 8 и win 10 все прекрасно работает!

@lifeforce · Регистрация: 27.09.2010

Студворк — интернет-сервис помощи студентам

Всем привет!

есть четыре CheckListBox-а на них при наведении мышки срабатывает обработчик OnMouseEnter.
на форме есть кнопка загрузки базы , нажав на нее загружается текст в CheckListBox-ы и после этого нет ни какой реакции на вход мышки на поле CheckListBox-а , то есть Sender уже не реагирует.
Это странное поведение касается только виндовс 7 , программа прекрасно работает на XP , win 8 , и win 10.
почему исчезает реакция только на семерке? как решить?
вот часть кода , там я поставил return после записи текста в первый CheckListBox , и мышка не реагирует только на первом CheckListBox-а все остальные работают (пока пустые если занести любой текст то тоже перестают работать).

C++
1
2
3
4
5
6
7
8
9
10
11
  data->Sort(); // сортирую список
  zajawka->Sort();
  izpolnitel->Sort();
  rajon->Sort();//
 
    CheckListBox1->Items->Text = data->Text;
    //CheckListBox1->OnMouseEnter = MouseEnter;
    return;
    CheckListBox2->Items->Text = rajon->Text;
    CheckListBox3->Items->Text = zajawka->Text;
    CheckListBox4->Items->Text = izpolnitel->Text;

вход мышки

C++
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
void __fastcall TForm_List_Rajon::MouseEnter(TObject *Sender)
{
   //ShowMessage("lll");
 
  if (N6->Checked == false) {
  //static
  TCheckListBox *//clb = NULL;
  clb = dynamic_cast <TCheckListBox *> ( Sender );
  clb->Height = 4 + clb->ItemHeight * clb->Items->Count;
 
  if(clb->Tag == 1)
  clb->Width = ComboBox1->Width;
  else
  if(clb->Tag == 2)
  clb->Width = ComboBox2->Width;
  else
  if(clb->Tag == 3)
  clb->Width = ComboBox3->Width;
  else
  if(clb->Tag == 4)
  clb->Width = ComboBox4->Width;
  clb->BringToFront();
                              }
}

выход мышки из поля CheckListBox-а

C++
1
2
3
4
5
6
7
8
9
10
void __fastcall TForm_List_Rajon::MouseLeave(TObject *Sender)
{
    if (N6->Checked == false) {
   TCheckListBox *clb// = NULL;
 // clb
   = dynamic_cast <TCheckListBox *> ( Sender );
  clb->Height = clb->ItemHeight;
  clb->Width = 17;
        }                     
}

@volvo · 05.10.2015, 21:08

Тестовый проект прикрепи, и расскажи, что нужно делать, чтобы воспроизвести ошибку. У меня Win7, проверю.

@lifeforce · 05.10.2015, 23:22 **[ТС]**

простой пример. после нажатия на кнопку перестает работать sender на CheckListBox1

@volvo · 06.10.2015, 01:20

lifeforce, а ничего, что у тебя при занесении строки в Items->Text к компоненту добавляется полоса прокрутки, и пока его ширина не будет как минимум GetSystemMetrics(SM_CXVSCROLL)+5 (а не 17, как у тебя в примере), мышь будет не над компонентом, а над полосой прокрутки, естественно, что событие работать не будет. Поправь:

C++
1
2
3
4
5
6
7
8
9
10
11
12
13
void __fastcall TForm1::CheckListBoxMouseLeave(TObject *Sender)
{
    TCheckListBox *clb = dynamic_cast<TCheckListBox*>(Sender);
    clb->Height = clb->ItemHeight;
    clb->Width = GetSystemMetrics(SM_CXVSCROLL) + 5;
}
 
// ---------------------------------------------------------------------------
void __fastcall TForm1::SpeedButton1Click(TObject *Sender)
{
    CheckListBox1->Items->Text = "yyyyy\n uuuuuu\n mmmmm \n dddd";
    CheckListBox1->Width = GetSystemMetrics(SM_CXVSCROLL) + 5;
}

- тогда все заработает...

@lifeforce · 06.10.2015, 07:52 **[ТС]**

volvo, спасибо за подсказку.
я специально скрываю ширину чтоб не мешало на экране и после наведения мышки - раскрывалось.
я не знал за такую команду.

Сообщение от volvo

GetSystemMetrics(SM_CXVSCROLL)

интересно что срабатывает только один раз.

вечером после работы посижу за решением.

@volvo · 06.10.2015, 09:00

Сообщение от lifeforce

интересно что срабатывает только один раз

Тестировал, работает столько раз, сколько пытался. Не один и не два и не 10, раз 25 точно отработало.

Сообщение от lifeforce

чтоб не мешало на экране и после наведения мышки - раскрывалось

Для этого есть TDockTabSet: кладешь панель на форму, связываешь ее с DockTabSet-ом, когда нужно - нажимаешь на вкладку - панель выезжает, на ней лежит все что нужно. По OnMouseLeave с панели убираешь с нее фокус - она сама сворачивается и компонент не занимает место на экране.

Пользуйся готовыми возможностями среды, а не придумывай велосипеды.

@lifeforce · 06.10.2015, 20:09 **[ТС]**

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

@lifeforce · 06.10.2015, 20:10 **[ТС]**

Сообщение от volvo

TDockTabSet:

для этого не совсем подходит.

@lifeforce · 06.10.2015, 22:10 **[ТС]**

Сообщение от volvo

при занесении строки в Items->Text к компоненту добавляется полоса прокрутки

Все оказалось очень банальнорешение. ведь действительно что добавляется полоса прокрутки, и мышка не активируется на ней. но в других системах(XP, win 8, win 10) продолжает работать?
решил проблему увеличением начального размера увеличив его до размера когда стало видно полосу прокрутки .

C++
1
clb->Width = 37;//17;

volvo, спасибо за правильную наводку.

вот результат работы на Windows 7.

Новые блоги и статьи Все статьи Все блоги /
Загрузка PNG-файла с альфа-каналом с помощью библиотеки SDL3_image на Android 8Observer8 27.01.2026 Содержание блога SDL3_image - это библиотека для загрузки и работы с изображениями. Эта пошаговая инструкция покажет, как загрузить и вывести на экран смартфона картинку с альфа-каналом, то есть с. . .	влияние грибов на сукцессию anaschu 26.01.2026 Бифуркационные изменения массы гриба происходят тогда, когда мы уменьшаем массу компоста в 10 раз, а скорость прироста биомассы уменьшаем в три раза. Скорость прироста биомассы может уменьшаться за. . .	Воспроизведение звукового файла с помощью SDL3_mixer при касании экрана Android 8Observer8 26.01.2026 Содержание блога SDL3_mixer - это библиотека я для воспроизведения аудио. В отличие от инструкции по добавлению текста код по проигрыванию звука уже содержится в шаблоне примера. Нужно только. . .	Установка Android SDK, NDK, JDK, CMake и т.д. 8Observer8 25.01.2026 Содержание блога Перейдите по ссылке: https:/ / developer. android. com/ studio и в самом низу страницы кликните по архиву "commandlinetools-win-xxxxxx_latest. zip" Извлеките архив и вы увидите. . .
Вывод текста со шрифтом TTF на Android с помощью библиотеки SDL3_ttf 8Observer8 25.01.2026 Содержание блога Если у вас не установлены Android SDK, NDK, JDK, и т. д. то сделайте это по следующей инструкции: Установка Android SDK, NDK, JDK, CMake и т. д. Сборка примера Скачайте. . .	Использование SDL3-callbacks вместо функции main() на Android, Desktop и WebAssembly 8Observer8 24.01.2026 Содержание блога Если вы откроете примеры для начинающих на официальном репозитории SDL3 в папке: examples, то вы увидите, что все примеры используют следующие четыре обязательные функции, а. . .	моя боль iceja 24.01.2026 Выложила интерполяцию кубическими сплайнами www. iceja. net REST сервисы временно не работают, только через Web. Написала за 56 рабочих часов этот сайт с нуля. При помощи perplexity. ai PRO , при. . .	Модель сукцессии микоризы anaschu 24.01.2026 Решили писать научную статью с неким РОманом

@volvo Супер-модератор 33376 / 21500 / 8236 Регистрация: 22.10.2011 Сообщений: 36,895 Записей в блоге: 11
	05.10.2015, 21:08
	Тестовый проект прикрепи, и расскажи, что нужно делать, чтобы воспроизвести ошибку. У меня Win7, проверю. 0

@lifeforce 266 / 211 / 89 Регистрация: 27.09.2010 Сообщений: 1,234
	06.10.2015, 20:09 [ТС]
	вот такой результат работы в двух вариантах. в первом выбираешь только один CheckListBox и там отмечаешь нужное. или второй вариант выбираешь один CheckListBox и автоматически высвечиваются все , это удобно для наглядности что было выбрано в других CheckListBox-ах. это типа фильтра (ИЛИ / И )текста Миниатюры 0

(Sender) не работает на Win7!? НА XP и win 8 и win 10 все прекрасно работает!

Решение