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

Domkrat · February 2005

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

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

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

Markus · February 2005

В Дельфе где вызываешь печать

If FR.PrepareReport then FR.Print;

Domkrat · February 2005

Извините, плохо задал вопрос.

Я создаю диалоговую форму в FastReport-e, после нажатия на кнопку Ok, хочу, что бы форма не закрылась, если пользователь не выбрал условия для формирования отчета.

Markus · February 2005

Убери у кнопки ModalResult

procedure Button1OnClick(Sender: TfrxComponent);
begin

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

Domkrat · February 2005

Спасибо Markus.

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

Комментарии

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