如何做:点击窗体关闭按钮时,程序并不关闭,而是缩小到系统托盘里。

enxi 2004-08-27 02:05:21
如何让用户点击窗体右上角关闭按钮时,程序并不真正关闭,而是缩小到托盘;用户真正需要关闭程序时,只能点击程序窗体里的用于关闭的button.
谁能给我例子啊,如何做托盘,我已经有例子,只是不知道如何屏蔽这个关闭事件。
...全文
595 5 打赏 收藏 转发到动态 举报
AI 作业
写回复
用AI写文章
5 条回复
切换为时间正序
请发表友善的回复…
发表回复
shitianj 2004-08-27
  • 打赏
  • 举报
回复
procedure TfrmDataServer.FormCloseQuery(Sender: TObject;
var CanClose: Boolean);
begin
if not CanClose then
begin
Self.WindowState := wsMinimized;
Visible := False;
TrayIcon.HideMainForm;
end;
end;
qiujsh 2004-08-27
  • 打赏
  • 举报
回复
在FORM的CloseQuery事件中:
Application.MainForm.hide;
CanClose:=false;


procedure TFm_Main.WMQUERYENDSESSION(var msg: Tmessage);
begin
msg.result:=1;
Application.Terminate ;
end;
jinjazz 2004-08-27
  • 打赏
  • 举报
回复
unit Unit1;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs,shellapi, Menus;
const
mousemsg = wm_user + 1; //自定义消息,用于处理用户在图标上点击鼠标的事件
iid = 100; //用户自定义数值,在TnotifyIconDataA类型全局变量ntida中使用
type
TForm1 = class(TForm)
PopupMenu1: TPopupMenu;
exit1: TMenuItem;
procedure exit1Click(Sender: TObject);
procedure FormCreate(Sender: TObject);
procedure FormClose(Sender: TObject; var Action: TCloseAction);
private
{ Private declarations }
//自定义消息处理函数,处理鼠标点击图标事件
procedure mousemessage(var message: tmessage);
message mousemsg;
public
{ Public declarations }
end;

var
Form1: TForm1;
ntida: TNotifyIcondataA; //用于增加和删除系统状态图标
implementation

{$R *.dfm}
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.Exit1Click(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;

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,
GetWindowLong(Application.handle, GWL_EXSTYLE)
or WS_EX_TOOLWINDOW AND NOT WS_EX_APPWINDOW);
end;


end.

fengron 2004-08-27
  • 打赏
  • 举报
回复
procedure TfrmDataServer.FormCloseQuery(Sender: TObject;
var CanClose: Boolean);
begin
if not CanClose then
begin
Self.WindowState := wsMinimized;
Visible := False;
TrayIcon.HideMainForm;
end;
end;
TrayIcon是一个系统托盘组件,你搜搜
lh9823 2004-08-27
  • 打赏
  • 举报
回复
在FORM的CloseQuery事件中:
Application.Minimize;(最小化时可用到托盘控件达到目的)
CanClose:=false;
在关闭按钮中:
Application.Terminate;

5,928

社区成员

发帖
与我相关
我的任务
社区描述
Delphi 开发及应用
社区管理员
  • VCL组件开发及应用社区
加入社区
  • 近7日
  • 近30日
  • 至今
社区公告
暂无公告

试试用AI创作助手写篇文章吧