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"...???