unit dialogos;

interface

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

type
  TDialogo = class(TForm)
    Cuadrito: TBevel;
    Mens: TLabel;
    Shape1: TShape;
    Panel3: TPanel;
    Raya1: TBevel;
    Raya2: TBevel;
    Raya3: TBevel;
    Panel4: TPanel;
    Titulo: TLabel;
    BotonAceptar: TBitBtn;
    Label2: TLabel;
    procedure Panel4Click(Sender: TObject);
    procedure FormKeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
    procedure BotonAceptarKeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
    procedure FormActivate(Sender: TObject);
    procedure BotonAceptarClick(Sender: TObject);
    procedure Panel3MouseDown(Sender: TObject; Button: TMouseButton;
      Shift: TShiftState; X, Y: Integer);
    procedure Label2MouseDown(Sender: TObject; Button: TMouseButton;
      Shift: TShiftState; X, Y: Integer);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Dialogo: TDialogo;
procedure MuestraMensaje(mensaje:String);
procedure MuestraMensaje2(mensaje:String);
procedure CierraMensaje;
{*****}

implementation

{$R *.DFM}

function sonido(duracion,frecuencia:integer):Boolean;
var
i:integer;
begin
//MessageBeep(frecuencia);
//for i:=0 to duracion do
//beep;
end;


procedure MuestraMensaje(mensaje:string);
begin
Dialogo:=TDialogo.Create(Application);
if length(mensaje)<10 then mensaje:=mensaje+'         ';

Dialogo.Mens.Caption:=mensaje;
Dialogo.Width:=Dialogo.Mens.Width+38;
Dialogo.BotonAceptar.Left:=Trunc(Dialogo.Width/2)-33;
Dialogo.Cuadrito.Width:=Dialogo.Width-15;
Dialogo.Panel3.Width:=Dialogo.Width-6;
Dialogo.Panel4.Left:=Dialogo.Width-25;
Dialogo.Raya1.Width:=Dialogo.Panel3.Width-49;
Dialogo.Raya2.Width:=Dialogo.Panel3.Width-49;
Dialogo.Raya3.Width:=Dialogo.Panel3.Width-49;
Dialogo.Titulo.Left:=Trunc(Dialogo.Panel3.Width/2)-26;
Dialogo.Position:=poScreenCenter;
Dialogo.ShowModal;
Dialogo.Free;
end;

procedure MuestraMensaje2(mensaje:string);
begin
Dialogo.Width:=Length(mensaje)*Dialogo.Mens.Font.Size+50;
Dialogo.BotonAceptar.Left:=Trunc((Length(mensaje)*Dialogo.Mens.Font.Size+50)/2)-33;
Dialogo.Cuadrito.Width:=Length(mensaje)*Dialogo.Mens.Font.Size+50-20;
Dialogo.Mens.Caption:=mensaje;
Dialogo.Show;
end;

procedure CierraMensaje;
begin
Dialogo.Close;
end;


procedure TDialogo.Panel4Click(Sender: TObject);
begin
Close;
end;

procedure TDialogo.FormKeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
if key=27 then Close;
end;

procedure TDialogo.BotonAceptarKeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
if key=27 then Close;
if key=13 then Close;
end;

procedure TDialogo.FormActivate(Sender: TObject);
begin
sonido(100,100);
end;

procedure TDialogo.BotonAceptarClick(Sender: TObject);
begin
Close;
end;

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

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

end.