Обновлено: 01 декабря, 2018

Диалоговые окна в Delphi

Простое диалоговое окно с кнопкой

Синтаксис:

ShowMessage (const Msg: string);

Пример:

ShowMessage('123');

1. ShowMessage

Диалоговое окно с заголовком Acaption

Синтаксис:

InputBox (const Acaption, APromt, ADefault: string): string;

Пример:

InputBox ('Acaption','APromt','ADefault');

2. InputBox

Окно сообщения Msg типа DlgTypeс кнопками Buttons в виде объекта формы

Синтаксис:

CreateMessageDialog (const Msg:string; DlgType; Buttons: TmsgDlgButtons): Tform;

Пример:

var
  AMsgDialog: TForm;
  ctrl : TControl;
begin
  AMsgDialog := CreateMessageDialog('1 строка'+#13+'Сохранить?', mtWarning, [mbYes, mbNo]);
  with AMsgDialog do
  try
    Caption := 'Сохранение' ;
    Height := 140;
    Ctrl:=FindChildControl('Yes');
    Case ShowModal of
      ID_YES: ;
      ID_NO: ;
    end;
  finally
    Free;
  end;

3. CreateMessageDialog

Стандартный диалог Windows для поиска каталога

Синтаксис:

SelectDirectory (const Caption: string; const Root: WideString; out Directory: string;): Boolean; overload;

Вызывает стандартный диалог Windows для поиска каталога. Задается root – корневой каталог, Directory – выбранный каталог.

Пример:

uses FileCtrl;
...
var
  cd:string;
begin
if SelectDirectory('Dir', 'C:\', cD)
  then ShowMessage(''+cD);

4. SelectDirectory

Окно сообщения Msg типа DlgType

Синтаксис:

MessageDlg(const Msg:string; AType:TMsgType; AButtons: TmsgDlgButtons; HelpCtx:Longint): Word;

Окно сообщения Msg типа DlgType с набором кнопок Buttons, и системой справки HelpCtx.

Пример:

var
  buttonSelected : Integer;
begin
  buttonSelected := MessageDlg('Confirmation',mtError, mbOKCancel, 0);
  if buttonSelected = mrOK     then ShowMessage('OK');
  if buttonSelected = mrCancel then ShowMessage('Cancel');
end.

5. MessageDlg

Функции MessageDlg и MessageDlgPos отображают окна, в которых пользователю задается вопрос и анализируется ответ. Различия между MessageDlg и MessageDlgPos заключается в том, что MessageDlg отображает окно в центре экрана, а MessageDlgPos – в позиции X,Y от левого верхнего угла.

Параметры Atype:

   – mtWarning — окно замечаний
   – mtError — окно ошибок
   – mtInformation – информационное окно
   – mtConfirmation — окно подтверждения
   – mtCustom — окно без значка

Параметр Abuttons определяет, какие кнопки будут присутствовать (значение\надпись на кнопке):

   – mbYes — Yes
   – mbNo — No
   – mbOK — OK
   – mbCancel — Cancel
   – mbHelp — Help
   – mbAbort — Abort
   – mbRetry — Retry
   – mbIgnore — Ignore
   – mbAll — All

Список кнопок заключается в [], поскольку параметр Abuttons является множественным. Пример: mbYesNoCancel.

Простое окно сообщение с одной кнопкой

Синтаксис:

ShowMessageFmt(const Msg:string; Params: array of const);

Отображает простое окно сообщения, формируемого из параметров Params строкой форматирования Msg.

Пример:

ShowMessageFmt('%s', ['Hi']);

6. ShowMessageFmt

Диалоговое окно сообщения Text с заголовком Caption

Синтаксис:

Aplication.MessageBox (Text, Caption:PChar; Flags:Longint): Integer;

Создает диалоговое окно сообщения Text с заголовком Caption. Параметр Flags определяет пиктограмму, набор кнопок и другие характеристики.

Пример:

var
  ret: integer;
...
  ret := Application.MessageBox(PChar('Вы хотите сохранить изменения?'),'Подтверждения',MB_YESNOCANCEL + MB_ICONQUESTION);
  if ret = IDYES then ShowMessage('YES') //если да
       else if ret = IDNO then close // если нет
          else exit; // если отмена

7. Aplication.MessageBox