Ventana Popup

[rarratia]

Estiamados, necesito saber si existe alguna función como ShowMessage que no tenga el botón ok y que desaparezca al mover el mouse o tocar una tecla. ¿Existe alguna función Delphi que lo haga?

[Casimiro Notevi]

No creo, pero puedes hacerlo tú mismo.
Un simple form.

[rarratia]

Claro, puedo generar un procedimiento así:

Código Delphi [-]
procedure ShowPopup(const Msg: string);
var
  ventana : TForm;
begin
  ventana := CreateMessageDialog(Msg, mtCustom, []);
  with ventana do begin
    OnKeyPress = tecla_pulsada;
    OnMouseMove = se_mueve_mouse;
    Try
      ShowModal;
    Finally
      Free;
    End;
  end;
end;

¿Pero el tema es cómo genero ahora un procedimiento afuera que pueda asignárselo al evento onkeypress y onmousemove, porque cuando creo los procedmientos que cierran la ventana al mover el mouse o pulsar una tecla me genera error

[rarratia]

estos serían los procedimientos:

Código Delphi [-]
procedure tecla_pulsada(Sender: TObject; var Key: Char);
begin
  (Sender As TForm).Close;
end;

procedure se_mueve_mouse(Sender: TObject; Shift: TShiftState; X, Y: Integer);
begin
  (Sender As TForm).Close;
end;

[rarratia]

Solucionado el problema y tenemos un procedure que al pasar el mouse o tocar una tecla se cierra sola:

Primero bastaba poner en la unidad de ayuda los procedimientos a ser asignados como eventos:

Código Delphi [-]
Type

  TMensaje = class
    procedure tecla_pulsada(Sender: TObject; var Key: Char);
    procedure se_mueve_mouse(Sender: TObject; Shift: TShiftState; X, Y: Integer);
  end;

Luego el procedure queda así:

Código Delphi [-]
procedure ShowPopup(const Msg: string; const TituloVentana : string);
var
  ventana : TForm;
  ProcMensaje : TMensaje;
begin
  ventana := CreateMessageDialog(Msg, mtCustom, []);
  ventana.Caption := TituloVentana;
  ProcMensaje := TMensaje.Create;
  with ventana do begin
    OnKeyPress := ProcMensaje.tecla_pulsada;
    OnMouseMove := ProcMensaje.se_mueve_mouse;
    Try
      ShowModal;
    Finally
      Free;
    End;
  end;
end;

Problema solucionada, gracias a todos por su colaboración, en verdad era todo muy simple!!!!

[Casimiro Notevi]

Puedes hacerlo como dices, creándolo en tiempo de ejecución, aunque también puedes tener tu form creado antes, en diseño, y capturando sus eventos de pulsación de teclas y movimiento de ratón.

[rarratia]

Tienes Razón, pero la idea era crear una función como ShowMessage, (si no existía en delphi y por eso pregunté) que estuviera en una unidad de utilidades y que puedas usarla solamente anexando dicha unidad. Saludos y muchas gracias!!!