代码怎么写？点击窗体右上角的最小化按钮时隐藏这个窗体到任务栏，而不是隐藏到屏幕左下角

Question

代码怎么写？点击窗体右上角的最小化按钮时隐藏这个窗体到任务栏，而不是隐藏到屏幕左下角

Answer 1

procedure TSendDataToServer.WMSysCommand(var Message:TWMSysCommand);
begin
  if Message.CmdType =SC_MINIMIZE then
    begin
       visible:=false;
       application.ShowMainForm :=false;
    end
  else
    inherited;
end;

Answer 2

用SetWindowLong即可。自己到网上搜一下吧，必定你给的分太少，所以只能给你提示这些了。

Answer 3

1方法:
窗体的OnCloaseQuery事件中处理:
procedure TForm1.FormCloseQuery(Sender: TObject; var CanClose: Boolean);
begin
  CanClose := False;
  Application.Minimize;
end;
2方法:
Form1.BorderStyle := bsNone;  然后自己加关闭按钮实现.

Answer 4

《delphi应用程序开发精彩实例》 有详细介绍

Answer 5

又写了错别字....在窗体的OnCloseQuery中处理

Answer 6

unit unitFrmMain;interfaceuses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs, shellapi,
  Menus;
const
  mousemsg = wm_user + 1; //自定义消息，用于处理用户在图标上点击鼠标的事件
  iid = 100; //用户自定义数值，在TnotifyIconDataA类型全局变量ntida中使用type
  TForm1 = class(TForm)
    PopupMenu1: TPopupMenu;
    exit: TMenuItem;
    procedure FormCreate(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure exitClick(Sender: TObject);
  private
    { Private declarations }
                  //自定义消息处理函数，处理鼠标点击图标事件
    procedure mousemessage(var message: tmessage); message
      mousemsg;  public
    { Public declarations }
  end;var
  Form1: TForm1;
  ntida: TNotifyIcondataA;
  //用于增加和删除系统状态图标implementation{$R *.DFM}{ TForm1 }procedure TForm1.mousemessage(var message: tmessage);
var
  mousept: TPoint; //鼠标点击位置
begin
  inherited;
  if message.LParam = wm_rbuttonup then begin //用鼠标右键点击图标
      getcursorpos(mousept); //获取光标位置
      popupmenu1.popup(mousept.x, mousept.y);
      //在光标位置弹出选单
    end;
  if message.LParam = wm_lbuttonup then begin //用鼠标左键点击图标
      //显示应用程序窗口
      ShowWindow(Handle, SW_SHOW);
      //在任务栏上显示应用程序窗口
      ShowWindow(Application.handle, SW_SHOW);
      SetWindowLong(Application.Handle, GWL_EXSTYLE,
        not (GetWindowLong(Application.handle, GWL_EXSTYLE)
        or WS_EX_TOOLWINDOW and not WS_EX_APPWINDOW));
    end;
  message.Result := 0;
end;procedure TForm1.FormCreate(Sender: TObject);
begin
  ntida.cbSize := sizeof(tnotifyicondataa); //指定ntida的长度
  ntida.Wnd := handle; //取应用程序主窗体的句柄
  ntida.uID := iid; //用户自定义的一个数值，在uCallbackMessage参数指定的消息中使
  ntida.uFlags := nif_icon + nif_tip +
    nif_message; //指定在该结构中uCallbackMessage、hIcon和szTip参数都有效
  ntida.uCallbackMessage := mousemsg;
  //指定的窗口消息
  ntida.hIcon := Application.Icon.handle;
  //指定系统状态栏显示应用程序的图标句柄
  ntida.szTip := 'Icon';
  //当鼠标停留在系统状态栏该图标上时，出现该提示信息
  shell_notifyicona(NIM_ADD, @ntida);
  //在系统状态栏增加一个新图标end;procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
begin
  Action := caNone; //不对窗体进行任何操作
  ShowWindow(Handle, SW_HIDE); //隐藏主窗体
  //隐藏应用程序窗口在任务栏上的显示
  ShowWindow(Application.Handle, SW_HIDE);
  SetWindowLong(Application.Handle, GWL_EXSTYLE,
    not (GetWindowLong(Application.handle, GWL_EXSTYLE)
    or WS_EX_TOOLWINDOW and not WS_EX_APPWINDOW));
end;procedure TForm1.exitClick(Sender: TObject);
begin
  //为ntida赋值，指定各项参数
  ntida.cbSize := sizeof(tnotifyicondataa);
  ntida.wnd := handle;
  ntida.uID := iid;
  ntida.uFlags := nif_icon + nif_tip + nif_message;
  ntida.uCallbackMessage := mousemsg;
  ntida.hIcon := Application.Icon.handle;
  ntida.szTip := 'Icon';
  shell_notifyicona(NIM_DELETE, @ntida);
  //删除已有的应用程序图标
  Application.Terminate;
  //中断应用程序运行，退出应用程序end;end.

Answer 7

楼上的，我说的是最小化，不是关闭，怎么会用到FormCloseQuery事件？

Answer 8

上面有个写得很接近的, 改一下如下TForm 定义部分
protected
  procedure WMSysCommand(var Message:TWMSysCommand); message WM_SYSCOMMAND;实现部分
procedure TMainForm.WMSysCommand(var Message:TWMSysCommand);
begin
  inherited; // 始终让 windows 执行动作  if Message.CmdType = SC_MINIMIZE then  // 发现是最小化事件, 把任务栏的 Handle 隐藏
    ShowWindow(Application.Handle, SW_HIDE);
end;

Answer 9

我在四楼已经说了，用SetWindowLong一句话就可以解决。只是你给分太少，如果你是急用，你也不至于只给这么一点分，所以你肯定不是急用。

Answer 10

只是想實現可以最小化窗體而已吧
那么把窗體屬性該下就可以了，窗體默認的情況就可以最小化的
Form1.BorderStyle := bsNone;