Programming Forums > Application Development > Delphi

JoseCardoso · Oct 16th, 2006, 10:44 AM

Hi, I�m trying to put my program as tray icon in a Taskbar of Windows, the Icon appears but when I try to use the mouse, he simply doesn�t work, this is code I�m using:

(Toggle Plain Text)

procedure TForm1.Button1Click(Sender: TObject);

var
  LTrayI : PNotifyIconData;

begin

  LTrayI.cbSize := SizeOf(LTrayI);
  LTrayI.Wnd := Application.Handle;
  LTrayI.uID := 1;
  LTrayI.uFlags := NIF_ICON or NIF_TIP or NIF_MESSAGE;
  LTrayI.uCallbackMessage := WM_LBUTTONDOWN;
  LTrayI.hIcon := Self.Icon.Handle;
  LTrayI.szTip := 'Tooltip test' + chr(0);

  Shell_NotifyIcon(NIM_ADD, LTrayI);

end;

Oct 16th, 2006, 10:44 AM	#1
JoseCardoso Newbie Join Date: May 2006 Posts: 4 Rep Power: 0	Shell_NotifyIcon Hi, I�m trying to put my program as tray icon in a Taskbar of Windows, the Icon appears but when I try to use the mouse, he simply doesn�t work, this is code I�m using: (Toggle Plain Text) procedure TForm1.Button1Click(Sender: TObject); var LTrayI : PNotifyIconData; begin LTrayI.cbSize := SizeOf(LTrayI); LTrayI.Wnd := Application.Handle; LTrayI.uID := 1; LTrayI.uFlags := NIF_ICON or NIF_TIP or NIF_MESSAGE; LTrayI.uCallbackMessage := WM_LBUTTONDOWN; LTrayI.hIcon := Self.Icon.Handle; LTrayI.szTip := 'Tooltip test' + chr(0); Shell_NotifyIcon(NIM_ADD, LTrayI); end; procedure TForm1.Button1Click(Sender: TObject); var LTrayI : PNotifyIconData; begin LTrayI.cbSize := SizeOf(LTrayI); LTrayI.Wnd := Application.Handle; LTrayI.uID := 1; LTrayI.uFlags := NIF_ICON or NIF_TIP or NIF_MESSAGE; LTrayI.uCallbackMessage := WM_LBUTTONDOWN; LTrayI.hIcon := Self.Icon.Handle; LTrayI.szTip := 'Tooltip test' + chr(0); Shell_NotifyIcon(NIM_ADD, LTrayI); end;

Thread Tools
Show Printable Version Email this Page
Display Modes
Switch to Linear Mode Switch to Hybrid Mode Threaded Mode

Currently Active Users Viewing This Thread: 1 (0 members and 1 guests)