Одним из багов, которые вы могли заметить в нашей первой попытке показать контекстное меню - это то, что диалог "Свойства" не показывается в той точке, что вы щёлкнули. Диалог "Свойства" не обладает телепатическими способностями и не знает, где произошёл первый щелчок мыши. Вы должны сказать ему.
Вы говорите это установкой флага CMIC_MASK_PTINVOKE в поле fMask и указывая точку вызова в поле ptInvoke записи TCMInvokeCommandInfoEx.
FillChar(Info, SizeOf(Info), 0);
Info.cbSize := SizeOf(info);
Info.fMask := CMIC_MASK_UNICODE or CMIC_MASK_PTINVOKE;
Info.hwnd := Handle;
Info.lpVerb := MAKEINTRESOURCEA(iCmd - SCRATCH_QCM_FIRST);
Info.lpVerbW := MAKEINTRESOURCEW(iCmd - SCRATCH_QCM_FIRST);
Info.nShow := SW_SHOWNORMAL;
Info.ptInvoke := Pt;
Сделайте это изменение и заметьте, что теперь диалог "Свойства" показывается в точке, где вы щёлкнули мышью для вызова меню, а не в каком-то случайном месте на мониторе.
В следующий раз мы избавимся ещё от одной проблемы с нашей программой.
Комментариев нет:
Отправить комментарий
Можно использовать некоторые HTML-теги, например:
<b>Жирный</b>
<i>Курсив</i>
<a href="http://www.example.com/">Ссылка</a>
Вам необязательно регистрироваться для комментирования - для этого просто выберите из списка "Анонимный" (для анонимного комментария) или "Имя/URL" (для указания вашего имени и ссылки на сайт). Все прочие варианты потребуют от вас входа в вашу учётку.
Пожалуйста, по возможности используйте "Имя/URL" вместо "Анонимный". URL можно просто не указывать.
Ваше сообщение может быть помечено как спам спам-фильтром - не волнуйтесь, оно появится после проверки администратором.
Примечание. Отправлять комментарии могут только участники этого блога.