Jak dodac do Tray'a ikonę??

0

Mam kod ale coś w nim nie tak chyba że coś źle wpisałem:
with IconNotifyData do
begin
hIcon:=Application.Icon.Handle;
uCallbackMessage:=WM_USER+1;
cbSize:=SizeOf(IconNotifyData);
Wnd:=Handle;
uID:=100;
uFlags:=NIF_MESSAGE+NIF_ICON+NIF_TIP;
end;
StrPCopy(IconNotifyData.szTip, Application.Title);

Shell_NotifyIcon(NIM_ADD,@IconNotifyData);

Następnie uzupełnij procedure "WndProc" w taki oto sposób:

procedure TMainFrm.WndProc(var Msg : TMessage);
var
p : TPoint;
begin
if (Msg.Msg=WM_USER+1) and (Msg.lParam = WM_RBUTTONDOWN) then
begin
GetCursorPos(p);
TrayMenu.Popup(p.x, p.y);
end;
if Msg.LParam = WM_LBUTTONDOWN then
MainFrm.Show;

inherited;
end;

Shell_NotifyIcon(NIM_DELETE, @IconNotifyData);


No może jakiś zdolniak pomoże!! [cya] [hurra]

0

http://4programmers.net/view_faq.php?id=62
mash gotowiec i jak na dloni wystawiony kodzik mi on dziala

0

weź se z komponentu skorzystaj - szybciej i prościej...
Uprzedzając pytania: TCoolTrayIcon jest na 4p w dziale Download

1 użytkowników online, w tym zalogowanych: 0, gości: 1