> On Fri, 9 Jun 2000 12:05:44 -0700, "Borland" <gary.b...@tesco.net>
> wrote:

> First -- please change your name to something other than "Borland."
> It might be confusing to others.

> >This looks ugly and would like to eliminate it if possible. Thank
> you.

> As far as I know, this is a Windows bug.  I happens to me  in
> non-Delphi apps as well.  I don't know how to work around it.

> Nick Hodges -- TeamB
> Xapware Technologies
> Search the Newsgroups --
> http://www.xapxone.com./html/xaptips_search.htm

> If you have the lines of code somewhere exists a portion who tells:
> (I have this separate in one process)

> procedure TForm1.NotifyIcon(Value: Word);
> var
>   Data: TNotifyIconData;
> begin
>   Data.cbSize := SizeOf(Data);
>   Data.Wnd := Self.Handle;
>   Data.uId := 0;
>   Data.uFlags := NIF_MESSAGE or NIF_ICON or NIF_TIP;
>   Data.uCallbackMessage := WM_ICONMESSAGE;
>   Data.hIcon := Application.Icon.Handle;
>   StrPLCopy(Data.szTip, Hint, SizeOf(Data.szTip));
>   Shell_NotifyIcon(Value, @Data);
> end;

> To create a try icon this will be use like
>      NotifyIcon(NIM_ADD);

> So if you want to see disappear the icon when the program finish you need to
> add:

> procedure TForm1.FormDestroy(Sender: TObject);
> begin
>      NotifyIcon(NIM_DELETE);
> end;

> I hope this will help you