Сохранить выбранный пункт меню при запуске

@Cefiadri · Регистрация: 18.08.2014

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

Простая форма с кнопкой и меню (MainMenu)
Выбрали нужный пункт меню нужно его сохранить,пока не выберут другой пункт
При каждом запуске exe приходиться выбирать пункт заново

Цель
Сохранить последний выбранный пункт меню при каждом запуске без дополнительных файлов (CFG,INI и др.)

Как можно сделать ?

@demon_7 · 19.08.2014, 11:43

а вот так =)

C++
1
2
3
4
5
6
7
8
9
10
void __fastcall TForm1::Button1Click(TObject *Sender)
{
Mnu=1;
  switch(Mnu)
    {
      case 1 : ShellExecute(NULL, "open", "calc.exe", NULL, NULL, SW_SHOWNORMAL); break;
      case 2 : ShellExecute(NULL, "open", "cmd.exe", NULL, NULL, SW_SHOWNORMAL); break;
      case 3 : ShellExecute(NULL, "open", "mspaint.exe", NULL, NULL, SW_SHOWNORMAL); break;
    }
}

@Cefiadri · 19.08.2014, 11:50 **[ТС]**

Вот

Checking project dependencies...
Compiling Project1.cbproj (Debug, Win32)
bcc32 command line for "Unit1.cpp"
c:\program files (x86)\embarcadero\studio\14.0\bin\bcc32. exe -D_DEBUG -DUSEPACKAGES -n.\Win32\Debug -I"c:\program files
(x86)\embarcadero\studio\14.0\include\wi ndows\vcl";"C:\Program Files (x86)\Embarcadero\Studio\14.0\include\bo ost_1_39\boost\tr1\tr1";"C:\Program
Files (x86)\Embarcadero\Studio\14.0\include\bo ost_1_39";"c:\program files (x86)\embarcadero\studio\14.0\include";" c:\program files
(x86)\embarcadero\studio\14.0\include\di nkumware";"c:\program files (x86)\embarcadero\studio\14.0\include\wi ndows\crtl";"c:\program files
(x86)\embarcadero\studio\14.0\include\wi ndows\sdk";"c:\program files (x86)\embarcadero\studio\14.0\include\wi ndows\rtl";"c:\program files
(x86)\embarcadero\studio\14.0\include\wi ndows\vcl";"C:\Program Files (x86)\Raize\CS5\Lib\RS-XE6\Win32" -y -Q -k -r- -c -tR -tM -tU -tW -C8
-o.\Win32\Debug\Unit1.obj -w-par -Od -v -vi- -H=.\Win32\Debug\Project1.pch -H Unit1.cpp
[bcc32 Error] Unit1.cpp(38): E2034 Cannot convert 'char const[5]' to 'const wchar_t *'
Full parser context
Unit1.cpp(34): parsing: void _fastcall TForm1::Button1Click(TObject *)
[bcc32 Error] Unit1.cpp(38): E2342 Type mismatch in parameter 'lpOperation' (wanted 'const wchar_t *', got 'const char *')
Full parser context
Unit1.cpp(34): parsing: void _fastcall TForm1::Button1Click(TObject *)
[bcc32 Error] Unit1.cpp(39): E2034 Cannot convert 'char const[5]' to 'const wchar_t *'
Full parser context
Unit1.cpp(34): parsing: void _fastcall TForm1::Button1Click(TObject *)
[bcc32 Error] Unit1.cpp(39): E2342 Type mismatch in parameter 'lpOperation' (wanted 'const wchar_t *', got 'const char *')
Full parser context
Unit1.cpp(34): parsing: void _fastcall TForm1::Button1Click(TObject *)
[bcc32 Error] Unit1.cpp(40): E2034 Cannot convert 'char const[5]' to 'const wchar_t *'
Full parser context
Unit1.cpp(34): parsing: void _fastcall TForm1::Button1Click(TObject *)
[bcc32 Error] Unit1.cpp(40): E2342 Type mismatch in parameter 'lpOperation' (wanted 'const wchar_t *', got 'const char *')
Full parser context
Unit1.cpp(34): parsing: void _fastcall TForm1::Button1Click(TObject *)
Failed
Elapsed time: 00:00:00.1

Добавлено через 2 минуты
char выставил,ошибок этих нет но exe не запускаеться

@demon_7 · 19.08.2014, 11:51

ясно понятно...у меня просто сейчас под рукой только Builder6, он с кодом без L отлично справляется...
Ну ожидайте помощи...создайте Ваш ini файл вручную) когда программа запущена...закройте программу..гляньте что в нем записано. Хотя для начала бы разобраться с ShellExecute.

@Cefiadri · 19.08.2014, 11:58 **[ТС]**

Что делать ?
Файла с настройками нету, и exe файл не запускает вообще

@demon_7 · 19.08.2014, 11:59

Не по теме:

можно еще сделать шаманский обряд по вызову помощников....
:wizard: D1973 или UI

@D1973 · 19.08.2014, 12:05

Не по теме:

Сообщение от demon_7

можно еще сделать шаманский обряд

КТО МЕНЯ ЗВАЛ?!?!? ПОДНИМИТЕ МНЕ ВЕКИ!!! :)

Cefiadri, надо не тупо копипастить код, а создавать свои обработчики событий, аналогичные тем, что в моем примере.

@Cefiadri · 19.08.2014, 12:10 **[ТС]**

Сообщение от D1973

Cefiadri, надо не тупо копипастить код, а создавать свои обработчики событий, аналогичные тем, что в моем примере.

Ну как сделать ?

Добавлено через 28 секунд
Чтобы работало

@volvo · 19.08.2014, 12:11

Сообщение от Cefiadri

Ну как сделать ?

Зайти в Object Inspector, на вкладку Events, и назначить событию OnCreate формы обработчик FormCreate. Аналогично и с OnCloseQuery - ему назначить FormCloseQuery (просто выбрать из выпадающего списка)

И, заодно, обработчик nCalcClick должен быть назначен ВСЕМ пунктам меню, а не только первому...

@Cefiadri · 19.08.2014, 12:14 **[ТС]**

Не знаю exe не запускает и файла с настройками нету

Добавлено через 1 минуту
Не знаю как сделать,как баран на ворота смотрю

Добавлено через 1 минуту
Помогите сделать

@D1973 · 19.08.2014, 12:15

Сообщение от UI

И, заодно, обработчик nCalcClick должен быть назначен ВСЕМ пунктам меню, а не только первому...

И кроме этого свойство RadioItems == true для всех трех пунктов меню, которые отвечают за выбор программы

Не по теме:

Думал - это очевидно. Ошибся, блин

@Cefiadri · 19.08.2014, 12:33 **[ТС]**

RadioItems высталенно,В упор не сделать

Добавлено через 3 минуты
exe не запускается и файла настроек нету
делал что писали выше

Добавлено через 5 минут
Что делать ?
Код не работает!

Добавлено через 4 минуты
Мне его не сделать!

Добавлено через 2 минуты
Помогите пожалуйста

@volvo · 19.08.2014, 12:39

Вот архив с работающим проектом:

@D1973 · 19.08.2014, 13:08

Итак, КМБ по теме "Hello, World" (описываю, как создавал свой проект, приведенный выше)
1. Создаем новый проект: File->New->VCL Form Application - C++ Builder
2. На форму кидаем компроненты TMainMenu и TButton
3. Создаем пункты главного меню.
3.1 Пункт главного меню, называем mnuMain (свойство Name пункта меню), заголовок (свойство Caption) - МЕНЮ
3.2 Создаем подпункт главного меню "Калькулятор":
Name == nCalc
Caption == Калькулятор
Tag == 1
RadioItem == true
3.2 Создаем подпункт главного меню "Командная строка":
Name == nCmd
Caption == Командная строка
Tag == 2
RadioItem == true
3.3 Создаем подпункт главного меню "Редактор Paint":
Name == nPaint
Caption == Редактор Paint
Tag == 3
RadioItem == true
3.4 Создаем разделитель подпунктов главного меню:
Caption == -
3.5 Создаем подпункт главного меню "Выход":
Name == nExit
Caption == Выход
Tag == 0
RadioItem == false
4.Переходим в редактор кода (кнопка F12). Между строками
TForm1 *Form1;
и
//---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
пишем руками

C++
1
2
int Mnu;
String fCfg;

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

C++
1
2
3
4
void __fastcall TForm1::nCalcClick(TObject *Sender)
{
  
}

6. Между фигурными скобками пишем

C++
1
2
3
4
((TMenuItem *)Sender)->Checked = true;
   Mnu = ((TMenuItem *)Sender)->Tag;
   Button1->Caption = ((TMenuItem *)Sender)->Caption;
   Button1->Enabled = true;

7. В редакторе меню выделяем пункт меню "Командная строка", в Object Inspector переходим на закладку Events, открываем выпадающий список события OnClick и выбираем nCankClick
8. Повторяем шаг 7 для пункта меню "Редактор Paint"
9. В редакторе меню делаем двойной клик на пункте меню "Выход". В получившемся обработчике события пишем

C++
1
Close();

10. На форме делаем двойной клик. В появившемся обработчике пишем

C++
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
fCfg = ExtractFilePath(Application->ExeName) + "pMenu.cfg";
  if(FileExists(fCfg))
   {
     TIniFile *Ini = new TIniFile(fCfg);
     int mTag = Ini->ReadInteger("MENU","CheckPoint",0);
     for(int i = 0; i < Form1->ComponentCount; i++)
      {
        if(Components[i]->ClassNameIs("TMenuItem"))
         if(((TMenuItem *)Components[i])->Tag == mTag)
          {
            ((TMenuItem *)Components[i])->Checked = true;
            Button1->Caption = ((TMenuItem *)Components[i])->Caption;
            Mnu = mTag;
            Button1->Enabled = true;
          }
      }
     delete Ini;
   }

11. Щелкаем один раз на форме. Переходим в ObjectInspector, закладка Events, делаем двойной клик на событии OnCloseQuery. В появившемся обработчике пишем

C++
1
2
3
4
TIniFile *Ini = new TIniFile(fCfg);
  Ini->WriteString("MENU","CheckPoint",IntToStr(Mnu));
  delete Ini;
  CanClose = true;

12. Делаем двойной клик на кнопке. В обработчике пишем

C++
1
2
3
4
5
6
switch(Mnu)
    {
      case 1 : ShellExecute(NULL, L"open", L"calc.exe", NULL, NULL, SW_SHOWNORMAL); break;
      case 2 : ShellExecute(NULL, L"open", L"cmd.exe", NULL, NULL, SW_SHOWNORMAL); break;
      case 3 : ShellExecute(NULL, L"open", L"mspaint.exe", NULL, NULL, SW_SHOWNORMAL); break;
    }

13. Запускаем проект - все работает!!!

Добавлено через 8 минут

Не по теме:

По этой инструкции мой сын (10 лет, полный 0 в программировании) только что проект сделал.

Новые блоги и статьи Все статьи Все блоги /
Особенности gif сгенерированных в Си russiannick 21.10.2026 Рассмотрим генерацию gif файлов, которые в Си имеют свои особенности. Gif представляет собой графический формат популярный в интернете. Посмотрим на палитру. Gif файл сгенерированный в си отличается. . .	FPS контроллер с анимированными Y-Bot и 3D-звуком miniaudio (Box3D, Recast, BehaviorTree.CPP, ozz-animation, ImGui, OpenGL и SDL3) 8Observer8 18.10.2026 Содержание блога \| English Version Полное мультиплатформенное руководство по стартовому проекту с FPS-контроллером игрока, анимированными роботами Y-Bot с 4-слойным блендингом, 3D-физикой Box3D,. . .	Локальный http сервер Argus19 17.10.2026 Локальный http сервер На работе, на двух локальных компьютерах круглосуточно работают программы опроса приборов с записью в книги Excel,которые раз в сутки записываются на сервер компании. Т. к. . . .	Копировать Windows на новый диск на UEFI damix 17.10.2026 https:/ / uriesk. wordpress. com/ 2016/ 11/ 01/ move-window-10-to-ssd-on-a-uefi-dualboot-system-with-basic-linux-tools/ TL DR Вставляем диск, а старый подключаем через переходник, грузимся с лайва. . .
ИИ не может найти нужный язык в списке Supersumestria 05.10.2026 Я ему даю вот такое изображение и прошу найти и подчеркнуть немецкий язык. Возвращает он вот это: https:/ / i. **********/ vqBWLe2. png Нужную строчку в 3й колонке просто выдумал. . Это. . .	Новая последняя моя музыка в SUNO zorxor 05.10.2026 Здравствуйте, дорогие мои друзья! С большой радостью я хотел бы представить вам свою новую последнею музыку, которую сгенерировала мне по моей просьбе нейросеть SUNO. С уважением, zorxor. Это. . .	Программный домашний кинотеатр russiannick 27.09.2026 Сподобился на программный домашний кинотеатр. В качестве ЯВУ по традиции выбрал js. В помощники взял Яндекс-Алису. Было создано три зала на разные интересы. исторические и ретро сериал Хичкок. . .	Беседа с ИИ о программистах, недопускающих к созданию и правке кода генеративные ИИ и причины этого zorxor 21.09.2026 Раньше я радовался или получал некоторые эмоции, пусть небольшие, но всё же, от самого процесса написания кода, рекомпиляции и запуска, видя постепенное развитие программы и прочее. А теперь лень. . .

@Cefiadri 0 / 0 / 0 Регистрация: 18.08.2014 Сообщений: 16

	Сохранить выбранный пункт меню при запуске 18.08.2014, 16:14. Показов 3151. Ответов 32 Метки нет (Все метки) Простая форма с кнопкой и меню (MainMenu) Выбрали нужный пункт меню нужно его сохранить,пока не выберут другой пункт При каждом запуске exe приходиться выбирать пункт заново Цель Сохранить последний выбранный пункт меню при каждом запуске без дополнительных файлов (CFG,INI и др.) Как можно сделать ? 0

@Cefiadri 0 / 0 / 0 Регистрация: 18.08.2014 Сообщений: 16
	19.08.2014, 11:50 [ТС]
	Вот Checking project dependencies... Compiling Project1.cbproj (Debug, Win32) bcc32 command line for "Unit1.cpp" c:\program files (x86)\embarcadero\studio\14.0\bin\bcc32. exe -D_DEBUG -DUSEPACKAGES -n.\Win32\Debug -I"c:\program files (x86)\embarcadero\studio\14.0\include\wi ndows\vcl";"C:\Program Files (x86)\Embarcadero\Studio\14.0\include\bo ost_1_39\boost\tr1\tr1";"C:\Program Files (x86)\Embarcadero\Studio\14.0\include\bo ost_1_39";"c:\program files (x86)\embarcadero\studio\14.0\include";" c:\program files (x86)\embarcadero\studio\14.0\include\di nkumware";"c:\program files (x86)\embarcadero\studio\14.0\include\wi ndows\crtl";"c:\program files (x86)\embarcadero\studio\14.0\include\wi ndows\sdk";"c:\program files (x86)\embarcadero\studio\14.0\include\wi ndows\rtl";"c:\program files (x86)\embarcadero\studio\14.0\include\wi ndows\vcl";"C:\Program Files (x86)\Raize\CS5\Lib\RS-XE6\Win32" -y -Q -k -r- -c -tR -tM -tU -tW -C8 -o.\Win32\Debug\Unit1.obj -w-par -Od -v -vi- -H=.\Win32\Debug\Project1.pch -H Unit1.cpp [bcc32 Error] Unit1.cpp(38): E2034 Cannot convert 'char const[5]' to 'const wchar_t ' Full parser context Unit1.cpp(34): parsing: void _fastcall TForm1::Button1Click(TObject ) [bcc32 Error] Unit1.cpp(38): E2342 Type mismatch in parameter 'lpOperation' (wanted 'const wchar_t ', got 'const char ') Full parser context Unit1.cpp(34): parsing: void _fastcall TForm1::Button1Click(TObject ) [bcc32 Error] Unit1.cpp(39): E2034 Cannot convert 'char const[5]' to 'const wchar_t ' Full parser context Unit1.cpp(34): parsing: void _fastcall TForm1::Button1Click(TObject ) [bcc32 Error] Unit1.cpp(39): E2342 Type mismatch in parameter 'lpOperation' (wanted 'const wchar_t ', got 'const char ') Full parser context Unit1.cpp(34): parsing: void _fastcall TForm1::Button1Click(TObject ) [bcc32 Error] Unit1.cpp(40): E2034 Cannot convert 'char const[5]' to 'const wchar_t ' Full parser context Unit1.cpp(34): parsing: void _fastcall TForm1::Button1Click(TObject ) [bcc32 Error] Unit1.cpp(40): E2342 Type mismatch in parameter 'lpOperation' (wanted 'const wchar_t ', got 'const char ') Full parser context Unit1.cpp(34): parsing: void _fastcall TForm1::Button1Click(TObject ) Failed Elapsed time: 00:00:00.1 Добавлено через 2 минуты* char выставил,ошибок этих нет но exe не запускаеться 0

@demon_7 260 / 192 / 60 Регистрация: 12.05.2013 Сообщений: 857
	19.08.2014, 11:51
	ясно понятно...у меня просто сейчас под рукой только Builder6, он с кодом без L отлично справляется... Ну ожидайте помощи...создайте Ваш ini файл вручную) когда программа запущена...закройте программу..гляньте что в нем записано. Хотя для начала бы разобраться с ShellExecute. 0

@Cefiadri 0 / 0 / 0 Регистрация: 18.08.2014 Сообщений: 16
	19.08.2014, 11:58 [ТС]
	Что делать ? Файла с настройками нету, и exe файл не запускает вообще 0

@demon_7
	19.08.2014, 11:59
	Не по теме: можно еще сделать шаманский обряд по вызову помощников.... :wizard: D1973 или UI 0

@Cefiadri 0 / 0 / 0 Регистрация: 18.08.2014 Сообщений: 16
	19.08.2014, 12:14 [ТС]
	Не знаю exe не запускает и файла с настройками нету Добавлено через 1 минуту Не знаю как сделать,как баран на ворота смотрю Добавлено через 1 минуту Помогите сделать 0

@Cefiadri 0 / 0 / 0 Регистрация: 18.08.2014 Сообщений: 16
	19.08.2014, 12:33 [ТС]
	RadioItems высталенно,В упор не сделать Добавлено через 3 минуты exe не запускается и файла настроек нету делал что писали выше Добавлено через 5 минут Что делать ? Код не работает! Добавлено через 4 минуты Мне его не сделать! Добавлено через 2 минуты Помогите пожалуйста 0