Кнопка на диалоге

отредактировано 16:08 Раздел: FastReport 3.0
Ув. господа. Подскажите. На форме есть кнопка=mrOk, по нажатию на нее хочу проверить некоторые условия заданные контролами в диалоге, если все нормально запустить отчет, а если нет то не запускать. В Delphi обычно делал

if (...) then
begin
Showmessage('Необходимо выбрать че-нибудь!')
Control1.SetFocus;
Exit;
end;

Но репорте после Exit все равно показывается превью. Как победить?

Комментарии

  • отредактировано 16:08
    В Дельфе где вызываешь печать
    If FR.PrepareReport then FR.Print;
    
  • отредактировано 16:08
    Извините, плохо задал вопрос.

    Я создаю диалоговую форму в FastReport-e, после нажатия на кнопку Ok, хочу, что бы форма не закрылась, если пользователь не выбрал условия для формирования отчета.
  • отредактировано 16:08
    Убери у кнопки ModalResult
    procedure Button1OnClick(Sender: TfrxComponent);
    begin
    
    if (...) then
    begin
      Showmessage('Необходимо выбрать че-нибудь!')
      Control1.SetFocus;
      Exit;
    end
    else
      DialogPage1.ModalResult:=mrOk;
    end;
    
  • отредактировано 16:08
    Спасибо Markus.

Оставить комментарий

Многофункциональный текстовый редактор. Чтобы отредактировать стиль параграфа, нажмите TAB, чтобы перейти к меню абзаца. Там вы можете выбрать стиль. По умолчанию не выбран ни один стиль. Когда вы выберете текст, появится встроенное меню форматирования. Нажмите TAB, чтобы войти в него. Некоторые элементы, такие как многофункциональные вставки ссылок, картинок, индикаторов загрузки и сообщений об ошибок могут быть вставлены в редактор. Вы можете перемещаться по ним, используя стрелки внутри редактора и удалять с помощью клавиш delete или backspace.