Ventana emergente residente

[Casimiro Notevi]

Empezado por Casimiro Notevi

Pero exactamente qué es lo que necesitas.

Pero cómo, dónde, cuándo, por qué...

[mblascog]

Buenas Casemiro, el cuando? un programa residente que se dé una condición en base de datos, po ejemplo, que falta menos de un día, ....
Donde? Podría ser una ventana emergente en la parte inferior derecha de la pantalla, al igual que aparecen ventanas emergentes para actualizar un programa.
Por qué? es un recordatorio de tareas que hay que realizar, para que no se les pase.
Gracias

[Casimiro Notevi]

¿Por qué no sigues usando las RXlib?

[Neftali [Germán.Estévez]]

Alguna vez hemos hablado de este componente:
http://torry.net/quicksearchd.php?St....5.0&Title=Yes

En este hilo antiguo ya comentaron algo sobre él:
http://www.clubdelphi.com/foros/showthread.php?t=15263

Y aquí también; Incluso puedes ver alguna imagen de cómo quedaría.
http://www.clubdelphi.com/foros/showthread.php?t=64225

Por último, aquí se habla también de uno que tienen las JVCL, llamado JvDesktopAlert:
http://stackoverflow.com/questions/2...active-display

[mblascog]

Pero las RxLib ya están absoletas no? No han sido reemplazadas por las Jedi?

[Neftali [Germán.Estévez]]

Empezado por mblascog

Pero las RxLib ya están absoletas no? No han sido reemplazadas por las Jedi?

Se incluyeron en alguna versión de la JVCL, pero si no quieres instalar todos los componentes de las JVCL y quieres sólo utilizar las RxLib, puedes encontrar versiones que están funcionales con las últimas versiones de Delphi (Seatle 10 y Berlin 10.1).

Yo he probado y compilado las que puedes encontrar aquí:
http://neftali.clubdelphi.com/?p=545

Y las últimas (que no he probado personalmente) las puedes encontrar en esta página:
http://www.micrel.cz/RxLib/dfiles.htm

[[escafandra]]

Te muestro un ejemplo de como colocar una notificación en el SysTray con la API, el ejemplo viene de aquí:

Código Delphi [-]
unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, ShellAPI;

type
  TForm1 = class(TForm)
    Button1: TButton;
    Edit1: TEdit;
    Edit2: TEdit;
    Label1: TLabel;
    Label2: TLabel;
    procedure Button2Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

  TNotifyIconData = record
    cbSize: DWORD;
    Wnd: HWND;
    uID: UINT;
    uFlags: UINT;
    uCallbackMessage: UINT;
    hIcon: HICON;
    szTip: array [0..127] of AnsiChar;
    dwState: DWORD;
    dwStateMask: DWORD;
    szInfo: array [0..255] of AnsiChar;
    uTimeout: UINT;
    szInfoTitle: array [0..63] of AnsiChar;
    dwInfoFlags: DWORD;
  end;

// Ampliaciones para Vista
const NIIF_INFO    = $00000001;
const NIF_INFO     = $00000010;
const NIF_REALTIME = $00000040;
const NIF_SHOWTIP  = $00000080;
const NIIF_USER    = $00000004;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure ShowBalloon(Handle: THANDLE; Titulo, Texto: String);
var
  Data: TNotifyIconData;
begin
  ZeroMemory(@Data, sizeof(TNotifyIconData));
  Data.cbSize:= sizeof(TNotifyIconData);
  Data.uFlags:= NIF_ICON or NIF_INFO or NIF_REALTIME;
  Data.dwInfoFlags:= NIIF_INFO;
  lstrcpyn(Data.szInfoTitle, PCHAR(Titulo), 64-1);
  lstrcpyn(Data.szInfo, PCHAR(Texto), 256-1);
  Data.uTimeOut:= 1000;
  Data.Wnd:=  Handle;
  Shell_NotifyIcon(NIM_ADD, @Data);
  Shell_NotifyIcon(NIM_MODIFY, @Data);
  Shell_NotifyIcon(NIM_DELETE, @Data);
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
  ShowBalloon(Handle, Edit1.Text, Edit2.Text);
end;

end.

Muestro una imagen del diseño del formulario utilizado para este ejemplo.

También puedes definir tu propia ventana, como en este otro ejemplo donde uso una ventana desplegable translúcida de un color y posición definidos a voluntad para notificaciones.

Saludos.

[ecfisa]

Hola.

Como para sumar otro ejemplo, me acorde de este: ...Show Balloon Tips for the Tray Icon?

Saludos