Главная страница
    Top.Mail.Ru    Яндекс.Метрика
Форум: "Основная";
Текущий архив: 2002.08.26;
Скачать: [xml.tar.bz2];

Вниз

проблема с меню   Найти похожие ветки 

 
Marat Zaripov   (2002-08-16 12:13) [0]

Проблема с созданием меню:
В секции public главной MDI формы процедура:


procedure TMainForm.CreateMyMenu(ParentMenu: TParentMenu; ClickEvent: TNotifyEvent);
var MenIt : TMenuItem;
i, j: integer;
SprArray: array[1..3] of TTable;
str: string;
begin
for j:=1 to 3 do
begin
MenIt:=TMenuItem.Create(ParentMenu[j]);
MenIt.GroupIndex:=j;
MenIt.RadioItem:=true;
MenIt.Caption:="Без фильтра";
MenIt.Checked:=true;
MenIt.OnClick:=ClickEvent;
ParentMenu[j].Insert(0,MenIt);
MenIt:=TMenuItem.Create(ParentMenu[j]);
MenIt.GroupIndex:=j;
MenIt.Caption:="-";
ParentMenu[j].Insert(0,MenIt);
end;
SprArray[1]:=DM.TableSprGrupp;
SprArray[2]:=DM.TableSprProiz;
SprArray[3]:=DM.TableSprStran;
for j:=1 to 3 do
begin
SprArray[j].First;
for i:=1 to SprArray[j].RecordCount do
begin
MenIt:=TMenuItem.Create(ParentMenu[j]);
MenIt.GroupIndex:=j;
MenIt.RadioItem:=true;
case j of
1: str:="naimgruppa";
2: str:="naimproizv";
3: str:="naimstrana";
end;
MenIt.Caption:=SprArray[j].FieldByName(str).Value;
MenIt.OnClick:=ClickEvent;
ParentMenu[j].Insert(0,MenIt);
SprArray[j].Next;
end;

end;

вызов процедуры осуществляется в главном Unit’е при создании MDIChild формы, в дочернем Unit’е описывается ClickEvent, на дочерней форме расположено RXMainMenu c тремя главными пунктами
Проблема в том, что при создании item’ов меню первый и последний создаются нормально, а средний со знаком & то есть в меню получаем что-то типа «П ункт меню» а не «Пункт меню» без подчерка. Caption’ы меню затем должны использоваться, по ним производится поиск в базе. Как избавится от подчерка?


 
Skier   (2002-08-16 12:19) [1]

>Marat Zaripov
ParentMenu.AutoHotkeys := maManual ?



Страницы: 1 вся ветка

Форум: "Основная";
Текущий архив: 2002.08.26;
Скачать: [xml.tar.bz2];

Наверх





Память: 0.45 MB
Время: 0.007 c
14-85191
MJH
2002-07-30 17:24
2002.08.26
Конференция


1-85035
Cr@sh
2002-08-16 11:54
2002.08.26
Вопрос по созданию системы отмены действий.


8-85135
annton
2002-04-20 00:49
2002.08.26
Глюк TImage


1-85102
einsam
2002-08-15 00:56
2002.08.26
процедурные типы


1-84960
msg
2002-08-15 13:49
2002.08.26
Помогите: можно ли сделать переменное колличество полей в ActiveX





Afrikaans Albanian Arabic Armenian Azerbaijani Basque Belarusian Bulgarian Catalan Chinese (Simplified) Chinese (Traditional) Croatian Czech Danish Dutch English Estonian Filipino Finnish French
Galician Georgian German Greek Haitian Creole Hebrew Hindi Hungarian Icelandic Indonesian Irish Italian Japanese Korean Latvian Lithuanian Macedonian Malay Maltese Norwegian
Persian Polish Portuguese Romanian Russian Serbian Slovak Slovenian Spanish Swahili Swedish Thai Turkish Ukrainian Urdu Vietnamese Welsh Yiddish Bengali Bosnian
Cebuano Esperanto Gujarati Hausa Hmong Igbo Javanese Kannada Khmer Lao Latin Maori Marathi Mongolian Nepali Punjabi Somali Tamil Telugu Yoruba
Zulu
Английский Французский Немецкий Итальянский Португальский Русский Испанский