Текущий архив: 2004.06.06;
Скачать: CL | DM;
Вниз
при нажатии кнопки 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;
Скачать: CL | DM;
Память: 0.46 MB
Время: 0.024 c
