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

Комментарии

• Vetal

  December 2005 отредактировано 11:43

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

  December 2005 отредактировано 11:43

  Убрал, результат тот же
• Andrew_Sh г.Минск

  December 2005 отредактировано 11:43

  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

  December 2005 отредактировано 11:43

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