Задать кнопку по умолчанию для диалогаDelphi , Программа и Интерфейс , Диалоги и ФреймыЗадать кнопку по умолчанию для диалога
Оформил: DeeCo function DefMessageDlg(const ACaption: string; const Msg: string; DlgType: TMsgDlgType; Buttons: TMsgDlgButtons; DefButton: Integer; HelpCtx: Longint): Integer; var i: Integer; btn: TButton; begin with CreateMessageDialog(Msg, DlgType, Buttons) do try Caption := ACaption; HelpContext := HelpCtx; for i := 0 to ComponentCount - 1 do begin if (Components[i] is TButton) then begin btn := TButton(Components[i]); btn.default := btn.ModalResult = DefButton; if btn.default then ActiveControl := btn; end; end; Result := ShowModal; finally Free; end; end; // Sets the focus on the "No"-Button // Setzt den Fokus auf den "Nein"-Button procedure TForm1.Button1Click(Sender: TObject); begin if DefMessageDlg('Title', '....?', mtConfirmation, mbYesNoCancel, mrNo, 0) = mrYes then ShowMessage('....'); end; В статье описывается функция DefMessageDlg для создания диалогового окна с кнопками "Да", "Нет" и "Отменить" и выбором по умолчанию одной из этих кнопок. Комментарии и вопросыМатериалы статей собраны из открытых источников, владелец сайта не претендует на авторство. Там где авторство установить не удалось, материал подаётся без имени автора. В случае если Вы считаете, что Ваши права нарушены, пожалуйста, свяжитесь с владельцем сайта. :: Главная :: Диалоги и Фреймы ::
|
||||
©KANSoftWare (разработка программного обеспечения, создание программ, создание интерактивных сайтов), 2007 |