Форум: "Основная";
Текущий архив: 2004.06.06;
Скачать: [xml.tar.bz2];

Вниз

при нажатии кнопки Ffind-форма закрывалась и остался MessageBox   Найти похожие ветки 

← →
ceval   (2004-05-26 18:17) [0]

Приветствую всех
Посоветуйте как сделать лутче:
на нажатия кнопки "Поиск" появляется модальная
форма Ffind к ней пишу такой код :
procedure TFfind.Button1Click
if Fmain.ADOTable1.Locate("odcc;odcb",VarArrayOf ([edit1.Text,Edit2.text])[lopartialkey])
    then
 APPLICATION.MessageBox("ЗАПИСЬ  НАЙДЕНА ","Поиск записи  ", )
 else
 Application.MessageBox("ЗАПИСЬ НЕ НАЙДЕНА","Поиск записи  ", );
    except
Как сделать так  что после нажатия кнопки Button1 Ffind-форма закрывалась ??
Сейчас сообщения появляется поверх  формы Ffind
(я хочу что бы на зкране остался MessageBox)
Зарание большое спасибо!!

---

← →
GLFox   (2004-05-26 18:31) [1]

Выводи мессагу после ShowModal

---

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

Форум: "Основная";
Текущий архив: 2004.06.06;
Скачать: [xml.tar.bz2];

Наверх

Память: 0.44 MB
Время: 0.035 c