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
[-]
uses ShellApi;
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;
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;
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;
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;
MostrarBalon('Titulo','Hola mundo');