procedure Terminate;

The Terminate method stops the execution of your application. Example

This example uses a button on a form. When the user clicks the button, a message box appears, asking the user if the application should terminate. If the user chooses Yes, the application ends.

procedure TForm1.Button1Click(Sender: TObject); begin if MessageDlg('Ternminate the application?', mtConfirmation, [mbYes, mbNo], 0) = mrYes then Application.Terminate;


0 0

Post a comment