 |
|
Модераторы: Poseidon, Snowy, bems, MetalFan |
 
|
|
PageControl и правая кнопка мыши. С моим типом не работает. 
| ivan219 |
|
|||
 Эксперт  Профиль Группа: Завсегдатай Сообщений: 1121 Регистрация: 19.11.2005 Где: Планета земля Репутация: 2 Всего: 12 |
Я вынет все типы на основе которых создаётся PageControl TabSheet в отдельный Unit и создал свой тип TMyCustomTabControl TMyPageControl TMyTabSheet ну и сопутствующие типы те которые используются в этих.
Зарегистрировал компонент TMyPageControl всё ОК. Проблема в следующем когда наводишь курсор на обычный PageControl и нажимаешь правую кнопку мыши то появляется меню где можно выбрать New Page т.е. новая закладка можно удалить и.т.д. но вот в моём компоненте это заделать нельзя хотя динамически из типа TMyTabSheet создаётся закладка. Ошибок нет всё компилируясь. Так что проблема в этом меню как его создать  |
|||
|
||||
Дата 23.2.2007, 16:25 (
Загрузка ...
| aktuba |
|
|||
 Смышленный Профиль Группа: Завсегдатай Сообщений: 1915 Регистрация: 24.4.2006 Где: Планета Земля Репутация: 16 Всего: 38 |
Ты бы хоть код показал. Откуда остальные знают, чего ты там накодил?
 --------------------  |
|||
|
||||
| ivan219 |
|
||||
|
Эксперт Профиль Группа: Завсегдатай Сообщений: 1121 Регистрация: 19.11.2005 Где: Планета земля Репутация: 2 Всего: 12 |
А код на 1600 строк правда но в форум не влазиит
 это обычный PageControl проблема лиш в том что при щилчке правой кнопкой мыши на компоненте не появляется то меню которое должно быть как у PageControl и только всё остальное работает.Добавлено @ 17:31
Присоединённый файл ( Кол-во скачиваний: 4 ) 
MypageControl.rar 7,50 Kb |
||||
|
|||||
| Sunvas |
|
|||
 Соль и сахар Профиль Группа: Участник Сообщений: 3388 Регистрация: 12.3.2006 Где: Тосно Репутация: 28 Всего: 89 |
ivan219, ты вообще какие-то изменения в коде делал?
-------------------- Воспитывая детей по своему образу и подобию, родители почему-то надеются, что они будут лучше их. |
|||
|
||||
| ivan219 |
|
|||
|
Эксперт Профиль Группа: Завсегдатай Сообщений: 1121 Регистрация: 19.11.2005 Где: Планета земля Репутация: 2 Всего: 12 |
Я только переименовал типы TPageContoro -> TMyPageControl, TTabSheet -> TMyTabSheet, TCustomTabControl -> TMyCustomTabControl вовсём коде и болше ничего, он работает и компилится без проблем нету только этого меню. Это сообщение отредактировал(а) ivan219 - 23.2.2007, 17:59 |
|||
|
||||
| Sunvas |
|
|||
|
Соль и сахар Профиль Группа: Участник Сообщений: 3388 Регистрация: 12.3.2006 Где: Тосно Репутация: 28 Всего: 89 |
ivan219, да.. Интересная проблема. Вот уже скоко долблюсь, а нигде не могу найти хотя бы зацепку.
 -------------------- Воспитывая детей по своему образу и подобию, родители почему-то надеются, что они будут лучше их. |
|||
|
||||
| ivan219 |
|
|||
|
Эксперт Профиль Группа: Завсегдатай Сообщений: 1121 Регистрация: 19.11.2005 Где: Планета земля Репутация: 2 Всего: 12 |
Может там как отдельно регестрируется в самой Delphi этоже её меню.
Да и если зделать новый клас от PageControl то это меню появляется значит гдето в PageControl этот зверёк сидит. |
|||
|
||||
| Sunvas |
|
|||
|
Соль и сахар Профиль Группа: Участник Сообщений: 3388 Регистрация: 12.3.2006 Где: Тосно Репутация: 28 Всего: 89 |
Хм. Я переискал везде текст previous так ничего и не нашел..
 -------------------- Воспитывая детей по своему образу и подобию, родители почему-то надеются, что они будут лучше их. |
|||
|
||||
| ivan219 |
|
|||
|
Эксперт Профиль Группа: Завсегдатай Сообщений: 1121 Регистрация: 19.11.2005 Где: Планета земля Репутация: 2 Всего: 12 |
А воще это возможно зделать такое меню может это сами разработчики Dephi так зделали а самому такое нельзя реализовать
 Это сообщение отредактировал(а) ivan219 - 23.2.2007, 19:24 |
|||
|
||||
| aktuba |
|
|||
|
Смышленный Профиль Группа: Завсегдатай Сообщений: 1915 Регистрация: 24.4.2006 Где: Планета Земля Репутация: 16 Всего: 38 |
Нет, свои пункты в контекстное меню Delphi добавляют и сторонние компоненты, например DevExpress...  -------------------- |
|||
|
||||
| ivan219 |
|
|||
|
Эксперт Профиль Группа: Завсегдатай Сообщений: 1121 Регистрация: 19.11.2005 Где: Планета земля Репутация: 2 Всего: 12 |
aktuba, А исходники можеш выложить.
|
|||
|
||||
| Bose |
|
||||
 Эксперт Профиль Группа: Участник Клуба Сообщений: 1458 Регистрация: 5.3.2005 Где: Riga, Latvia Репутация: 23 Всего: 51 |
ivan219, сам не пробовал, но, примерное направление могу указать..
посмотри функцию:
Для начала видимо нужно создать класс редактора унаследованный от TComponentEditorClass Пункты в контестное меню добавляются с помощью методов: GetVerbCount и GetVerb. В общем посмотри в хэлпе класс:
Там всё довольно подробно расписано. |
||||
|
|||||
| ivan219 |
|
|||
|
Эксперт Профиль Группа: Завсегдатай Сообщений: 1121 Регистрация: 19.11.2005 Где: Планета земля Репутация: 2 Всего: 12 |
Bose, спасибо посмотрю.
|
|||
|
||||
| larinva |
|
|||
|
Опытный Профиль Группа: Участник Сообщений: 294 Регистрация: 24.7.2006 Репутация: нет Всего: 1 |
Всем привет подскажите как вызвать виндовское меню правой кнопки мыши в ListBox
 |
|||
|
||||
|
|
| Правила форума "Delphi: Общие вопросы" | |
|
|
Запрещается! 1. Публиковать ссылки на вскрытые компоненты 2. Обсуждать взлом компонентов и делиться вскрытыми компонентами
Если Вам понравилась атмосфера форума, заходите к нам чаще! С уважением, Snowy, MetalFan, bems, Poseidon, Rrader. |
| 0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей) | |
| 0 Пользователей: | |
| « Предыдущая тема | Delphi: Общие вопросы | Следующая тема » |
[ Время генерации скрипта: 0.0754 ] [ Использовано запросов: 22 ] [ GZIP включён ]
Реклама на сайте Информационное спонсорство
|
|
По вопросам размещения рекламы пишите на vladimir(sobaka)vingrad.ru
Отказ от ответственности Powered by Invision Power Board(R) 1.3 © 2003 IPS, Inc. |