при нажатии кнопки 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

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