Problem mit Bittmap in Button (BitBtn)

[sx2008]

Tipp:
Verwende ActionLists!
Erstelle zwei Actions (ActionOpen und ActionClose) und schreibe deinen Code (mciSEndString....)
in die Eventhandler von OnExecute der Actions.

Du kannst jetzt den Bitbutton ganz einfach von einer Action auf die andere umstellen:

Delphi-Quellcode:

BitnBtn1.Action := ActionClose;
// beziehungsweise
BitnBtn1.Action := ActionOpen;

Dabei ändert sich die Caption, Bitmap und der Eventhandler beim Klicken auf einen Rutsch.
Sehr interessant bei Actions ist auch der Hotkey.
Du kannst z.B. der ActionOpen den Hotkey Strg-O zuweisen.