Функции Delphi
Просмотров: 773

Функция MessageDlg – отображает сообщение, знак и выбираемые кнопки

Функция MessageDlg в Delphi отображает сообщение, знак и выбираемые кнопки.

Функция MessageDlg: Показ диалога с подтверждением

var
  buttonSelected : Integer;
begin
  // Отображение диалога с подтверждением
  buttonSelected := MessageDlg('Confirmation',mtError, mbOKCancel, 0);

  // Показ типа выбранной кнопки
  if buttonSelected = mrOK     then ShowMessage('Была нажата OK');
  if buttonSelected = mrCancel then ShowMessage('Была нажата Cancel');
end;

Функция MessageDlgPos: Отображает заказной диалог с заказным выбором кнопки

var
  buttonSelected : Integer;
begin
  // Отображение заказного диалога
  buttonSelected := MessageDlg('Custom dialog',mtCustom,
                              [mbYes,mbAll,mbCancel], 0);

  // Показ типа выбранной кнопки
  if buttonSelected = mrYes    then ShowMessage('Была нажата Yes');
  if buttonSelected = mrAll    then ShowMessage('Была нажата All');
  if buttonSelected = mrCancel then ShowMessage('Была нажата Cancel');
end;

Помощь

Продукция и услуги

Main Menu