Запрос о закрытии программы

procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
var DlgRes:integer;
begin
DlgRes := MessageBox(form1.Handle, 'Закрыть программу?', 'Сообщение', MB_YESNO or MB_ICONQUESTION);
if DlgRes = ID_NO then action :=caNone;
end;

procedure TForm1.FormCloseQuery(Sender: TObject; var CanClose: Boolean);
begin
CanClose := MessageDlg('Вы действительно хотите выйти из программы?',mtConfirmation,[mbYes,mbNo],0)=IDYes
end;

procedure TForm1.FormCloseQuery(Sender: TObject; var CanClose: Boolean);
begin
CanClose := MessageBox(Application.Handle,'Вы действительно хотите выйти из программы?','Предупреждение',MB_YESNO)=ID_YES;
end;

CanClose := MessageBox(Application.Handle,'Вы действительно хотите выйти из программы?','Подтверждение',MB_YESNO)=ID_YES;

procedure TForm1.FormCloseQuery(Sender: TObject; var CanClose: Boolean);
begin
CanClose:=MessageDlg ('Действительно выйти?',mtConfirmation,[mbYes,mbNo],0)=mrYes
end;

unit Unit1;
 
interface
 
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, jpeg, ExtCtrls, ShellAPI;
 
type
  TForm1 = class(TForm)
    Button1: TButton;
    Button2: TButton;
    Button3: TButton;
    Button4: TButton;
    Button5: TButton;
    Button6: TButton;
    Button7: TButton;
    Image2: TImage;
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Label4: TLabel;
    Label5: TLabel;
    Label6: TLabel;
    Label7: TLabel;
    Image1: TImage;
    Label8: TLabel;
    Label9: TLabel;
    Button8: TButton;
    procedure Label4Click(Sender: TObject);
    procedure Button7Click(Sender: TObject);
    procedure Button1Click(Sender: TObject);
    procedure MMouseEnter(Sender: TObject);
    procedure MMouseLeave(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure Button6Click(Sender: TObject);
    procedure Button5Click(Sender: TObject);
    procedure Label8Click(Sender: TObject);
    procedure OnMouseEnter(Sender: TObject);
    procedure OnMouseLeave(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure FormCreate(Sender: TObject);
    procedure Button8Click(Sender: TObject);
    procedure Button4Click(Sender: TObject);
    procedure FormCloseQuery(Sender: TObject; var CanClose: Boolean);
    
  private
    { Private declarations }
  public
    { Public declarations }
  end;
 
var
  Form1: TForm1;
  t: integer;
implementation
 
uses Unit2, Unit3, Unit4, Unit6, Unit5, Unit8, Unit9;
 
{$R *.dfm}
procedure TForm1.FormCreate(Sender: TObject);
begin
//отцентровка и анимация создания формы
//отцентровка
Left := (Screen.Width - Width) div 2;
Top := (Screen.Height - Height) div 2;
//анимация формы при открытии
AnimateWindow(handle, 500, AW_BLEND or AW_ACTIVATE);
end;
 
procedure TForm1.Label4Click(Sender: TObject);
begin
//открытие в браузере сайта университета
ShellExecute(handle,'open','http://eidmu.zp.ua/ ',nil,nil,SW_SHOW);
end;
 
procedure TForm1.Button7Click(Sender: TObject);
begin
{закрытие приложения + полное уничтожение с очисткой памяти
и завершением всех его процессов}
Form1.Close;
Application.Terminate;
end;
 
procedure TForm1.Button1Click(Sender: TObject);
begin
//скрытие гланой формы и создание Form3 + открытие Form3 на экран
AnimateWindow(handle, 400, AW_BLEND or AW_HIDE);
Form1.Hide;
Form3:=TForm3.Create(Application);
Form3.Show;
end;
 
procedure TForm1.MMouseEnter(Sender: TObject);
begin
//изменение цвета Label4 при наведении на него курсора мыши
Label4.Font.Color:=clRed;
end;
 
procedure TForm1.MMouseLeave(Sender: TObject);
begin
//изменение цвета Label4 при убирании с него курсора мыши
Label4.Font.Color:=clGreen;
end;
 
procedure TForm1.Button2Click(Sender: TObject);
begin
//скрытие гланой формы и создание Form4 + открытие Form3 на экран
AnimateWindow(handle, 400, AW_BLEND or AW_HIDE);
Form1.Hide;
Form4:=TForm4.Create(Application);
Form4.Show;
end;
 
procedure TForm1.Button6Click(Sender: TObject);
begin
//скрытие гланой формы и создание Form6 + открытие Form3 на экран
AnimateWindow(handle, 400, AW_BLEND or AW_HIDE);
Form1.Hide;
Form6:=TForm6.Create(Application);
Form6.Show;
end;
 
procedure TForm1.Button5Click(Sender: TObject);
begin
//скрытие гланой формы и создание Form5 + открытие Form3 на экран
AnimateWindow(handle, 400, AW_BLEND or AW_HIDE);
Form1.Hide;
Form5:=TForm5.Create(Application);
Form5.Show;
end;
 
procedure TForm1.Label8Click(Sender: TObject);
begin
//открытие в браузере сервера университета
ShellExecute(handle,'open','http://kpu.eidmu.zp.ua/ ',nil,nil,SW_SHOW);
end;
 
procedure TForm1.OnMouseEnter(Sender: TObject);
begin
//изменение цвета Label4 при наведении на него курсора мыши
Label8.Font.Color:=clRed;
end;
 
procedure TForm1.OnMouseLeave(Sender: TObject);
begin
//изменение цвета Label4 при убирании с него курсора мыши
Label8.Font.Color:=clGreen;
end;
 
procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
begin
//анимация закрытия формы + полное ее уничтожение с освобождение памяти
AnimateWindow(handle, 400, AW_BLEND or AW_HIDE);
Action := caFree;
end;
 
procedure TForm1.Button8Click(Sender: TObject);
begin
 AboutBox.ShowModal;
end;
 
procedure TForm1.Button4Click(Sender: TObject);
begin
//скрытие гланой формы и создание Form5 + открытие Form3 на экран
AnimateWindow(handle, 400, AW_BLEND or AW_HIDE);
Form1.Hide;
Form9:=TForm9.Create(Application);
Form9.Show;
end;
 
 
 
procedure TForm1.FormCloseQuery(Sender: TObject; var CanClose: Boolean);
begin
CanClose:=MessageDlg ('Действительно выйти?',mtConfirmation,[mbYes,mbNo],0)=mrYes
end;
 
end.

procedure TForm1.Button7Click(Sender: TObject);
begin
{закрытие приложения + полное уничтожение с очисткой памяти
и завершением всех его процессов}
Form1.Close;
Application.Terminate;
end;