Скачать: CL | DM;

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

← →
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, но результат тот же

---

← →
Lubacha ©   (2006-11-19 19:23) [13]

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

---

← →
Алхимик ©   (2006-11-19 19:34) [14]

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

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

---

← →
Алхимик ©   (2006-11-19 19:35) [15]

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

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


---

← →
Lubacha ©   (2006-11-19 19:36) [16]

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

---

← →
Lubacha ©   (2006-11-19 19:45) [17]

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

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.48 MB
Время: 0.027 c