Форум программистов, компьютерный форум, киберфорум
Delphi для начинающих
Войти
Регистрация
Восстановить пароль
Блоги Сообщество Поиск Заказать работу  
 
Рейтинг 4.88/40: Рейтинг темы: голосов - 40, средняя оценка - 4.88
0 / 0 / 0
Регистрация: 18.01.2013
Сообщений: 32

Вложенное меню, контекстное меню

20.01.2013, 12:45. Показов 7632. Ответов 6
Метки нет (Все метки)

Студворк — интернет-сервис помощи студентам
1. После запуска программы в окне изображается строка меню (Файл, Выход).
2. При выборе пункта меню Файл появляются пункты меню (Рисунки, Выход).
3. При выборе пункта меню Рисунки появляется вложенное меню, состоящее из двух пунктов (Облака, Лес).

. По щелчку правой кнопки мыши появляется контекстное меню.
5. Выбрать по пункту другой рисунок

. Для выхода из программы необходимо щелкнуть мышью на закрывающей кнопке в строке заголовка.
7. Если выбрать любой из пунктов Выход, работа программы завершается.
Миниатюры
Вложенное меню, контекстное меню   Вложенное меню, контекстное меню  
0
cpp_developer
Эксперт
20123 / 5690 / 1417
Регистрация: 09.04.2010
Сообщений: 22,546
Блог
20.01.2013, 12:45
Ответы с готовыми решениями:

Контекстное меню
В общем, проблема такая. Через реестр я добавил контекстное меню к папкам. Там создал раздел command, туда вписал путь к моей программе,...

Контекстное меню
Здравствуйте Можно ли в делфи сделать контекстное меню Например, как в windows выбираешь создать, а там список, где можно выбрать то,...

контекстное меню
как в контекстное меню win добавить свой пункт меню?

6
 Аватар для Новичок
1682 / 1098 / 489
Регистрация: 17.07.2012
Сообщений: 5,360
20.01.2013, 12:47
Вообще это раздел Pascal,а не Delphi.
1
3030 / 1916 / 1649
Регистрация: 30.04.2011
Сообщений: 3,060
20.01.2013, 14:29
Кидаете на форму компоненты MainMenu, PopupMenu и Image. Картинки должны быть в формате .bmp в папке с проектом.
Delphi
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
unit Unit1;
 
interface
 
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, ExtCtrls, Menus;
 
type
  TForm1 = class(TForm)
    MainMenu1: TMainMenu;
    N1: TMenuItem;
    N2: TMenuItem;
    N3: TMenuItem;
    N4: TMenuItem;
    N5: TMenuItem;
    N6: TMenuItem;
    Image1: TImage;
    PopupMenu1: TPopupMenu;
    N7: TMenuItem;
    N8: TMenuItem;
    procedure N4Click(Sender: TObject);
    procedure N5Click(Sender: TObject);
    procedure N3Click(Sender: TObject);
    procedure N6Click(Sender: TObject);
    procedure N7Click(Sender: TObject);
    procedure N8Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;
 
var
  Form1: TForm1;
 
implementation
 
{$R *.dfm}
 
procedure TForm1.N4Click(Sender: TObject);
begin
  Image1.Picture.LoadFromFile('oblaka.bmp');
end;
 
procedure TForm1.N5Click(Sender: TObject);
begin
  Image1.Picture.LoadFromFile('les.bmp');
end;
 
procedure TForm1.N3Click(Sender: TObject);
begin
  Close;
end;
 
procedure TForm1.N6Click(Sender: TObject);
begin
  Close;
end;
 
 
procedure TForm1.N7Click(Sender: TObject);
begin
  Image1.Picture.LoadFromFile('oblaka.bmp');
end;
 
procedure TForm1.N8Click(Sender: TObject);
begin
  Image1.Picture.LoadFromFile('les.bmp');
end;
 
end.
1
0 / 0 / 0
Регистрация: 15.05.2016
Сообщений: 23
15.11.2017, 20:48
а скинь исходник в делфи, пожалуйста,что то не вышло
0
Модератор
 Аватар для D1973
9903 / 6441 / 2454
Регистрация: 21.01.2014
Сообщений: 27,342
Записей в блоге: 3
16.11.2017, 07:44
tasya1103, Вы серьезно думаете, что такие вот "шедевры" кто-то будет хранить почти 5 лет? Что там вообще может не получиться? Если только совсем ничего не делать...
0
Житель Земли
 Аватар для DenNik
3004 / 3026 / 390
Регистрация: 26.07.2011
Сообщений: 11,465
Записей в блоге: 1
16.11.2017, 11:15
D1973, то есть очень гениальный код! в нем для каждого пункта меню, выполнюящего однотипное действие, написан собственный обработчик!!!
0
Житель Земли
 Аватар для DenNik
3004 / 3026 / 390
Регистрация: 26.07.2011
Сообщений: 11,465
Записей в блоге: 1
16.11.2017, 11:37
Цитата Сообщение от tasya1103 Посмотреть сообщение
скинь исходник в делфи
держи привет из лета
Delphi
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
// одна процедура на два пункта "Выход"
procedure TForm1.CloseProgram(Sender: TObject);
begin
  Close; 
end;
 
procedure TForm1.FormShow(Sender: TObject);
begin
  // грузим картинку при стaрте формы
  LoadAnImage(N5);  // это пункт [Файл > Картинки > Лес]
end;
 
// одна процедура на все пункты загрузки картинок
procedure TForm1.LoadAnImage(Sender: TObject);
var
  s: string;
begin
  // получаем текст пункта меню, который будет формировать имя файла
  s:= TMenuItem(Sender).Caption + '.jpg';
  Image1.Picture.LoadFromFile(s);
end;
Миниатюры
Вложенное меню, контекстное меню  
Вложения
Тип файла: zip Лес,горы,облака.zip (1.19 Мб, 134 просмотров)
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
raxper
Эксперт
30234 / 6612 / 1498
Регистрация: 28.12.2010
Сообщений: 21,154
Блог
16.11.2017, 11:37
Помогаю со студенческими работами здесь

Контекстное меню
Требуется добавить в контекстное меню команды удаления текста до, в и после курсора.:-[

Контекстное меню в SynEdit
Всем добрый вечер! Подскажите, пожалуйста, кто работал с компонентом SynEdit, как сделать в нём контекстное меню, такое, например, как в...

Контекстное меню WebBrowser
Есть ли какое нибудь свойство в WebBrowser чтобы отключить его контекстное (всплыващее) на правый клик мыши меню? Мне нужно чтобы там...

StringGrid и контекстное меню
На форме расположен компонент StringGrid. При нажатии на правую кнопку мыши вызвается контекстное меню (с этим проблем нет). Необходимо...

TreeView и контекстное меню
Как привязать контекстное меню к определенному пункту TreeView??? тоесть чтобы по нажатию правой кнопкой мыши только по определенному...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
7
Ответ Создать тему
Новые блоги и статьи
Access
VikBal 11.12.2025
Помогите пожалуйста !! Как объединить 2 одинаковые БД Access с разными данными.
Новый ноутбук
volvo 07.12.2025
Всем привет. По скидке в "черную пятницу" взял себе новый ноутбук Lenovo ThinkBook 16 G7 на Амазоне: Ryzen 5 7533HS 64 Gb DDR5 1Tb NVMe 16" Full HD Display Win11 Pro
Музыка, написанная Искусственным Интеллектом
volvo 04.12.2025
Всем привет. Некоторое время назад меня заинтересовало, что уже умеет ИИ в плане написания музыки для песен, и, собственно, исполнения этих самых песен. Стихов у нас много, уже вышли 4 книги, еще 3. . .
От async/await к виртуальным потокам в Python
IndentationError 23.11.2025
Армин Ронахер поставил под сомнение async/ await. Создатель Flask заявляет: цветные функции - провал, виртуальные потоки - решение. Не threading-динозавры, а новое поколение лёгких потоков. Откат?. . .
Поиск "дружественных имён" СОМ портов
Argus19 22.11.2025
Поиск "дружественных имён" СОМ портов На странице: https:/ / norseev. ru/ 2018/ 01/ 04/ comportlist_windows/ нашёл схожую тему. Там приведён код на С++, который показывает только имена СОМ портов, типа,. . .
Сколько Государство потратило денег на меня, обеспечивая инсулином.
Programma_Boinc 20.11.2025
Сколько Государство потратило денег на меня, обеспечивая инсулином. Вот решила сделать интересный приблизительный подсчет, сколько государство потратило на меня денег на покупку инсулинов. . . .
Ломающие изменения в C#.NStar Alpha
Etyuhibosecyu 20.11.2025
Уже можно не только тестировать, но и пользоваться C#. NStar - писать оконные приложения, содержащие надписи, кнопки, текстовые поля и даже изображения, например, моя игра "Три в ряд" написана на этом. . .
Мысли в слух
kumehtar 18.11.2025
Кстати, совсем недавно имел разговор на тему медитаций с людьми. И обнаружил, что они вообще не понимают что такое медитация и зачем она нужна. Самые базовые вещи. Для них это - когда просто люди. . .
Создание Single Page Application на фреймах
krapotkin 16.11.2025
Статья исключительно для начинающих. Подходы оригинальностью не блещут. В век Веб все очень привыкли к дизайну Single-Page-Application . Быстренько разберем подход "на фреймах". Мы делаем одну. . .
Фото: Daniel Greenwood
kumehtar 13.11.2025
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2025, CyberForum.ru