unit cerrar;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms,
  StdCtrls, Buttons, ExtCtrls;

type
  TFormaCerrar = class(TForm)
    BitBtn1: TBitBtn;
    BitBtn2: TBitBtn;
    BitBtn3: TBitBtn;
    Label1: TLabel;
    Panel1: TPanel;
    Bevel3: TBevel;
    Bevel4: TBevel;
    Bevel5: TBevel;
    Panel2: TPanel;
    Shape1: TShape;
    Label2: TLabel;
    Label3: TLabel;
    procedure BitBtn1Click(Sender: TObject);
    procedure BitBtn3Click(Sender: TObject);
    procedure BitBtn2Click(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure Panel2Click(Sender: TObject);
    procedure Panel1MouseDown(Sender: TObject; Button: TMouseButton;
      Shift: TShiftState; X, Y: Integer);
    procedure Label3MouseDown(Sender: TObject; Button: TMouseButton;
      Shift: TShiftState; X, Y: Integer);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  FormaCerrar: TFormaCerrar;

implementation

{$R *.DFM}

procedure TFormaCerrar.BitBtn1Click(Sender: TObject);
begin
FormaCerrar.Tag:=1;
FormaCerrar.Close;
end;

procedure TFormaCerrar.BitBtn3Click(Sender: TObject);
begin
FormaCerrar.Tag:=2;
FormaCerrar.Close;
end;

procedure TFormaCerrar.BitBtn2Click(Sender: TObject);
begin
FormaCerrar.Tag:=3;
FormaCerrar.Close;
end;

procedure TFormaCerrar.FormClose(Sender: TObject;
  var Action: TCloseAction);
begin
{FormaCerrar.Tag:=3;}
end;


procedure TFormaCerrar.Panel2Click(Sender: TObject);
begin
Close;
end;

procedure TFormaCerrar.Panel1MouseDown(Sender: TObject;
  Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
begin
ReleaseCapture;
SendMessage(FormaCerrar.Handle, WM_SYSCOMMAND, $F012, 0);
end;

procedure TFormaCerrar.Label3MouseDown(Sender: TObject;
  Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
begin
ReleaseCapture;
SendMessage(FormaCerrar.Handle, WM_SYSCOMMAND, $F012, 0);
end;

end.