Работа с диалоговым окном

отредактировано 14:15 Раздел: FastReport 4.0
Привет всем.
Как перед открытием отчета показать диалоговое окно выбора даты, закрыть его и затем использовать результаты выбора даты в диалоге?
Пробую работать с таким кодом, но по кнопке не могу прописать закрытие диалога по Close. А по нажатию крестика на диалоге закрывается весь отчет.
var
 DStart, DStop: TDate;                                               
procedure Button1OnClick(Sender: TfrxComponent);
begin
 DStart:=de_Start.Date;
 DStop:=de_Stop.Date;               
end;   
begin
   try
     Memo1.Lines.Strings[0]:=Memo1.Lines.Strings[0]+'с '+datetostr(DStart);
     Memo1.Lines.Strings[0]:=Memo1.Lines.Strings[0]+' по '+datetostr(DStop);
   except;
   end;
end.

Комментарии

  • Stalker4Stalker4 123
    отредактировано 14:15
    EleFomka написал: »
    Привет всем.
    Как перед открытием отчета показать диалоговое окно выбора даты, закрыть его и затем использовать результаты выбора даты в диалоге?
    Пробую работать с таким кодом, но по кнопке не могу прописать закрытие диалога по Close. А по нажатию крестика на диалоге закрывается весь отчет.
    Варианта тут два:
    1) В OI дизанера присвой кнопке Button1.ModalResult := mrOK
    2) В конце обработчика Button1OnClick пропиши код: MyDialogPage.ModalResult := mrOK

    Второй вариант лучше первого тем, что в обработчике ты сможешь проверить правильность ввода даты и только если все нормально, тогда закроешь диалоговое окно.

  • отредактировано 14:15
    Stalker4 написал: »
    Варианта тут два:
    1) В OI дизанера присвой кнопке Button1.ModalResult := mrOK
    2) В конце обработчика Button1OnClick пропиши код: MyDialogPage.ModalResult := mrOK

    Второй вариант лучше первого тем, что в обработчике ты сможешь проверить правильность ввода даты и только если все нормально, тогда закроешь диалоговое окно.

    Все получилось. Сенк.

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

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