Проблемы со скриптом

krvl

На диалоговой форме есть текстовое поле,в него вбит текст.
Оставляю его таким и жму кнопку.
Отчёт всё равно генерится,а его надо обойти.
Вот скрипт для кнопки.
Помогите пожалуйста новичку.

begin
if [Edit1.Text]='Заполни это поле !!!'
then
[MESSAGEBOX('Заполни все поля...', 'Не ленись...',mb_IconError)];
else
[MESSAGEBOX('Всё Ок...', 'Ок...',mb_IconInformation)];
WeID := lkpWe.KeyValue;
Agency.Open;
MasterQuery.Open;
end;
end

Vetal

Dlja nachala uberite ";" v konce stroki
"[MESSAGEBOX('Заполни все поля...', 'Не ленись...',mb_IconError)];"

krvl

Убрал, результат тот же

Andrew_Sh

krvl написал:

На диалоговой форме есть текстовое поле,в него вбит текст.
Оставляю его таким и жму кнопку.
Отчёт всё равно генерится,а его надо обойти.
Вот скрипт для кнопки.
Помогите пожалуйста новичку.

begin
if [Edit1.Text]='Заполни это поле !!!'
then
[MESSAGEBOX('Заполни все поля...', 'Не ленись...',mb_IconError)];
else
[MESSAGEBOX('Всё Ок...', 'Ок...',mb_IconInformation)];
WeID := lkpWe.KeyValue;
Agency.Open;
MasterQuery.Open;
end;
end

Чтобы не выполнялся отчет после показа диалога используйте ModalResult := mrCancel;

begin
  if [Edit1.Text]='Заполни это поле !!!'
    then begin 
       MESSAGEBOX('Заполни все поля...', 'Не ленись...',mb_IconError);
       ModalResult := mrCancel;
    end
  else
    begin 
       MESSAGEBOX('Всё Ок...', 'Ок...',mb_IconInformation);
       WeID := lkpWe.KeyValue;
       Agency.Open;
       MasterQuery.Open;
     end;
end

krvl

Заработало ! Спасибо огромное !