Problem mit Bittmap in Button (BitBtn)

[egon.kaschuba]

Hallo sx2008.

Danke für den Tip, aber ich habe einfach mal NACHGEDACHT,
und die Zeile geändet mit ... cdOpen.ImageIndex:=54 (Öffnen) b.z.w. cdOpen.ImageIndex:=55 (Schließen)

Das funktioniert bestens.

Gruß
- Egon

Delphi-Quellcode:

procedure TFormDVDPlayer.cdOpenClick(Sender: TObject);
begin
 if fOpen = False then begin // ist CD-Laufwerk offen?

  mciSEndString('SET CDAUDIO DOOR OPEN WAIT' , nil ,0, Self.Handle);  // wenn nicht, öffne
  cdOpen.ImageIndex:=54;  // Öffnen.bmp
  fOpen := True;
 end
 else begin
   mciSEndString('SET CDAUDIO DOOR CLOSED WAIT' , nil ,0, Self.Handle); // wenn ja, schließe

  cdOpen.ImageIndex:=55;   // Schließen.bmp
  fOpen := False;
end
     end;