Динамически поменять Bitmap у элемента TMenuItem

← →
MenuItem.Bitmap (2011-05-31 18:36) [0]

Не могу справиться с проблемой смены иконки меню.
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 менялась (обновлялась) сразу.
Спасибо.

← →
clickmaker © (2011-05-31 18:38) [1]

Action.ImageList / ImageIndex?

← →
Smile (2011-05-31 18:46) [2]

Не совсем понял, но, спасибо.
Сейчас посмотрю (почитаю) в хелпе

← →
Smile_ (2011-05-31 18:53) [3]

Динамически поменять Bitmap у элемента TMenuItem Найти похожие ветки