Осуществление работы TRY menu

@lomix · Регистрация: 07.08.2007

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

Приветствую,
Существует программа которая сворачивается в трейокно(то которое внизу справа), надо что бы при правом щелчке на мышь появлялось меню(закрыть, стереть, и т.д.). Как это сделать?

18.02.2008, 14:44

Смотри примеры.

http://www.relib.com/sources/code.asp?id=182

@lomix · 20.02.2008, 16:29 **[ТС]**

Я что-то ето не догоняю:

If X = WM_RBUTTONDOWN Then Me.PopupMenu mnuPopUp

как этот объект сделать что бы текст появлялся?

20.02.2008, 16:40

Цитирую описание

Пример, показывающий как засунуть иконку твоего приложения в System Tray панели задач (где часы). Для демонстрации примера необходимо добавить на форму picture box (имя Picture1), создать меню (имя PopupMenu) с несколькими элементами (About, Exit) и скопировать нижеследующий код в тело формы. При запуске приложения возле часов должна появиться новая иконка. Созданное меню может быть активировано правой кнопкой мыши.

'...создать меню (имя PopupMenu) с несколькими элементами (About, Exit)'

Вы его создали и наполнили?

Если проблема есть, то вырежьте нижеследующий код и вставьте в форму.

Из описания формы наглядно видно, какие элементы положить на форму, и как присвоить соотвествующие свойства, отработать соотвествующие методы

VERSION 4.00
Begin VB.Form Main
BorderStyle = 1 'Fixed Single
Caption = ' '
ClientHeight = 510
ClientLeft = 3570
ClientTop = 4710
ClientWidth = 2775
ControlBox = 0 'False
BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851}
Name = 'Courier New'
Size = 9.75
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 915
Icon = 'Main.frx':0000
Left = 3510
LinkTopic = 'Form1'
MaxButton = 0 'False
MinButton = 0 'False
ScaleHeight = 510
ScaleWidth = 2775
ShowInTaskbar = 0 'False
Top = 4365
Width = 2895
Begin VB.CommandButton Command2
Caption = 'Выход'
BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851}
Name = 'MS Sans Serif'
Size = 8.25
Charset = 204
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 315
Left = 1440
TabIndex = 2
Top = 75
Width = 1155
End
Begin VB.CommandButton Command1
Caption = 'Свернуть'
BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851}
Name = 'MS Sans Serif'
Size = 8.25
Charset = 204
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 315
Left = 135
TabIndex = 1
Top = 75
Width = 1320
End
Begin VB.PictureBox picNotifier
BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851}
Name = 'MS Sans Serif'
Size = 8.25
Charset = 204
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 435
Left = 240
ScaleHeight = 375
ScaleWidth = 555
TabIndex = 0
TabStop = 0 'False
Top = 3300
Width = 6

Новые блоги и статьи Все статьи Все блоги /
SDL3 для Web (WebAssembly): Подключение Box2D v3, физика и отрисовка коллайдеров 8Observer8 12.02.2026 Содержание блога Box2D - это библиотека для 2D физики для анимаций и игр. С её помощью можно определять были ли коллизии между конкретными объектами и вызывать обработчики событий столкновения. . . .	SDL3 для Web (WebAssembly): Загрузка PNG с прозрачным фоном с помощью SDL_LoadPNG (без SDL3_image) 8Observer8 11.02.2026 Содержание блога Библиотека SDL3 содержит встроенные инструменты для базовой работы с изображениями - без использования библиотеки SDL3_image. Пошагово создадим проект для загрузки изображения. . .	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 На мой взгляд у человека в технических проектах остается роль генерального директора. Все остальное нейронки делают уже лучше человека. Они не могут нести предпринимательские риски, не могут. . .

@lomix 0 / 0 / 0 Регистрация: 07.08.2007 Сообщений: 78

	Осуществление работы TRY menu 18.02.2008, 14:39. Показов 967. Ответов 3 Метки нет (Все метки) Приветствую, Существует программа которая сворачивается в трейокно(то которое внизу справа), надо что бы при правом щелчке на мышь появлялось меню(закрыть, стереть, и т.д.). Как это сделать? 0

eddy
	18.02.2008, 14:44
	Смотри примеры. http://www.relib.com/sources/code.asp?id=182

@lomix 0 / 0 / 0 Регистрация: 07.08.2007 Сообщений: 78
	20.02.2008, 16:29 [ТС]
	Я что-то ето не догоняю: If X = WM_RBUTTONDOWN Then Me.PopupMenu mnuPopUp как этот объект сделать что бы текст появлялся? 0

eddy
	20.02.2008, 16:40
	Цитирую описание Пример, показывающий как засунуть иконку твоего приложения в System Tray панели задач (где часы). Для демонстрации примера необходимо добавить на форму picture box (имя Picture1), создать меню (имя PopupMenu) с несколькими элементами (About, Exit) и скопировать нижеследующий код в тело формы. При запуске приложения возле часов должна появиться новая иконка. Созданное меню может быть активировано правой кнопкой мыши. '...создать меню (имя PopupMenu) с несколькими элементами (About, Exit)' Вы его создали и наполнили? Если проблема есть, то вырежьте нижеследующий код и вставьте в форму. Из описания формы наглядно видно, какие элементы положить на форму, и как присвоить соотвествующие свойства, отработать соотвествующие методы VERSION 4.00 Begin VB.Form Main BorderStyle = 1 'Fixed Single Caption = ' ' ClientHeight = 510 ClientLeft = 3570 ClientTop = 4710 ClientWidth = 2775 ControlBox = 0 'False BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} Name = 'Courier New' Size = 9.75 Charset = 0 Weight = 400 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty Height = 915 Icon = 'Main.frx':0000 Left = 3510 LinkTopic = 'Form1' MaxButton = 0 'False MinButton = 0 'False ScaleHeight = 510 ScaleWidth = 2775 ShowInTaskbar = 0 'False Top = 4365 Width = 2895 Begin VB.CommandButton Command2 Caption = 'Выход' BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} Name = 'MS Sans Serif' Size = 8.25 Charset = 204 Weight = 400 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty Height = 315 Left = 1440 TabIndex = 2 Top = 75 Width = 1155 End Begin VB.CommandButton Command1 Caption = 'Свернуть' BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} Name = 'MS Sans Serif' Size = 8.25 Charset = 204 Weight = 400 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty Height = 315 Left = 135 TabIndex = 1 Top = 75 Width = 1320 End Begin VB.PictureBox picNotifier BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} Name = 'MS Sans Serif' Size = 8.25 Charset = 204 Weight = 400 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty Height = 435 Left = 240 ScaleHeight = 375 ScaleWidth = 555 TabIndex = 0 TabStop = 0 'False Top = 3300 Width = 6