Форум: "Основная";
Текущий архив: 2002.06.24;
Скачать: [xml.tar.bz2];
Вниз
Все как по учебнику - а не работает.... Найти похожие ветки
← →
koks (2002-06-13 15:28) [0]Уважаемые знатоки, все сделал как по учебнику, а че-то не работает.
Следеущая процедура создает и запускает модальную форму, а также принимает значение в
случае, если mrOk
procedure TForm.Fill;
begin
fmChDate := TfmChDate.Create(Self);
with fmChDate do
begin
if (ShowModal = mrOk) then
begin
{действия...}
end;
Release;
end;
end;
для формы TfmChDate описаны следующие обработчики:
procedure TfmChDate.FormClose(Sender: TObject; var Action: TCloseAction);
begin
Action := caHide;
end;
procedure TfmChDate.bbOkClick(Sender: TObject);
begin
ModalResult := mrOk;
Close;
end;
procedure TfmChDate.bbCancelClick(Sender: TObject);
begin
ModalResult := mrCancel;
Close;
end;
bbOk и bbCancel - TBitBtn-ы, для которых ModalResult установлено в mrNull
Я пробовал для них устанавливать соответственно mrOk и mrCancel, но результат - тот же...
Проблема - НИКОГДА не выполняется условие ShowModal = mrOk...
т.е. форма запускается, закрывается по нажатию кнопки, но {действия...} в 1-ой процедуре не выполняются
Заранее Спасибо !
← →
Игорь Шевченко (2002-06-13 15:33) [1]Плохой учебник читали.
procedure TfmChDate.bbOkClick(Sender: TObject);
begin
ModalResult := mrOk;
// Close; - убрать, так как вызовет автоматические присвоение mrCancel свойству ModalResult
end;
← →
Tkach_ (2002-06-13 15:46) [2]>Я пробовал для них устанавливать соответственно mrOk и mrCancel, но результат - тот же...
а Вы не забыли при этом обработчики кликов этих кнопок убрать???
← →
koks (2002-06-13 15:54) [3]2 Игорь Шевченко:
Убрал Close... и там и там.... все равно.
Пробовал также убрать вовсе обработчики BitBtnClick (а в их свойстве ModalResult выставить соответствующие mrOk b mrCancel)... все равно :(
← →
Игорь Шевченко (2002-06-13 16:10) [4]Осталось убрать caHide
← →
koks (2002-06-13 16:15) [5]Не надо убирать caHide.... Все, доперло - там была еще одна ошибка, не связанная с кнопками.. Спасибо за помощь !
Страницы: 1 вся ветка
Форум: "Основная";
Текущий архив: 2002.06.24;
Скачать: [xml.tar.bz2];
Память: 0.45 MB
Время: 0.012 c