| Форумы
ЧАТ |
Орешник |
|
| Форумы -» | Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG |
|
| ||
|
|
Новости |
Поиск |
FAQ |
Статьи |
Книги |
Новости VCL
| | Форумы ЧАТ |
Орешник |
|
| |||
| |||
| |||
« предыдущая ветвь | форум | следующая ветвь »
Вопрос по модальному окну [D6]
Lubacha © (2006-11-19 18:37:00)Добрый день! Подскажите пожалуйста. Я открываю окно формы модально, после этого пытаюсь добавить запись в БД при нажатии кнопки "Добавить", сама форма исчезает. Как сделать чтобы этого не происходило?
Lubacha (2006-11-19 19:45:00) [1]Спасибо. Получилось. Правда кнопку снесла и поставила новую, иначе не получилось
Lubacha (2006-11-19 19:36:00) [2]да. далее в DbGreed пользователь редактирует запись
Алхимик (2006-11-19 19:35:00) [3]> Поставила на свойстве кнопки ModalResult = mrNone, но результат
> тот же
Точно? А так:
procedure TForm30.BitBtn2Click(Sender: TObject);
begin
modalresult := mrNone;
dm2.Rent1.insert;
dm2.Rent1['data_vvoda']:=Date();
dm2.Rent1['koef']:=0;
end;
Алхимик (2006-11-19 19:34:00) [4]> procedure TForm30.BitBtn2Click(Sender: TObject);
> begin
>
> dm2.Rent1.insert;
> dm2.Rent1['data_vvoda']:=Date();
> dm2.Rent1['koef']:=0;
> end;
это полный код обработки нажатия?
Lubacha (2006-11-19 19:23:00) [5]Ну подскажите что сделать?Два дня сижу.Плиз
Lubacha (2006-11-19 19:09:00) [6]Поставила на свойстве кнопки ModalResult = mrNone, но результат тот же
$Pl@Sh (2006-11-19 19:04:00) [7]
> Anatoly Podgoretsky © (19.11.06 19:01) [9]
Код свойства кнопки :-)
Lubacha (2006-11-19 19:02:00) [8]Да ничего я не скрываю. Просто тут в первый раз
Окно открываю
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;
Anatoly Podgoretsky (2006-11-19 19:01:00) [9]> $Pl@Sh (19.11.2006 18:59:08) [8]
Может кода и нет, пусть приведет значение указаного свойства
$Pl@Sh (2006-11-19 18:59:00) [10]Код приведи, здесь нет телепатов, хотя наверно скоро придется нанимать
Алхимик (2006-11-19 18:58:00) [11]> при нажатии кнопки "Добавить", сама форма исчезает.
Посмотри свойство Modalresult у кнопки "Добавить"
> извините я не поняла в какой 17 строке?
в 17-й строке текста программы, которую ты от нас скрываешь
Anatoly Podgoretsky (2006-11-19 18:57:00) [12]> Lubacha (19.11.2006 18:37:00) [0]
ModalResult = mrNone
Lubacha (2006-11-19 18:56:00) [13]извините я не поняла в какой 17 строке?
$Pl@Sh (2006-11-19 18:51:00) [14]
> Алхимик © (19.11.06 18:51) [3]
:-)
Алхимик (2006-11-19 18:51:00) [15]Ошибка в 17-й строке.
Lubacha (2006-11-19 18:50:00) [16]Да исчезает. Хотя если форму открыть не модально, то все нормально.
$Pl@Sh (2006-11-19 18:47:00) [17]Исчезает модальная форма?
| |
