Прервать одну процедуру из другой процедуры

@Axios · Регистрация: 05.12.2012

Студворк — интернет-сервис помощи студентам

Есть кнопка Button2, клик по которой вызывает процедуру, и есть вторая процедура косвенно запускаемая внутри первой процедуры. Так вот нужно сделать так, чтобы первая процедура, до её полного завершения, завершалась процедурой номер два.
Код первой процедуры:

Delphi

procedure TForm3.Button2Click(Sender: TObject);
begin
PasswordDlg.ShowModal;
showmessage('Ты не смог((00');
end;

Код второй процедуры:

Delphi

procedure TPasswordDlg.FormCloseQuery(Sender: TObject;
  var CanClose: Boolean);
const pass='велкам';
begin
if Password.Text = pass then CanClose:=true
else
begin
showmessage('ты не прав');
//здесь нужно первую прервать процедуру
end;

@FIL · 01.12.2014, 09:28

Можно сделать так:

Delphi

procedure TPasswordDlg.FormCloseQuery(Sender: TObject;
  var CanClose: Boolean);
...
//çäåñü íóæíî ïåðâóþ ïðåðâàòü ïðîöåäóðó
  ModalResult := mrAbort;
end;

Delphi

procedure TForm3.Button2Click(Sender: TObject);
begin
if PasswordDlg.ShowModal = mrAbort then Exit;
showmessage('Òû íå ñìîã((00');
end;

@Axios · 05.12.2014, 13:29 **[ТС]**

Спасибо!

@Axios 0 / 0 / 1 Регистрация: 05.12.2012 Сообщений: 11
	05.12.2014, 13:29 [ТС]	3
	Спасибо! 0

Опции темы