Скачать: CL | DM;

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

← →
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 вся ветка

Скачать: CL | DM;



Память: 0.45 MB
Время: 0.009 c