отменить действие кнопки else

[m1zantrop]

а если на форме 2 стоит
CanClose := False;
пользователь всё сделал правильно, прошел на третью форму, как по нажатии кнопки на 3 форме, закрыть и вторую тоже? она же не закрывается

[ych_del]

Ну, можно, к примеру, завести глобальную переменную, видимую во всех юнитах, и в зависимости от каких-либо условий устанавливать ей соответствующее значение. А потом уже - CanClose := ЭтаПеременная. Ну, это один из методов.

А вообще, не совсем правильно запрещать пользователю закрывать окно - это будет бесить всех и каждого. Вместо требования во чтобы то ни стало ввести имя, спроси у юзера что-то вроде "Уважаемый, ты имя не ввел, сохранить запись не получится. Хочешь все-таки ввести имя?". Если юзер отвечает "Да" - возвращаем его к вводу данных, "Нет" - закрываем окно без сохранения записи.

[veniside]

не совсем правильно запрещать пользователю закрывать окно

я бы даже сказал, совсем не правильно ) Обычно, такие программы оканчивают свою незатейливую жизнь под кнопкой [End Proccess] из Task Manager.

[m1zantrop]

реч идёт о праворливых школьниках, эта запись просто обязана попасть в бд

[m1zantrop]

procedure TForm6.sButton1Click(Sender: TObject);
begin
if sEdit1.Text='' then
Application.MessageBox('Ïîëå îáÿçàòåëüíî äëÿ çàïîëíåíèÿ!', 'Âíèìàíèå!', MB_ICONINFORMATION or MB_OK);
else
exit;
ts.Add(sEdit1.text);
ts.Add(sEdit2.text);
ts.Add('__________');
begin
sEdit9.Text:=sEdit1.Text;
end;
end;

что не так?

если едит больше чем ничего то всё что после эксыта должно выполнятся

[Stilet]

если едит больше чем ничего

То все что после "эксыта" забьет на выполнение большой гвоздь.
Убирай Exit отсюда.

[m1zantrop]

Сообщение от Stilet

То все что после "эксыта" забьет на выполнение большой гвоздь.
Убирай Exit отсюда.

если его убрать то он всё равно несмотря на то что поле пусто, выполняет действия

[Stilet]

Не удивительно. Все что при Else нужно выполнять заключи в begin...end

[m1zantrop]

спасибо, помогло

[ych_del]

что не так?

Во-первых - а оно у тебя компилится вообще?

procedure TForm6.sButton1Click(Sender: TObject);
begin
   if sEdit1.Text='' then
      Application.MessageBox('Ïîëå îáÿçàòåëüíî äëÿ çàïîëíåíèÿ!', 'Âíèìàíèå!', MB_ICONINFORMATION or MB_OK);
   else
      exit;
   ts.Add(sEdit1.text);
   ts.Add(sEdit2.text);
   ts.Add('__________');
   begin
      sEdit9.Text:=sEdit1.Text;
   end;
end;

Во-вторых - зачем там begin .. end в конце процедуры?

В-третьих (опять же - просто отвлеченно) - не следует "орать" на пользователя (восклицательные знаки в мессагбоксе), даже если этот пользователь - школьник. Это раздражает всех и каждого. См. Google -> usability