MODERN
Участник
- Сообщения
- 756
- Реакции
- 130
сейчас я расскажу как выводить сообщения в delphi.
для вывода простого сообщения есть такой код:
а для вывода сообщения с картинкой, не сколькоми кнопками(как в basic`е)
такой код:
в этом сообщение будет 3 кнопки
теперь рассказываю подробно о этом:
'Вывод сообщения' это текст
mtconfirmation это тип сообщения
[mbYes,mbNo,mbCancel] это кнопки
а 0 это индекс помощи можно ставить просто 0
теперь про кнопки
объявим переменную r(помните где переменные обьявлять?)
для вывода простого сообщения есть такой код:
Код:
ShowMessage('сообщение')
такой код:
Код:
MessageDLG('Вывод сообщения',mtConfirmation,[mbYes,mbNo,mbCancel],0);
теперь рассказываю подробно о этом:
'Вывод сообщения' это текст
mtconfirmation это тип сообщения
[mbYes,mbNo,mbCancel] это кнопки
а 0 это индекс помощи можно ставить просто 0
теперь про кнопки
- mbYes - это да
- mbNo - нет
- mbOK - ОК
- mbCancel - канцел
- mbHelp - помощь
- mbAbort - прервавть
- mbRetry - повтор
- mbIgnore - пропустить
- mbAll - про эту кнопку незнаю
- mtWarning - предупреждение
- mtError - ошибка
- mtInformation - информация
- mtConfirmation - запрос
- 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;