Вопрос по модальному окну

← →
Lubacha © (2006-11-19 18:37) [0]

Добрый день! Подскажите пожалуйста. Я открываю окно формы модально, после этого пытаюсь добавить запись в БД при нажатии кнопки "Добавить", сама форма исчезает. Как сделать чтобы этого не происходило?

← →
$Pl@Sh © (2006-11-19 18:47) [1]

Исчезает модальная форма?

← →
Lubacha © (2006-11-19 18:50) [2]

Да исчезает. Хотя если форму открыть не модально, то все нормально.

← →
Алхимик © (2006-11-19 18:51) [3]

Ошибка в 17-й строке.

← →
$Pl@Sh © (2006-11-19 18:51) [4]

> Алхимик © (19.11.06 18:51) [3]

:-)

← →
Lubacha © (2006-11-19 18:56) [5]

извините я не поняла в какой 17 строке?

← →
Anatoly Podgoretsky © (2006-11-19 18:57) [6]

> Lubacha (19.11.2006 18:37:00) [0]

ModalResult = mrNone

← →
Алхимик © (2006-11-19 18:58) [7]

> при нажатии кнопки "Добавить", сама форма исчезает.

Посмотри свойство Modalresult у кнопки "Добавить"
> извините я не поняла в какой 17 строке?

в 17-й строке текста программы, которую ты от нас скрываешь

← →
$Pl@Sh © (2006-11-19 18:59) [8]

Код приведи, здесь нет телепатов, хотя наверно скоро придется нанимать

← →
Anatoly Podgoretsky © (2006-11-19 19:01) [9]

> $Pl@Sh (19.11.2006 18:59:08) [8]

Может кода и нет, пусть приведет значение указаного свойства

← →
Lubacha © (2006-11-19 19:02) [10]

Да ничего я не скрываю. Просто тут в первый раз

Окно открываю
procedure TForm1.N4Click(Sender: TObject);
begin
form30.Showmodal;
end;

А добавляю:

procedure TForm30.BitBtn2Click(Sender: TObject);
begin

dm2.Rent1.insert;
dm2.Rent1["data_vvoda"]:=Date();
dm2.Rent1["koef"]:=0;
end;

← →
$Pl@Sh © (2006-11-19 19:04) [11]

> Anatoly Podgoretsky © (19.11.06 19:01) [9]

Код свойства кнопки :-)

← →
Lubacha © (2006-11-19 19:09) [12]

Поставила на свойстве кнопки ModalResult = mrNone, но результат тот же

Ну подскажите что сделать?Два дня сижу.Плиз

> procedure TForm30.BitBtn2Click(Sender: TObject);
> begin
>
> dm2.Rent1.insert;
> dm2.Rent1["data_vvoda"]:=Date();
> dm2.Rent1["koef"]:=0;
> end;

это полный код обработки нажатия?

> Поставила на свойстве кнопки ModalResult = mrNone, но результат
> тот же

Точно? А так:
procedure TForm30.BitBtn2Click(Sender: TObject); begin modalresult := mrNone; dm2.Rent1.insert; dm2.Rent1["data_vvoda"]:=Date(); dm2.Rent1["koef"]:=0; end;

да. далее в DbGreed пользователь редактирует запись

Спасибо. Получилось. Правда кнопку снесла и поставила новую, иначе не получилось

Вопрос по модальному окну Найти похожие ветки