Crear una Unit para mensajes

[JoanKa]

Ante todo gracias por la atencion prestada.

Bueno en un oportunidad vi una pequeña gestion en donde los mensajes, eran totalmente distintos, es decir,al momento de grabar, editar y/o actualizar salia un form con dibujo propio, asi como el color del fondo del form segun el tipo de mensaje.

Eso es lo que desearia hacer pero no tengo idea como se hace ni como se llama a esta unit o a esta funcion.

Donde podria encontrar algun manual respecto a esto o si alguien lo tuviese me lo podria poner en este post.

Gracias y Saludos.

[FDB]

Hola!


No se exactamente a te refieres con lo de mensajes.
Pero según dices cuando pinchaba en editar o lo que fuese salia un form, es decir, si lo que quieres es mostrar un mensaje personalizado (fuera de... showmessage, messagebox, msgbox...) pues tan solo debes crear un form nuevo, lo personalizas añadienle lo que quieras y lo muestras asi:

Código Delphi [-]
FormNuevo.showmodal;

No se si es esto lo que quieres o no, pero es lo que yo entendí... ya nos dices si es o no lo que quieres y si no lo es explicate algo mejor.

Saludos!

[[Lepe]]

Código Delphi [-]
unit Unit2;

interface

uses Classes, Controls, StdCtrls,forms,graphics;

type
  TMensaje = (minfo, mwarning, mcritical);
  TForm2 = class(TForm)
    Label1: TLabel;

  private
    { Private declarations }
    procedure FormClose(Sender: TObject; var Action: TCloseAction);    
  public
    { Public declarations }
    constructor Create(TipoMensaje:TMensaje; Mensaje:string);
    procedure CambiaMensaje(TipoMensaje:TMensaje; Mensaje:string);
  end;

var
  Form2: TForm2;

implementation



{$R *.dfm}


procedure TForm2.CambiaMensaje(TipoMensaje: TMensaje; Mensaje: string);
begin
  case TipoMensaje of
    minfo:    Color := clWhite;
    mwarning: Color := clFuchsia;
  else
    Color := clred;
  end;
  Show;
end;

constructor TForm2.Create(TipoMensaje: TMensaje; Mensaje: string);
begin
  inherited Create(nil);
  CambiaMensaje(TipoMensaje,Mensaje);
end;

procedure TForm2.FormClose(Sender: TObject; var Action: TCloseAction);
begin
  Action := caFree;
  Form2:= nil;
end;

end.

Esto solo cambia el color de fondo y pone el mensaje que quieras en un label. Para poner una imagen, pues más de lo mismo, poner un Timage, un ImageList con las imagenes que quieras para cada tipo de mensaje, y despues ponerlo en el Timage.

La forma de llamarlo sería:

Código Delphi [-]
var Form2 :Tform2;
begin
  form2 := Tform2.Create(mwarning, 'Quillo esto es una advertencia');
  sleep(5000); // por hacer algo... hacemos que espere 5 segundos
  form2.Close;
end;

Si la ventana ya la estas mostrando y quieres cambiar sobre la marcha el mensaje. usa CambiaMensaje para ello.

A esta ventana yo le pondría la propiedad FormStyle a fsStayOnTop para que ninguna otra ventana la oculte.

Un saludo