Не понятная надпись caption в TMenuItem

← →
ZbarKiy (2006-02-15 12:26) [0]

Уважемые знатоки помогите разобраться в чем дело.
В моем проекте используется для удобства работы с поиском всплывающее меню. При этом взависимости от действий оператора динамически создаются TMenuItem. В Caption созданного объекта я ввожу определенную надпись. На событие OnClick я добавляю процедуру:
OnClick := MyProcedure;
Уневерсальня процедура для события OnClick
Procedure TForm1.MyProcedure(sender: Tobject);
begin
with sender as TMenuItem begin
здесь происходит нечто LOCATE по Caption TMenuItem
end;
end;
Все замечательно работает до тех пор пока в Caption не попадает нечто:
"Пример № 1" в процедуре MyProcedure caption TMenuItem выдает мне "Пример № &1". Как мне от этого симпотично избавится и второй вопрос как на TMenuItem вывести надпись и примоугольник закрашенный определенным цветом.

← →
begin...end © (2006-02-15 12:51) [1]

> ZbarKiy (15.02.06 12:26)

> Как мне от этого симпотично избавится
Menus.StripHotKey

> как на TMenuItem вывести надпись и примоугольник
TMenuItem.OnDrawItem

← →
КаПиБаРа © (2006-02-15 12:54) [2]

Используй LOCATE не по Caption TMenuItem, а по Tag.

Как избавится от & - не помню.

Прямоугольники рисуются так
http://www.yandex.ru/yandsearch?text=Delphi+OnAdvancedDrawItem&stype=www

← →
КиТаЯц © (2006-02-15 12:55) [3]

Странно... Сам создаеш итем, соответственно сам его caption...
Хм... Операнд горячей клавиши автоматом подставляется что-ли?.. Первое что в голову приходит:

Procedure TForm1.MyProcedure(sender: Tobject); begin with sender as TMenuItem begin здесь происходит нечто LOCATE по Заменить(Caption) TMenuItem end; end; function Заменить (S: string): string; begin result:= заменить все символы "&" в строке S на ""; end;

← →
ZbarKiy (2006-02-15 14:19) [5]

>Menus.StripHotKey
Спасибо за дельные советы нашел подходящие
TPopupMenu.AutoHotKey := maManual;

Не понятная надпись caption в TMenuItem Найти похожие ветки