Ich habe nicht gewusst, dass den tag automatisch ausgelesen wird
Wie gesagt OnMouseEnter geht super
In MouseLeave habe ich den selben Prinzip, wie Du geschrieben hast aber passiert nicht
Delphi-Quellcode:
procedure TForm1.DoOnLeave(Sender: TObject);
begin
// ImageList1.GetBitmap(Pred((Sender as TBitBtn).Tag-1), (Sender as TBitBtn).Glyph);
ImageList1.GetBitmap((Sender as TBitBtn).Tag-1, (Sender as TBitBtn).Glyph);
end;
Oder vielleicht muss man das Bild vorher löschen