如何把窗体缩小成任务栏上的图标？

Question

请各位高手帮忙！

Answer 1

unit Unit1;interfaceuses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, AppEvnts, ShellAPI;
const
  SERVER_TRAY_MESSAGE = WM_USER + 100;type
  TForm1 = class(TForm)
    ApplicationEvents1: TApplicationEvents;
    procedure ApplicationEvents1Minimize(Sender: TObject);
    procedure FormActivate(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure FormCreate(Sender: TObject);
  private
    { Private declarations }
    ServerTrayIconData : TNotifyIconData;    procedure ServerTrayMessage(var Message: TMessage); message SERVER_TRAY_MESSAGE;
  public
    { Public declarations }
  end;var
  Form1: TForm1;implementation{$R *.dfm}{ TForm1 }procedure TForm1.ServerTrayMessage(var Message: TMessage);
begin
  if Message.Msg = SERVER_TRAY_MESSAGE then
  begin
    case Message.LParam of
      WM_LBUTTONDBLCLK:
      begin
        if IsIconic(Application.Handle) then begin
          ShowWindow(Application.Handle, SW_NORMAL);
          SetForegroundWindow(Application.Handle);
        end;
      end;
    end;
  end;
end;procedure TForm1.ApplicationEvents1Minimize(Sender: TObject);
begin
  ShowWindow(Application.Handle, SW_HIDE);
end;procedure TForm1.FormActivate(Sender: TObject);
begin
  Application.Minimize;
end;procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
begin
  Shell_NotifyIcon(NIM_DELETE, @ServerTrayIconData);
end;procedure TForm1.FormCreate(Sender: TObject);
begin
  { 托盘 }
  ServerTrayIconData.cbSize := SizeOf(ServerTrayIconData);
  ServerTrayIconData.uFlags := NIF_ICON or NIF_TIP or NIF_MESSAGE;
  ServerTrayIconData.uID := UINT(Self);
  ServerTrayIconData.Wnd := Handle;
  ServerTrayIconData.hIcon := Application.Icon.Handle;
  ServerTrayIconData.szTip := '简单局域网聊天程序服务器端';
  ServerTrayIconData.uCallbackMessage := SERVER_TRAY_MESSAGE;
  Shell_NotifyIcon(NIM_ADD, @ServerTrayIconData);
end;end.

Answer 2

ljmanage(过客) 的方法没错。