[ALexandr555]

Код:

try
бла 
бла 
бла
except
on E : Exception do
MessageBox(0,'бла бла бла',MB_OK);
Form1.Destroy;
end;

почему он не дает убить программу?
[Error] Unit1.pas(1796): 'END' expected but identifier 'TForm1' found

[DenNik]

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

Код:

try
бла 
бла 
бла
except
on E : Exception do
MessageBox(0,'бла бла бла',MB_OK);
Form1.Destroy;
end;

почему он не дает убить программу?
[Error] Unit1.pas(1796): 'END' expected but identifier 'TForm1' found

Код:

try
бла 
бла 
бла
except
on E : Exception do
begin
  MessageBox(0,'бла бла бла',MB_OK);
  Form1.Destroy;
end;
end;

[ALexandr555]

Спасибо, но что то не убивает все равно

[Vocabulary]

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

Спасибо, но что то не убивает все равно

Form1.Free;

[ALexandr555]

Код:

Form1.Free;

не убивает, вобще это обработчик на onCreate формы

[Страдалецъ]

Есть жестокий метод

Код:

Halt;

[PhoeniX]

.Close?
Application.Terminate?
ExitProcess(0)?

[ALexandr555]

.Close?
Application.Terminate?
ExitProcess(0)?
Halt;

нет, ничего что это в

Код:

procedure TForm1.FormCreate(Sender: TObject);

вызываю?

[ALexandr555]

а все сорри, после сообщения ок не жал, просто вылазиет окно с сообщением, и далее лезут ошибки, вот их бы скрыть.