MenuItem neu zeichnen, wenn ImageIndex sich ändert?

[Uwe Raabe]

Das funktioniert doch ganz hervorragend (sowohl im obersten Level, als auch in den Subleveln):

Delphi-Quellcode:

type
  TForm210 = class(TForm)
    MainMenu1: TMainMenu;
    ImageList1: TImageList;
    Test1: TMenuItem;
    Timer1: TTimer;
    procedure Timer1Timer(Sender: TObject);
  private
  end;

var
  Form210: TForm210;

implementation

{$R *.dfm}

procedure TForm210.Timer1Timer(Sender: TObject);
{ ImageList hat nur zwei Bitmaps }
begin
  Test1.ImageIndex := 1 - Test1.ImageIndex;
end;