Модераторы: Snowy, MetalFan, bems, Poseidon

Поиск:

Ответ в темуСоздание новой темы Создание опроса
> не Down-кнопка 
:(
    Опции темы
santilaas
Дата 31.10.2007, 07:33 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


Профиль
Группа: Участник
Сообщений: 322
Регистрация: 28.8.2005
Где: Блага

Репутация: нет
Всего: нет



с шириной списка вроде как разобрался - сделал так:
свойство OwnerDraw поставил в True и для первого пункта меню в событии OnMeasureItem написал 
Код

Width:= 150; //т.е. указал сколько нужно пикселей.

Цитата
2)TrackPopupMenuEx, аргумент lptpm

- здесь, поскольку мое меню появляется при нажатии на кнопку, пишу в её OnClick-е так:  
Код

 TrackPopupMenuEx(FMain.PopupMenu1.Handle,
                          TPM_LEFTALIGN + TPM_VERTICAL,
                          Popup_X,
                          Popup_Y,
                          handle,nil);

- 1) меню открывается, но в нем нет ни одного моего пункта (ранее созданного)
- 2) пытался поставить аргумент lptpm вместо nil - Delphi ругается (Undeclared identifier)
Цитата
3)TMP_RECURSE

- что это и как его применить - в какую процедуру определить?

и еще - т.к. мой список-меню открывается при нажатии на кнопку, как сделать, чтобы при повторном нажатии на кнопку этот список закрывался?

- посмотрел ссылочку - испробовал, но там что-то много чего работает не так, как мне нужно - и потом хотелось бы как-нибудь попроще все это реализовать.



--------------------
[
PM MAIL   Вверх
bober
Дата 31.10.2007, 15:27 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



Профиль
Группа: Участник
Сообщений: 4
Регистрация: 20.2.2006

Репутация: нет
Всего: нет



Имхо лепить из чего то свое меню - избыточное изобретение велосипеда
Посмотрите на этот пакет, там есть попап меню с кучей настроек может вам подойдет. 
SpTBXLib
http://www.torry.net/authorsmore.php?id=6409
PM MAIL   Вверх
bems
Дата 31.10.2007, 17:34 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
****


Профиль
Группа: Комодератор
Сообщений: 3400
Регистрация: 5.1.2006

Репутация: 18
Всего: 88



Цитата(santilaas @  31.10.2007,  07:33 Найти цитируемый пост)
 1) меню открывается, но в нем нет ни одного моего пункта (ранее созданного)
это как? пустое совсем открывается?

Цитата(santilaas @  31.10.2007,  07:33 Найти цитируемый пост)
 2) пытался поставить аргумент lptpm вместо nil - Delphi ругается (Undeclared identifier)
покажи как делал

Цитата(santilaas @  31.10.2007,  07:33 Найти цитируемый пост)
TMP_RECURSE

- что это и как его применить - в какую процедуру определить?

это фляжок для TrackPopupMenuEx, указывающий что меню показывается как контекстное для другого меню. Если делфи старая, то хелп тоже старый. Почитай описание TrackPopupMenuEx в MSDN

Цитата(santilaas @  31.10.2007,  07:33 Найти цитируемый пост)
и еще - т.к. мой список-меню открывается при нажатии на кнопку, как сделать, чтобы при повторном нажатии на кнопку этот список закрывался?
из этой цитаты
Цитата(santilaas @  29.10.2007,  11:28 Найти цитируемый пост)
- как сделать чтобы моя форма-PopupMenu пряталась, когда пользователь нажимал бы кнопку мыши в другом (т.е не на самом меню) месте экрана?
я сделал вывод, что нужно чтобы она закрывалось при щелчке в любом месте, а не только по кнопке. А что, если щелкаешь не по меню, то оно остатся?


--------------------
Обижено школьников: 8
PM MAIL   Вверх
santilaas
Дата 2.11.2007, 09:45 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


Профиль
Группа: Участник
Сообщений: 322
Регистрация: 28.8.2005
Где: Блага

Репутация: нет
Всего: нет



- что-то не получается у меня эти компоненты установить - при компиляции выдает сообщение, - "Required package 'tb2k_d6' not found" - видимо требует установленного Toolbar2000, а он мне и никогда не был нужен, да и потом зачем такие зависимые компоненты?

Цитата

это как? пустое совсем открывается?
- абсолютно пустое - высотой примерно пикселей 100 и в ширину пикселей -20?!
Цитата

покажи как делал
-так и делал:
Код

TrackPopupMenuEx(FMain.PopupMenu1.Handle,
                         TPM_RECURSE,
                         Popup_X,
                         Popup_Y,
                         FMain.Handle,lptpm);
здесь я Popup_X и Popup_Y я определяю заранее.
TMP_RECURSE мне ничего не дало
Цитата

я сделал вывод, что нужно чтобы она закрывалось при щелчке в любом месте, а не только по кнопке. А что, если щелкаешь не по меню, то оно остатся?
- здесь не нужно путать: в начале топика я просил помочь мне с формой-PopupMenu (т.е. из формы я хотел сделать меню и описал трудности,которые у меня возникли), но затем Вы мне посоветовали все-таки остановиться на стандартном PopupMenu - так вот это именно для него я и написал:
т.к. мой список-меню открывается при нажатии на кнопку, как сделать, чтобы при повторном нажатии на кнопку этот список закрывался? 

И потом - все-таки главное здесь - 
чтобы самостоятельно можно было регулировать открытие и закрытие PopupMenu - т.е. чтобы оно не закрывалось само при нажатии на него?


--------------------
[
PM MAIL   Вверх
santilaas
Дата 5.11.2007, 17:20 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


Профиль
Группа: Участник
Сообщений: 322
Регистрация: 28.8.2005
Где: Блага

Репутация: нет
Всего: нет



неужели больше никто не поможет?!  smile 


--------------------
[
PM MAIL   Вверх
santilaas
Дата 9.11.2007, 17:33 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


Профиль
Группа: Участник
Сообщений: 322
Регистрация: 28.8.2005
Где: Блага

Репутация: нет
Всего: нет



 smile 


--------------------
[
PM MAIL   Вверх
Ответ в темуСоздание новой темы Создание опроса
Правила форума "Delphi: Для новичков"
SnowyMetalFan
bemsPoseidon
Rrader

Запрещается!

1. Публиковать ссылки на вскрытые компоненты

2. Обсуждать взлом компонентов и делиться вскрытыми компонентами

  • Литературу по Дельфи обсуждаем здесь
  • Действия модераторов можно обсудить здесь
  • С просьбами о написании курсовой, реферата и т.п. обращаться сюда
  • Вопросы по реализации алгоритмов рассматриваются здесь
  • 90% ответов на свои вопросы можно найти в DRKB (Delphi Russian Knowledge Base) - крупнейшем в рунете сборнике материалов по Дельфи


Если Вам понравилась атмосфера форума, заходите к нам чаще! С уважением, Snowy, MetalFan, bems, Poseidon, Rrader.

 
0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема | Delphi: Для новичков | Следующая тема »


 




[ Время генерации скрипта: 0.0465 ]   [ Использовано запросов: 22 ]   [ GZIP включён ]


Реклама на сайте     Информационное спонсорство

 
По вопросам размещения рекламы пишите на vladimir(sobaka)vingrad.ru
Отказ от ответственности     Powered by Invision Power Board(R) 1.3 © 2003  IPS, Inc.