Как сделать 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 - разберемся вместе!!! Буду рад помочь!

Новые блоги и статьи Все статьи Все блоги /
SDL3 для Web (WebAssembly): Загрузка PNG с прозрачным фоном с помощью SDL3_image 8Observer8 10.02.2026 Содержание блога Библиотека SDL3_image содержит инструменты для расширенной работы с изображениями. Пошагово создадим проект для загрузки изображения формата PNG с альфа-каналом (с прозрачным. . .	Установка Qt-версии Lazarus IDE в Debian Trixie Xfce volvo 10.02.2026 В общем, достали меня глюки IDE Лазаруса, собранной с использованием набора виджетов Gtk2 (конкретно: если набирать текст в редакторе и вызвать подсказку через Ctrl+Space, то после закрытия окошка. . .	SDL3 для Web (WebAssembly): Работа со звуком через SDL3_mixer 8Observer8 08.02.2026 Содержание блога Пошагово создадим проект для загрузки звукового файла и воспроизведения звука с помощью библиотеки SDL3_mixer. Звук будет воспроизводиться по клику мышки по холсту на Desktop и по. . .	SDL3 для Web (WebAssembly): Основы отладки веб-приложений на SDL3 по USB и Wi-Fi, запущенных в браузере мобильных устройств 8Observer8 07.02.2026 Содержание блога Браузер Chrome имеет средства для отладки мобильных веб-приложений по USB. В этой пошаговой инструкции ограничимся работой с консолью. Вывод в консоль - это часть процесса. . .
SDL3 для Web (WebAssembly): Обработчик клика мыши в браузере ПК и касания экрана в браузере на мобильном устройстве 8Observer8 02.02.2026 Содержание блога Для начала пошагово создадим рабочий пример для подготовки к экспериментам в браузере ПК и в браузере мобильного устройства. Потом напишем обработчик клика мыши и обработчик. . .	Философия технологии iceja 01.02.2026 На мой взгляд у человека в технических проектах остается роль генерального директора. Все остальное нейронки делают уже лучше человека. Они не могут нести предпринимательские риски, не могут. . .	SDL3 для Web (WebAssembly): Вывод текста со шрифтом TTF с помощью SDL3_ttf 8Observer8 01.02.2026 Содержание блога В этой пошаговой инструкции создадим с нуля веб-приложение, которое выводит текст в окне браузера. Запустим на Android на локальном сервере. Загрузим Release на бесплатный. . .	SDL3 для Web (WebAssembly): Сборка C/C++ проекта из консоли 8Observer8 30.01.2026 Содержание блога Если вы откроете примеры для начинающих на официальном репозитории SDL3 в папке: examples, то вы увидите, что все примеры используют следующие четыре обязательные функции, а. . .

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

	Как сделать PopupMenu, если Form.BorderStyle=0? 20.08.2007, 07:08. Показов 3404. Ответов 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 - разберемся вместе!!! Буду рад помочь!

Опции темы