• Registered: 2015-11-28
  • Posts: 160

Topic: MessageDlgTimeOut

Здравствуйте Дмитрий!!!
Есть такой скрипт...Собщение закрывается автоматически:

procedure Form1_Button1_OnClick (Sender: string; var Cancel: boolean);
var
    iResult: integer;
begin
    iResult := MessageDlgTimeOut('Текст', 'Название', MB_YESNO+MB_ICONSTOP, 2000); // авто-закр.2 сек 
    if iResult = IDTIMEOUT  then  ShowMessage('1-вариант ! ! !');
    if iResult = IDYES then             ShowMessage('2-вариант ! ! !');
    if iResult = IDNO then               ShowMessage('3-вариант ! ! !');
end;

Это работает на УРА...!!!........не принципиально..., НО.....
ВОПРОС:
а) при открытии Собщение звук как у "Error" (ухо режит) есть способ заменить на более приятный звук (как просто инфо)???
б) есть способ вставить свой звук (mp3)...???
с) есть способ вобще отключить звук при открытии этого сообщения "MessageDlgTimeOut"...???

  • Registered: 2014-02-14
  • Posts: 10,294

Re: MessageDlgTimeOut

Здравствуйте.


а. Характер звука определяется параметром иконки, в вашем примере это MB_ICONSTOP, доступны след. варианты
MB_ICONWARNING
MB_ICONINFORMATION
MB_ICONASTERISK
MB_ICONQUESTION
MB_ICONSTOP
MB_ICONERROR


обычно если в диалоге имеется вопрос, то используется MB_ICONQUESTION


б. Можно wav

    PlaySound('c:\Windows\Media\chimes.wav');
    iResult := MessageDlgTimeOut('Текст', 'Название', MB_YESNO+MB_ICONQUESTION, 2000); // авто-закр.2 сек
    if iResult = IDTIMEOUT  then  ShowMessage('1-вариант ! ! !');
    if iResult = IDYES then             ShowMessage('2-вариант ! ! !');
    if iResult = IDNO then               ShowMessage('3-вариант ! ! !');

или mp3

MediaPlayer.PlayFile('file.mp3');

c. Если используете параметрт MB_ICONQUESTION, то звука быть не должно, но может зависит от звуковой схемы пользователя.

Dmitry.
  • Registered: 2015-11-28
  • Posts: 160

Re: MessageDlgTimeOut

Это просто ЧУДО...СПАСИБО,,,!!!