Balón de texto de Windows.

[[seoane]]

Hola fide, según creo la versión de delphi que utilizas no cuenta con ningún componente como el que necesitamos, aunque no estoy seguro porque nunca he trabajado con esa versión. De todas formas si es un componente lo que buscas, seguro que en esta pagina encontraras varios http://www.torry.net/

Ahora bien, si lo quieres crear por código, no resulta muy difícil:

Código Delphi [-]
// Lo primero es añadir ShellApi a las uses
uses ShellApi;

// Y el tipo TNOTIFYICONDATA que ne versiones anteriores no esta completo
type
  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;

//Para crearalo
procedure TForm1.FormCreate(Sender: TObject);
var
  Data: TNOTIFYICONDATA;
begin
  FillChar(Data,Sizeof(Data),0);
  with Data do
  begin
    cbSize:= Sizeof(Data);
    Wnd:= Handle;
    uID:= 100;
    uFlags:= NIF_ICON;
    hIcon:= Application.Icon.Handle;
  end;
  Shell_NotifyIcon(NIM_ADD,@Data);
end;

// Para destruirlo
procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
var
  Data: TNOTIFYICONDATA;
begin
  FillChar(Data,Sizeof(Data),0);
  with Data do
  begin
    cbSize:= Sizeof(Data);
    Wnd:= Handle;
    uID:= 100;
  end;
  Shell_NotifyIcon(NIM_DELETE, @Data);
end;

// Para mostrar un mensaje
procedure TForm1.MostrarBalon(Titulo, Texto: String);
var
  Data: TNOTIFYICONDATA;
begin
  FillChar(Data,Sizeof(Data),0);
  with Data do
  begin
    cbSize:= Sizeof(Data);
    Wnd:= Handle;
    uID:= 100;
    uFlags:= NIF_ICON or NIF_INFO;
    hIcon:= Application.Icon.Handle;
    StrLCopy(szInfoTitle,PChar(Titulo),Sizeof(szInfoTitle)-1);
    StrLCopy(szInfo,PChar(Texto),Sizeof(szInfo)-1);
    dwInfoFlags:= NIIF_INFO;
  end;
  Shell_NotifyIcon(NIM_MODIFY,@Data);
end;

// Por ejemplo
MostrarBalon('Titulo','Hola mundo');

[fide]

Hola seoane, tu siempre ayudando man. Muchas gracias. Todo me fue de marabillas. El unico detalle es que en la función que me disate no me mostraba los icono. Alberto me ayudo en eso y me dio todas las constantes apara los íconos de los balones. Muchas gracias de nuevo y

== Felíz Año Nuevo man y suerte ==

[Alcolea]

Empezado por fide

Hola seoane, tu siempre ayudando man. Muchas gracias. Todo me fue de marabillas. El unico detalle es que en la función que me disate no me mostraba los icono. Alberto me ayudo en eso y me dio todas las constantes apara los íconos de los balones. Muchas gracias de nuevo y

== Felíz Año Nuevo man y suerte ==

Amigo fide, como a ti me sucede que hay problemas con los iconos, ¿
cuales son esas constantes, por favor?

[[seoane]]

No comprendo, cuando decís que no muestra los iconos ¿de que iconos estáis hablando?. Solo es curiosidad, porque a mi el código que puse me funciona perfectamente.

[roman]

Al parecer en Delphi7- no sólo la estructura TNotifyIcon está incompleta para la versión más reciente del shell, sino que también se omiten algunas constantes que usas en tu código. Supongo que es a lo que se refieren e imagino que fide olvidó compartirlo ("regaño" suave para fide ).

Estas son las constantes:

Código Delphi [-]
const
  NIF_INFO = $10;

  NIIF_NONE = $0;
  NIIF_INFO = $1;
  NIIF_WARNING = $2;
  NIIF_ERROR = $3;
  NIIF_USER = $4;
  NIIF_NOSOUND = $10;

// Saludos

[[seoane]]

Empezado por roman

Al parecer en Delphi7- no sólo la estructura TNotifyIcon está incompleta para la versión más reciente del shell, sino que también se omiten algunas constantes que usas en tu código.

Es verdad, no me acorde de incluir las constantes. Y eso que un tema anterior, si que me acordaba de incluirlas.

[[Lepe]]

Dependerá del componente, hay algunos que pueden suplantar el OnHint de delphi, quizás sea el mejor momento para mostrarlo.

Por código, suelo usarlo para mostrar errores / información / aviso a los usuarios, olvidando el MessageBox y el ShowMessage.

Saludos

[Alcolea]

Debe faltar algo que no he puesto, pero no me funciona lo del balón con el ejemplo que pusiste, más bajé los componentes que sujeriste y es con esto con lo que puedo hacer lo del balón. (no sale el balón pero si el icono)

Seguiré intentando, gracias por la ayuda.

[Alcolea]

Un último consejo sobre esto del balón, ¿en que evento aconsejaría usarlo, por ejemplo, para un Edit ? lo he probado con OnMouseMove, OnMouseDown y otros, y todos me resultan molestos ya que al menos estos dos que menciono se repiten constantemente cada ves que se trata de acceder al control por el usuario.