unit1.pas

Delphi高级界面特效制作百例源代码,这是随书源代码部分,不知可否

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  ComCtrls, ExtCtrls, StdCtrls, ToolWin, Menus, ShellApi;

const
   WM_MY_Notify=WM_USER+100;

type
  TForm1 = class(TForm)
    Image1: TImage;
    PopupMenu1: TPopupMenu;
    Show1: TMenuItem;
    hide1: TMenuItem;
    N2: TMenuItem;
    hejp1: TMenuItem;
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure FormCreate(Sender: TObject);
    procedure Show1Click(Sender: TObject);
    procedure hide1Click(Sender: TObject);
    procedure hejp1Click(Sender: TObject);

  private
    { Private declarations }
   TrayIcon : PNOTIFYICONDATA;
   Icon : TIcon;
  public
    { Public declarations }
    procedure NotifyIconClick(var msg : TMessage);
      Message WM_My_Notify;

  end;

var
  Form1: TForm1;

implementation


{$R *.DFM}


procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
begin
    Dispose(TrayIcon);
    Icon.Free;
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
    New(TrayIcon);
    TrayIcon.cbSize := SizeOf(TrayIcon^);
    TrayIcon.uID:=200;
    TrayIcon.wnd:=Handle;
    TrayIcon.uCallbackMessage:=WM_MY_Notify;
    TrayIcon.uFlags:=NIF_ICON+NIF_Tip+NIF_MESSAGE;
    TrayIcon.szTip := '任务栏图标';
    Icon := TIcon.Create;
    Icon.Assign(Image1.Picture);
    TrayIcon.hIcon := Icon.handle;
    Shell_NotifyIcon(NiM_ADD,TrayIcon);
end;

procedure TForm1.NotifyIconClick(var msg : TMessage);
 var p:TPoint;
begin
 try
     case msg.LParam of
      WM_RBUTTONDOWN:
        begin
         GetCursorPos(p);
         PopupMenu1.Popup(p.x,p.y);
        end;
     end;
 except
 end;
end;

procedure TForm1.Show1Click(Sender: TObject);
begin
     show;
     Show1.Enabled := False;
     Hide1.Enabled := True;
end;

procedure TForm1.hide1Click(Sender: TObject);
begin
     hide;
     Show1.Enabled := True;
     Hide1.Enabled := False;
end;

procedure TForm1.hejp1Click(Sender: TObject);
begin
     close;
end;

end.