{ Set a new hint, which is the tool tip for the shell icon. } procedure TTrayIcon.SetHint(const Hint: string); begin if fHint <> Hint then begin fHint := Hint; StrPLCopy(fData.szTip, Hint, SizeOf(fData.szTip) - 1); if Hint <> '''''''' then fData.uFlags := fData.uFlags or Nif_Tip else fData.uFlags := fData.uFlags andnot Nif_Tip; Changed; end; end;
{ Set a new icon. Update the system tray. } procedure TTrayIcon.SetIcon(Icon: TIcon); begin if fIcon <> Icon then begin fIcon.Assign(Icon); fData.hIcon := Icon.Handle; Changed; end; end;
{ When the user right clicks the icon, call DoMenu. If there is a popup menu, and if the window is minimized, then popup the menu. }
procedure TTrayIcon.DoMenu; var Pt: TPoint; begin if (fPopupMenu <> nil) andnot IsWindowVisible(Application.Handle) then begin GetCursorPos(Pt); fPopupMenu.Popup(Pt.X, Pt.Y); end; end;
procedure TTrayIcon.Click; begin if Assigned(fOnClick) then fOnClick(Self); end;
procedure TTrayIcon.DblClick; begin if Assigned(fOnDblClick) then fOnDblClick(Self); end;
procedure TTrayIcon.DoMouseMove(Shift: TShiftState; X, Y: Integer); begin if Assigned(fOnMouseMove) then fOnMouseMove(Self, Shift, X, Y); end;
procedure TTrayIcon.DoMouseDown(Button: TMouseButton; Shift: TShiftState; X, Y: Integer); begin if Assigned(fOnMouseDown) then fOnMouseDown(Self, Button, Shift, X, Y); end;
procedure TTrayIcon.DoMouseUp(Button: TMouseButton; Shift: TShiftState; X, Y: Integer); begin if Assigned(fOnMouseUp) then fOnMouseUp(Self, Button, Shift, X, Y); end;
{ When the application minimizes, hide it, so only the icon in the system tray is visible. } procedure TTrayIcon.Minimize; begin ShowWindow(Application.Handle, SW_HIDE); if Assigned(fOnMinimize) then fOnMinimize(Self); end;
{ Restore the application by making its window visible again, which is a little weird since its window is invisible, having no height or width, but that''''s what determines whether the button appears on the taskbar. }
procedure TTrayIcon.Restore; begin ShowWindow(Application.Handle, SW_RESTORE); if Assigned(fOnRestore) then fOnRestore(Self); end;
{ Allow Windows to exit by deleting the shell notify icon. } procedure TTrayIcon.EndSession; begin Shell_NotifyIcon(Nim_Delete, @fData); end;
注：本站部分文章源于互联网，版权归原作者所有！如有侵权，请原作者与本站联系，本站将立即删除！ 本站文章除特别注明外均可转载，但需注明出处！ [MinTao学以致用网] 
