Разный caption на кнопке и в меню

@Daniasons · Регистрация: 02.12.2014

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

Как сделать чтобы caption в меню и на кнопке был разный ?

Должно получиться вот так:
В MainMenu : Очистка реестра
На кнопке: ОЧИСТКА РЕЕСТРА большими буквами (Caps Lock)

@gunslinger · 02.12.2014, 22:03

Например, ручками. А что мешает? Они как-то связаны (общим Caption-ом)?

@Daniasons · 02.12.2014, 22:11 **[ТС]**

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

Например, ручками. А что мешает? Они как-то связаны (общим Caption-ом)?

Мешает не знание языка
Не давно начал изучать вот и тупик...

@gunslinger · 02.12.2014, 22:28

И причем тут знание языка.
Добавляешь на форму TButton и TMainMenu (вкладка Standart компонентов Toll Palette) и изменяешь в Object Inspector (инспектор объектов) требуемые параметры. Для MainMenu кликешь правой кнопкой на добавленный компонент и выбираешь Menu Designer.
А если тебе нужно сделать подобное программно, то рано еще. Продолжай изучение языка. Или жди более добрых людей, не люблю разжевывать основы, если это требует от меня дополнительных усилий.

@Daniasons · 02.12.2014, 22:48 **[ТС]**

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

И причем тут знание языка.
Добавляешь на форму TButton и TMainMenu (вкладка Standart компонентов Toll Palette) и изменяешь в Object Inspector (инспектор объектов) требуемые параметры. Для MainMenu кликешь правой кнопкой на добавленный компонент и выбираешь Menu Designer.
А если тебе нужно сделать подобное программно, то рано еще. Продолжай изучение языка. Или жди более добрых людей, не люблю разжевывать основы, если это требует от меня дополнительных усилий.

Там нет чтобы был разный размер шрифта как мне надо

@gunslinger · 02.12.2014, 23:03

Меняй Size (размер) Font-a (шрифта) для кнопки Button. Для меню не знаю.

@BRcr · 03.12.2014, 00:34

Daniasons, в конструкторе формы берешь текст с пункта меню, переводишь в верхний регистр и присваиваешь к тексту кнопки.

@SatanaXIII · 03.12.2014, 09:25

Надо изначально установить какую-то однозначную связь между элементами меню и соответствующими им кнопками (какой-нибудь Tag, кусок названия). Потом пройтись по всем элементам меню и дальше как предлагает BRcr.

@Daniasons · 03.12.2014, 12:12 **[ТС]**

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

в конструкторе формы берешь текст с пункта меню, переводишь в верхний регистр и присваиваешь к тексту кнопки

Можете показать как это сделать,а то в упор не могу понять!

@demmax2004 · 03.12.2014, 12:31

C++
1
Button1->Caption = (MenuItem1->Items[1]->Caption).UpperCase();

@Daniasons · 03.12.2014, 12:52 **[ТС]**

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

Код C++
1
Button1->Caption = (MenuItem1->Items[1]->Caption).UpperCase();

C++
1
2
3
4
5
6
7
8
void __fastcall TForm1::N1Click(TObject *Sender)
{
   Capt = ((TMenuItem *)Sender)->Caption;
   ((TMenuItem *)Sender)->Checked = true;
   X = ((TMenuItem *)Sender)->Tag;
   Button1->Caption = (TMenuItem->Items[1]->Caption).UpperCase();
   Button1->Enabled = true;
}

Не работает

======================================== ======================================== ========================
ОШИБКИ

Checking project dependencies...
Compiling Project1.cbproj (Debug, Win32)
bcc32 command line for "Unit1.cpp"
c:\program files (x86)\embarcadero\studio\15.0\bin\bcc32. exe -D_DEBUG -DUSEPACKAGES -n.\Win32\Debug -I"c:\program files
(x86)\embarcadero\studio\15.0\include\wi ndows\vcl";"c:\program files (x86)\embarcadero\studio\15.0\include";" c:\program files
(x86)\embarcadero\studio\15.0\include\di nkumware";"c:\program files (x86)\embarcadero\studio\15.0\include\wi ndows\crtl";"c:\program files
(x86)\embarcadero\studio\15.0\include\wi ndows\sdk";"c:\program files (x86)\embarcadero\studio\15.0\include\wi ndows\rtl";"c:\program files
(x86)\embarcadero\studio\15.0\include\wi ndows\vcl";"c:\program files (x86)\embarcadero\studio\15.0\include\wi ndows\fmx";"C:\Program Files
(x86)\FastReports\LibD21";"C:\Program Files (x86)\Raize\CS5\Lib\RS-XE7\Win32";C:\Users\Public\Documents\Emb arcadero\Studio\15.0\hpp\Win32 -y -Q -k
-r- -c -tR -tM -tW -C8 -o.\Win32\Debug\Unit1.obj -w-par -Od -v -vi- -H=.\Win32\Debug\Project1.pch -H Unit1.cpp
[bcc32 Error] Unit1.cpp(35): E2108 Improper use of typedef 'TMenuItem'
Full parser context
Unit1.cpp(31): parsing: void _fastcall TForm1::N1Click(TObject *)
Failed
Elapsed time: 00:00:00.1

@BRcr · 03.12.2014, 12:55

C++
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
class TForm1 : public TForm
{
__published: // IDE-managed Components
    TMainMenu *menu;
    TActionList *actlst_1;
    TAction *act_1;
    TAction *act_2;
    TAction *act_3;
    TButton *btn_1;
    TButton *btn_2;
    TButton *btn_3;
    TMenuItem *mnu;
    TMenuItem *mni_1;
    TMenuItem *mni_2;
    TMenuItem *mni_3;
    TButton *btn_make_captions;
    void __fastcall act_1Execute(TObject *Sender);
    void __fastcall btn_make_captionsClick(TObject *Sender);
 
public: // User declarations
    
 
    __fastcall TForm1( TComponent * Owner );
 
    __fastcall ~TForm1( )
    {
    }
 
} ;

C++
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
__fastcall TForm1::TForm1( TComponent * Owner ) :
    TForm( Owner )
{
    mni_1->Tag = reinterpret_cast < int > ( btn_1 );
    mni_2->Tag = reinterpret_cast < int > ( btn_2 );
    mni_3->Tag = reinterpret_cast < int > ( btn_3 );
}
 
// ---------------------------------------------------------------------------
 
void __fastcall TForm1::act_1Execute( TObject * Sender )
{
    ShowMessage( reinterpret_cast < TAction * > ( Sender )->Caption );
}
 
// ---------------------------------------------------------------------------
void __fastcall TForm1::btn_make_captionsClick( TObject * Sender )
{
    TButton * btn;
    TMenuItem * mni;
    for ( int i( 0 ), i_limit( mnu->Count ); i < i_limit; ++i )
    {
        mni = mnu->Items[ i ];
        btn = reinterpret_cast < TButton * > ( mni->Tag );
        btn->Action = mni->Action;
        btn->Caption = mni->Caption.UpperCase( );
    }
}

@demmax2004 · 03.12.2014, 13:02

У меня так

@Daniasons · 03.12.2014, 13:17 **[ТС]**

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

У меня так

Для пробы новый проект создал

C++
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
//---------------------------------------------------------------------------
 
#include <vcl.h>
#pragma hdrstop
 
#include "Unit1.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TForm1 *Form1;
//---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
    : TForm(Owner)
{
Button1->Caption = (TMenuItem->Items[1]->Caption).UpperCase();
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Button1Click(TObject *Sender)
{
Close();
}
//---------------------------------------------------------------------------

C++
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
//---------------------------------------------------------------------------
 
#ifndef Unit1H
#define Unit1H
//---------------------------------------------------------------------------
#include <System.Classes.hpp>
#include <Vcl.Controls.hpp>
#include <Vcl.StdCtrls.hpp>
#include <Vcl.Forms.hpp>
#include <Vcl.Menus.hpp>
//---------------------------------------------------------------------------
class TForm1 : public TForm
{
__published:    // IDE-managed Components
    TMainMenu *MainMenu1;
    TMenuItem *menu;
    TMenuItem *N1;
    TMenuItem *N2;
    TButton *Button1;
    void __fastcall Button1Click(TObject *Sender);
private:    // User declarations
public:     // User declarations
    __fastcall TForm1(TComponent* Owner);
};
//---------------------------------------------------------------------------
extern PACKAGE TForm1 *Form1;
//---------------------------------------------------------------------------
#endif

ОШИБКИ
Checking project dependencies...
Compiling Project1.cbproj (Debug, Win32)
bcc32 command line for "Unit1.cpp"
c:\program files (x86)\embarcadero\studio\15.0\bin\bcc32. exe -D_DEBUG -DUSEPACKAGES -n.\Win32\Debug -I"c:\program files
(x86)\embarcadero\studio\15.0\include\wi ndows\vcl";"c:\program files (x86)\embarcadero\studio\15.0\include";" c:\program files
(x86)\embarcadero\studio\15.0\include\di nkumware";"c:\program files (x86)\embarcadero\studio\15.0\include\wi ndows\crtl";"c:\program files
(x86)\embarcadero\studio\15.0\include\wi ndows\sdk";"c:\program files (x86)\embarcadero\studio\15.0\include\wi ndows\rtl";"c:\program files
(x86)\embarcadero\studio\15.0\include\wi ndows\vcl";"c:\program files (x86)\embarcadero\studio\15.0\include\wi ndows\fmx";"C:\Program Files
(x86)\FastReports\LibD21";"C:\Program Files (x86)\Raize\CS5\Lib\RS-XE7\Win32";C:\Users\Public\Documents\Emb arcadero\Studio\15.0\hpp\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(15): E2108 Improper use of typedef 'TMenuItem'
Full parser context
Unit1.cpp(13): parsing: _fastcall TForm1::TForm1(TComponent *)
Failed
Elapsed time: 00:00:00.1

@demmax2004 · 03.12.2014, 13:23

откуда откуда взял TMenuItem ??? Я ума не приложу

C++
1
Button1->Caption = (TMenuItem->Items[1]->Caption).UpperCase();

@BRcr · 03.12.2014, 13:24

Daniasons, TMenuItem замени на N1, N2 или что там еще...

@Daniasons · 03.12.2014, 13:29 **[ТС]**

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

TMenuItem замени на N1, N2 или что там еще...

всё так сделано как писали,и всё равно не компируеться
в архиве пробный проект

@Daniasons · 03.12.2014, 14:53 **[ТС]**

C++
1
2
3
4
5
6
7
8
void __fastcall TForm1::N1Click(TObject *Sender)
{
   Capt = ((TMenuItem *)Sender)->Caption;
   ((TMenuItem *)Sender)->Checked = true;
   X = ((TMenuItem *)Sender)->Tag;
   Button1->Caption = (N1->Items[1]->Caption).UpperCase();
   Button1->Enabled = true;
}

Код компилируется
При выборе пункта ошибка:menu index out of range

@demmax2004 · 03.12.2014, 15:41

Значит неправильный индекс используешь, ты проверял имеется у тебя пункт меню с индексом 1 ?

@Daniasons · 03.12.2014, 15:53 **[ТС]**

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

Значит неправильный индекс используешь, ты проверял имеется у тебя пункт меню с индексом 1 ?

Проверено, есть такой индекс!

Новые блоги и статьи Все статьи Все блоги /
Знаешь почему 90% людей редко бывают счастливыми? kumehtar 14.04.2026 Потому что они ждут. Ждут выходных, ждут отпуска, ждут удачного момента. . . а удачный момент так и не приходит.	Фиксация колонок в отчете СКД Maks 14.04.2026 Фиксация колонок в СКД отчета типа Таблица. Задача: зафиксировать три левых колонки в отчете. Процедура ПриКомпоновкеРезультата(ДокументРезультат, ДанныеРасшифровки, СтандартнаяОбработка) / / . . .	Настройки VS Code Loafer 13.04.2026 { "cmake. configureOnOpen": false, "diffEditor. ignoreTrimWhitespace": true, "editor. guides. bracketPairs": "active", "extensions. ignoreRecommendations": true, . . .	Оптимизация кода на разграничение прав доступа к элементам формы Maks 13.04.2026 Алгоритм из решения ниже реализован на нетиповом документе, разработанного в конфигурации КА2. Задачи, как таковой, поставлено не было, проделанное ниже исключительно моя инициатива. Было так:. . .
Контроль заполнения и очистка дат в зависимости от значения перечислений Maks 12.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "ПланированиеПерсонала", разработанного в конфигурации КА2. Задача: реализовать контроль корректности заполнения дат назначения. . .	Архитектура слоя интернета для сервера-слоя. Hrethgir 11.04.2026 В продолжение https:/ / www. cyberforum. ru/ blogs/ 223907/ 10860. html Знаешь что я подумал? Раз мы все источники пишем в голове ветки, то ничего не мешает добавить в голову такой источник, который сам. . .	Подстановка значения реквизита справочника в табличную часть документа Maks 10.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "ПланированиеПерсонала", разработанного в конфигурации КА2. Задача: при выборе сотрудника (справочник Сотрудники) в ТЧ документа. . .	Очистка реквизитов документа при копировании Maks 09.04.2026 Алгоритм из решения ниже применим как для типовых, так и для нетиповых документов на самых различных конфигурациях. Задача: при копировании документа очищать определенные реквизиты и табличную. . .

@Daniasons 0 / 0 / 0 Регистрация: 02.12.2014 Сообщений: 14

	Разный caption на кнопке и в меню 02.12.2014, 20:37. Показов 2910. Ответов 29 Метки нет (Все метки) Как сделать чтобы caption в меню и на кнопке был разный ? Должно получиться вот так: В MainMenu : Очистка реестра На кнопке: ОЧИСТКА РЕЕСТРА большими буквами (Caps Lock) 0

@gunslinger place status here 3190 / 2227 / 640 Регистрация: 20.07.2013 Сообщений: 6,023
	02.12.2014, 22:03
	Например, ручками. А что мешает? Они как-то связаны (общим Caption-ом)? 0

@gunslinger place status here 3190 / 2227 / 640 Регистрация: 20.07.2013 Сообщений: 6,023
	02.12.2014, 22:28
	И причем тут знание языка. Добавляешь на форму TButton и TMainMenu (вкладка Standart компонентов Toll Palette) и изменяешь в Object Inspector (инспектор объектов) требуемые параметры. Для MainMenu кликешь правой кнопкой на добавленный компонент и выбираешь Menu Designer. А если тебе нужно сделать подобное программно, то рано еще. Продолжай изучение языка. Или жди более добрых людей, не люблю разжевывать основы, если это требует от меня дополнительных усилий. 0

@gunslinger place status here 3190 / 2227 / 640 Регистрация: 20.07.2013 Сообщений: 6,023
	02.12.2014, 23:03
	Меняй Size (размер) Font-a (шрифта) для кнопки Button. Для меню не знаю. 0

@BRcr 4043 / 2333 / 292 Регистрация: 03.02.2011 Сообщений: 5,066 Записей в блоге: 10
	03.12.2014, 00:34
	Daniasons, в конструкторе формы берешь текст с пункта меню, переводишь в верхний регистр и присваиваешь к тексту кнопки. 0

@SatanaXIII Почетный модератор 5851 / 2862 / 392 Регистрация: 01.11.2011 Сообщений: 6,906
	03.12.2014, 09:25
	Надо изначально установить какую-то однозначную связь между элементами меню и соответствующими им кнопками (какой-нибудь Tag, кусок названия). Потом пройтись по всем элементам меню и дальше как предлагает BRcr. 0

@demmax2004 120 / 142 / 46 Регистрация: 31.10.2014 Сообщений: 721 Записей в блоге: 1
	03.12.2014, 13:02
	У меня так 0

@BRcr 4043 / 2333 / 292 Регистрация: 03.02.2011 Сообщений: 5,066 Записей в блоге: 10
	03.12.2014, 13:24
	Daniasons, TMenuItem замени на N1, N2 или что там еще... 0

@demmax2004 120 / 142 / 46 Регистрация: 31.10.2014 Сообщений: 721 Записей в блоге: 1
	03.12.2014, 15:41
	Значит неправильный индекс используешь, ты проверял имеется у тебя пункт меню с индексом 1 ? 0

Разный caption на кнопке и в меню

Решение