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;