Delphi Вывод сообщений на Delphi

WinHack

Администратор
23 Фев 2015
2,907
1,916
bsfo.ru
сейчас я расскажу как выводить сообщения в delphi.

для вывода простово сообщения есть такой код:
Код:
ShowMessage('сообщение')
а для вывода сообщения с картинкой, несколькоми кнопками(как в basic`е)

такой код:
Код:
MessageDLG('Вывод сообщения',mtConfirmation,[mbYes,mbNo,mbCancel],0);
в этом сообщение будет 3 кнопки

теперь рассказываю подробно о этом:

'Вывод сообщения' это текст

mtconfirmation это тип сообщения

[mbYes,mbNo,mbCancel] это кнопки

а 0 это индекс помощи можно ставить просто 0

теперь про кнопки
  1. mbYes - это да
  2. mbNo - нет
  3. mbOK - ОК
  4. mbCancel - канцел
  5. mbHelp - помощь
  6. mbAbort - прервавть
  7. mbRetry - повтор
  8. mbIgnore - пропустить
  9. mbAll - про эту кнопку незнаю
а теперь про типы их 5
  1. mtWarning - предупреждение
  2. mtError - ошибка
  3. mtInformation - информация
  4. mtConfirmation - запрос
  5. mtCustom - тоже самое что и ShowMessage
вот пример проги:

объявим переменную r(помните где переменные обьявлять?)
Код:
Var R:Word;
на форму кинем текстовое поле и кнопку, в ней пишем такой код:
r:= MessageDLG('ghghh', mterror, [mbYes,mbNo,mbcancel], 0);

if R = mrYes then;
   begin edit1.Text := 'Yes';
   end;
if R=mrNo then
   begin edit1.Text := 'No';
   end;
if r=mrcancel then
   begin edit1.Text := 'Cancel'
   end;