Работа с диалоговым окном
Привет всем.
Как перед открытием отчета показать диалоговое окно выбора даты, закрыть его и затем использовать результаты выбора даты в диалоге?
Пробую работать с таким кодом, но по кнопке не могу прописать закрытие диалога по Close. А по нажатию крестика на диалоге закрывается весь отчет.
Как перед открытием отчета показать диалоговое окно выбора даты, закрыть его и затем использовать результаты выбора даты в диалоге?
Пробую работать с таким кодом, но по кнопке не могу прописать закрытие диалога по 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.
Комментарии
1) В OI дизанера присвой кнопке Button1.ModalResult := mrOK
2) В конце обработчика Button1OnClick пропиши код: MyDialogPage.ModalResult := mrOK
Второй вариант лучше первого тем, что в обработчике ты сможешь проверить правильность ввода даты и только если все нормально, тогда закроешь диалоговое окно.
Все получилось. Сенк.