| Форумы
ЧАТ |
Орешник |
|
| Форумы -» | Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG |
|
| ||
|
|
Новости |
Поиск |
FAQ |
Статьи |
Книги |
Новости VCL
| | Форумы ЧАТ |
Орешник |
|
| |||
| |||
| |||
« предыдущая ветвь | форум | следующая ветвь »
Динамически поменять Bitmap у элемента TMenuItem [D5, XP]
MenuItem.Bitmap © (2011-05-31 18:36:00)Не могу справиться с проблемой смены иконки меню.
N1 содержит 2 пункта подменю (N11 и N12)
В соответствии с выбором одного из этих подменю хочу организовать смену иконки N1 на соответствующую выбору.
Вот код:
procedure TForm1.N11Click(Sender: TObject);
var bmp: TBitmap;
begin
Bmp := TBitMap.Create;
ImageList1.GetBitmap(0, bmp);
N1.Bitmap.Empty;
N1.Bitmap.Assign(bmp);
N1.Bitmap.Canvas.Refresh;
end;
procedure TForm1.N12Click(Sender: TObject);
var bmp: TBitmap;
begin
Bmp := TBitMap.Create;
ImageList1.GetBitmap(1, bmp);
N1.Bitmap.Empty;
N1.Bitmap.Assign(bmp);
N1.Bitmap.Canvas.Refresh;
end;
Все бы казалось ничего, но после этих кликов иконка N1 не меняется (обновляется) до тех пор, пока на нее просто не наведется мышь.
Что мне необходимо сделать дополнительно (что я пропустил), чтобы иконка N1 менялась (обновлялась) сразу.
Спасибо.
Smile_ (2011-05-31 18:53:00) [1]> clickmaker © (31.05.11 18:38) [1]
ImageIndex
Спасибо
Smile (2011-05-31 18:46:00) [2]Не совсем понял, но, спасибо.
Сейчас посмотрю (почитаю) в хелпе
clickmaker (2011-05-31 18:38:00) [3]Action.ImageList / ImageIndex?
| |
