Hallo,
wenn ich auf dem Button Klicke soll ein Disk_Open.BMP
in dem Button erscheinen.
Klicke ich dann nochmal auf den Button soll ein Disk_Close.BMP
in dem Button erscheinen.
Delphi-Quellcode:
procedure TFormDVDPlayer.cdOpenClick(Sender: TObject);
begin
if fOpen = False then begin // ist CD-Laufwerk offen?
//*******************************************************************************************
ImageList4.GetBitmap(2, Web_Open.Glyph); // aus ImageList Bild öffnen u. in Button ablegen
// z.B Disk_Open.BMP
//*******************************************************************************************
mciSEndString('SET CDAUDIO DOOR OPEN WAIT' , nil ,0, Self.Handle); // wenn nicht, öffne
fOpen := True;
end
else begin
//******************************************************************************************
ImageList4.GetBitmap(1, Web_Open.Glyph); // aus ImageList Bild öffnen u. in Button ablegen
// z.B Disk_Close.BMP
//******************************************************************************************
mciSEndString('SET CDAUDIO DOOR CLOSED WAIT' , nil ,0, Self.Handle); // wenn ja, schließe
fOpen := False;
end
end;
kann mir einer bei meinem Problem helfen?
Gruß
- Egon