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

EleFomka

Привет всем.
Как перед открытием отчета показать диалоговое окно выбора даты, закрыть его и затем использовать результаты выбора даты в диалоге?
Пробую работать с таким кодом, но по кнопке не могу прописать закрытие диалога по 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.

Stalker4

EleFomka написал: »

Привет всем.
Как перед открытием отчета показать диалоговое окно выбора даты, закрыть его и затем использовать результаты выбора даты в диалоге?
Пробую работать с таким кодом, но по кнопке не могу прописать закрытие диалога по Close. А по нажатию крестика на диалоге закрывается весь отчет.

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

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

EleFomka

Stalker4 написал: »

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

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

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