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');