for ii := Low(FIconSearch) to High(FIconSearch) do begin FIconSearch[ii] := TIcon.Create; FIconSearch[ii].Handle := LoadIcon(Hinstance,PChar('SEARCH' + IntToStr(ii))); end; with nid do begin cbSize := SizeOf(TNotifyIconData); Wnd := Handle; uID := 526; uFlags := NIF_MESSAGE OR NIF_ICON OR NIF_TIP; uCallbackMessage := WM_USER + 526; hIcon := FIconNormal. Handle; StrPCopy(szTip,'搜索服务器') end; Shell_NotifyIcon(NIM_ADD,@nid);procedure TfrmMain.timIconTimer(Sender: TObject); begin with nid do begin hIcon := FIconSearch[FIconPos].Handle; StrPCopy(szTip,'搜索服务器...') end; Shell_NotifyIcon(NIM_MODIFY,@nid); Inc(FIconPos); if FIconPos > High(FIconSearch) then FIconPos := Low(FIconSearch); end;
1stClass
begin
FIconSearch[ii] := TIcon.Create;
FIconSearch[ii].Handle := LoadIcon(Hinstance,PChar('SEARCH' + IntToStr(ii)));
end;
with nid do
begin
cbSize := SizeOf(TNotifyIconData);
Wnd := Handle;
uID := 526;
uFlags := NIF_MESSAGE OR NIF_ICON OR NIF_TIP;
uCallbackMessage := WM_USER + 526;
hIcon := FIconNormal. Handle;
StrPCopy(szTip,'搜索服务器')
end;
Shell_NotifyIcon(NIM_ADD,@nid);procedure TfrmMain.timIconTimer(Sender: TObject);
begin
with nid do
begin
hIcon := FIconSearch[FIconPos].Handle;
StrPCopy(szTip,'搜索服务器...')
end;
Shell_NotifyIcon(NIM_MODIFY,@nid);
Inc(FIconPos);
if FIconPos > High(FIconSearch) then
FIconPos := Low(FIconSearch);
end;
偶FORM最小化后,希望做到闪烁
不想用第三方控件