【delphi开源代码栏目提醒】:网学会员为广大网友收集整理了,DaytimeServer.pas,希望对大家有所帮助!
unit DaytimeServer;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, IdBaseComponent, IdComponent, IdTCPServer, IdDayTimeServer,
Menus,Shellapi, IdTimeServer;
Const
wm_icb=wm_user + 1000;
type
TDaytimeform = class(TForm)
DaytimePopupMenu: TPopupMenu;
DaytimeExit: TMenuItem;
Adjust_IdTimeServer: TIdTimeServer;
procedure DaytimeExitClick(Sender: TObject);
procedure FormCreate(Sender: TObject);
private
TimeIcon:TNotifyIcondata;
procedure wmicb(Var msg:TMessage); Message wm_icb;
{ Private declarations }
public
{ Public declarations }
end;
var
DayTimeForm: TDaytimeform;
implementation
procedure TDayTimeForm.wmicb(Var msg:TMessage);
Var Mousepos:Tpoint;
begin
Case Msg.LParam of
wm_Lbuttonup: begin
GetCursorpos(Mousepos);
DayTimePopupMenu.Popup(Mousepos.X,Mousepos.Y);
end;
end;
end;
{$R *.dfm}
procedure TDaytimeform.DaytimeExitClick(Sender: TObject);
begin
Application.Terminate;
end;
procedure TDaytimeform.FormCreate(Sender: TObject);
begin
Adjust_IdTimeServer.Active:=True;
TimeIcon.cbSize:=Sizeof(TNotifyIcondata);
TimeIcon.wnd:=handle;
TimeIcon.uID:=1;
TimeIcon.uFlags:=nif_Message or nif_tip or nif_Icon;
TimeIcon.uCallbackMessage:=wm_icb;
TimeIcon.Sztip:='时间服务';
TimeIcon.hIcon:=Application.Icon.Handle;
Shell_NotifyIcon(nim_add,@TimeIcon)
end;
end.
上一篇:
DaySellUnit.pas
下一篇:
澳大利亚留学生英语会计案例分析报告:Blue Moon case study