Форум: "Начинающим";
Текущий архив: 2006.03.05;
Скачать: [xml.tar.bz2];
ВнизНе понятная надпись 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;
← →
КиТаЯц © (2006-02-15 12:57) [4]
> begin...end © (15.02.06 12:51) [1]
>
> Menus.StripHotKey
>
не знал...
← →
ZbarKiy (2006-02-15 14:19) [5]>Menus.StripHotKey
Спасибо за дельные советы нашел подходящие
TPopupMenu.AutoHotKey := maManual;
Страницы: 1 вся ветка
Форум: "Начинающим";
Текущий архив: 2006.03.05;
Скачать: [xml.tar.bz2];
Память: 0.45 MB
Время: 0.012 c