Как сделать PopupMenu, если Form.BorderStyle=0?

@lezzvie · Регистрация: 15.10.2009

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

Спасибо ) Разобрался )))
Правда уже забил на мастдай и перешел на FreeBSD и PHP ))
Но все равно спасибо )) Время летит... ))

@Letter_D · 21.08.2007, 20:27

За один день перешел!
Действительно, время летит...

)

@bazile · 21.08.2007, 20:55

За какой один день? Вопрос был 4 года назад задан

Я балдею, от такой "быстрой" реакции на помощь

@Letter_D · 22.08.2007, 14:50

Упс!
Я посмотрел на "Last Login".
По привычке, ниже ника, на sql.ru дата сообщения находится там.
Промахнулся.

@lezzvie · 15.10.2009, 07:31 **[ТС]**

У меня VB 6.5 (нечто между VB 6.0 и VB.Net). Нужно сделать всплывающее меню (скажем при нажатии правой кнопки мыши на форму), но его не получается сделать, т.к. Form1.BorderStyle=0. Если бы Form1 была Sizable, то все получается, а так нет.

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

15.10.2009, 13:21

По первому вопросу отвечаю: все работает! Т.е. если писать, например, в Form_MouseDown() Me.PopupMenu mnuPop, то независимо от BorderStyle менюха выпадает. (У меня VisualBasic 6 ServicePack 5 ENGLISH) - именно это и означает твой VB 6.5. И еще - это может быть глюк русской версии (если он у тебя русский).
По второму вопросу проще - окно неправильной формы можно создать на абсолютно любом языке, в том числе и на VB. Эта возможность реализуется через Регионы в Windows. Сначала создаешь регион (например, для эллипса - CreateEllipticRgn), потом привязываешь регион к окну - SetWindowRgn. И не забывай про DeleteObject при выходе - регионы надо освобождать явно.
Если будут вопросы/проблемы - пиши 28021986@ua.fm - разберемся вместе!!! Буду рад помочь!

Новые блоги и статьи Все статьи Все блоги /
Блокировка документа от изменений, если он открыт у другого пользователя Maks 08.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа, разработанного в конфигурации КА2. Задача: запретить редактирование документа, если он открыт у другого пользователя. / / . . .	Система безопасности+живучести для сервера-слоя интернета (сети). Двойная привязка. Hrethgir 08.04.2026 Далее были размышления о системе безопасности. Сообщения с наклонным текстом - мои. А как нам будет можно проверить, что ссылка наша, а не подделана хулиганами, которая выбросит на другую ветку и. . .	Модель ЗдрввоСохранения 7: больше работников, больше ресурсов. anaschu 08.04.2026 работников и заданий может быть сколько угодно, но настроено всё так, что используется пока что только 20% kYBz3eJf3jQ	Дальние перспективы сервера - слоя сети с космологическим дизайном интефейса карты и логики. Hrethgir 07.04.2026 Дальнейшее ближайшее планирование вывело к размышлениям над дальними перспективами. И вот тут может быть даже будут нужны оценки специалистов, так как в дальних перспективах всё может очень сильно. . .
Горе от ума kumehtar 07.04.2026 Эта мне ментальная установка, что вот прямо сейчас, мол, мне для полного счастья не хватает (нужное вписать), и когда я этого достигну - тогда и полный кайф. Одна из самых сильных ловушек на пути. . . .	Использование значений реквизитов справочника в документе, с определенными условиями и правами Maks 07.04.2026 1. Контроль срока действия договора Алгоритм из решения ниже реализован на примере нетипового документа "ЗаявкаНаРаботу", разработанного в конфигурации КА2. Задача: уведомлять пользователя, если. . .	Доступность команды формы по условию Maks 07.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "СписаниеМатериалов", разработанного в конфигурации КА2. Задача: сделать доступной кнопку (команда формы "ЗавершитьСписание") при. . .	Уведомление о неверно выбранном значении справочника Maks 06.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "НарядПутевка", разработанного в конфигурации КА2. Задача: уведомлять пользователя, если в документе выбран неверный склад. . .

@lezzvie 0 / 0 / 0 Регистрация: 15.10.2009 Сообщений: 4

	Как сделать PopupMenu, если Form.BorderStyle=0? 20.08.2007, 07:08. Показов 3428. Ответов 5 Метки нет (Все метки) Спасибо ) Разобрался ))) Правда уже забил на мастдай и перешел на FreeBSD и PHP )) Но все равно спасибо )) Время летит... )) 0

@Letter_D 1 / 1 / 1 Регистрация: 18.06.2008 Сообщений: 329
	21.08.2007, 20:27
	За один день перешел! Действительно, время летит... ) 0

@bazile 86 / 62 / 69 Регистрация: 15.03.2007 Сообщений: 6,903
	21.08.2007, 20:55
	За какой один день? Вопрос был 4 года назад задан Я балдею, от такой "быстрой" реакции на помощь 0

@Letter_D 1 / 1 / 1 Регистрация: 18.06.2008 Сообщений: 329
	22.08.2007, 14:50
	Упс! Я посмотрел на "Last Login". По привычке, ниже ника, на sql.ru дата сообщения находится там. Промахнулся. 0

@lezzvie 0 / 0 / 0 Регистрация: 15.10.2009 Сообщений: 4
	15.10.2009, 07:31 [ТС]
	У меня VB 6.5 (нечто между VB 6.0 и VB.Net). Нужно сделать всплывающее меню (скажем при нажатии правой кнопки мыши на форму), но его не получается сделать, т.к. Form1.BorderStyle=0. Если бы Form1 была Sizable, то все получается, а так нет. И сразу еще вопрос - можно ли сделать форму прозрачной, чтобы сделать у нее неровные границы (например в форме овала). На дельфи такое вроде можно, но я дельфи знаю плохо. 0

Messir
	15.10.2009, 13:21
	По первому вопросу отвечаю: все работает! Т.е. если писать, например, в Form_MouseDown() Me.PopupMenu mnuPop, то независимо от BorderStyle менюха выпадает. (У меня VisualBasic 6 ServicePack 5 ENGLISH) - именно это и означает твой VB 6.5. И еще - это может быть глюк русской версии (если он у тебя русский). По второму вопросу проще - окно неправильной формы можно создать на абсолютно любом языке, в том числе и на VB. Эта возможность реализуется через Регионы в Windows. Сначала создаешь регион (например, для эллипса - CreateEllipticRgn), потом привязываешь регион к окну - SetWindowRgn. И не забывай про DeleteObject при выходе - регионы надо освобождать явно. Если будут вопросы/проблемы - пиши 28021986@ua.fm - разберемся вместе!!! Буду рад помочь!