if Schleife?

[mirage228]

Also beim Start der Anwendung (FormCreate bzw. FormShow) hatte ich manchmal Probleme mit Application.MessageBox. Vielleicht trifft dieses Problem ja auch hier bei MessageDlg zu:

Versuch mal statt

Delphi-Quellcode:

      if MessageDlg('Do you want to play Backgroundmusic ?', mtConfirmation, 
        [mbYes, mbNo], 0) = mrYes then

dieses:

Delphi-Quellcode:

      if MessageBox(Handle, 'Do you want to play Backgroundmusic ?', 'Confirmation', 
        MB_YESNO or MB_ICONQUESTION) = IDYES then