谁能给我例子啊，如何做托盘，我已经有例子，只是不知道如何屏蔽这个关闭事件。
-
等级
本版专家分：0结帖率 96.84% -
如何让用户点击窗体右上角关闭按钮时，程序并不真正关闭，而是缩小到托盘；用户真正需要关闭程序时，只能点击程序窗体里的用于关闭的button.
谁能给我例子啊，如何做托盘，我已经有例子，只是不知道如何屏蔽这个关闭事件。展开阅读全文
-
等级
本版专家分：378 -
在FORM的CloseQuery事件中：
Application.Minimize;（最小化时可用到托盘控件达到目的）
CanClose:=false;
在关闭按钮中：
Application.Terminate;
-
等级
本版专家分：396
-
procedure TfrmDataServer.FormCloseQuery(Sender: TObject;
var CanClose: Boolean);
begin
if not CanClose then
begin
Self.WindowState := wsMinimized;
Visible := False;
TrayIcon.HideMainForm;
end;
end;
TrayIcon是一个系统托盘组件，你搜搜
-
等级
本版专家分：54329勋章
-
- 银牌 2005年2月 总版技术专家分月排行榜第二
-
-
微软MVP
2009年7月 荣获微软MVP称号
2010年7月 荣获微软MVP称号
2008年7月 荣获微软MVP称号
-
- 红花 2005年2月 Delphi大版内专家分月排行榜第一
-
-
黄花
2008年5月 .NET技术大版内专家分月排行榜第二
2008年4月 .NET技术大版内专家分月排行榜第二
2004年11月 Delphi大版内专家分月排行榜第二
2004年8月 Delphi大版内专家分月排行榜第二
2004年7月 Delphi大版内专家分月排行榜第二
-
-
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.
-
等级
本版专家分：9822 -
在FORM的CloseQuery事件中：
Application.MainForm.hide;
CanClose:=false;
procedure TFm_Main.WMQUERYENDSESSION(var msg: Tmessage);
begin
msg.result:=1;
Application.Terminate ;
end;
-
等级
本版专家分：1332 -
procedure TfrmDataServer.FormCloseQuery(Sender: TObject;
var CanClose: Boolean);
begin
if not CanClose then
begin
Self.WindowState := wsMinimized;
Visible := False;
TrayIcon.HideMainForm;
end;
end;
- CNN简单实战：pytorch搭建CNN对猫狗图片进行分类
上一篇文章介绍了使用pytorch的Dataset和Dataloader处理图片数据，现在就用处理好的数据对搭建的CNN进行训练以及测试
- 使用pytorch完成kaggle猫狗图像识别
碰巧最近入门了一门非常的深度学习框架：pytorch（如果你对pytorch不甚了解，请点击这里），所以今天我和大家一起用pytorch实现一个图像识别领域的入门项目：猫狗图像识别。 深度学习的基础就是数据，咱们先从数据...
- pytorch实现kaggle猫狗识别（超详细）
碰巧最近入门了一门非常的深度学习框架：pytorch（如果你对pytorch不甚了解，请点击这里），所以今天我和大家一起用pytorch实现一个图像识别领域的入门项目：猫狗图像识别。 深度学习的基础就是数据，咱们先从数据谈...
- 基于pytorch的猫狗分类
基于pytorch实现简单的猫狗分类。采用了全连接网络；可以用来了解数据加载过程，网络搭建、训练过程
- Pytorch--CNN实现kaggle猫狗大战(Dogs vs. Cats)
今天咱们来聊聊用Pytorch的CNN完成kaggle猫狗大战。 话不多说，进入正题。 首先，图片数据来源kaggle，在网站上搜索Dogs vs. Cats很多相关图片集，找一个下载下来。 我这里采用的数据集是： Train：4000张cat + ...
- 使用PyTorch实现CNN
使用PyTorch实现CNN 文章目录使用PyTorch实现CNN1. 导入所需包：2. 获取数据集2.1 获取数据集，并对数据集进行预处理2.2 获取迭代数据：`data.DataLoader()`3. 定义网络结构4. 定义损失和优化器`model.parmaters()`...
- 【Pytorch】基于CNN识别手写汉字的识别
原作者博客：「Pytorch」CNN实现手写汉字识别（数据集制作，网络搭建，训练验证测试全部代码） 在这先感谢大佬的无私分享，给我们这些小白提供了巨大的帮助！ 首先放上一些对下文理解有帮助的函数介绍，有像...
- CNN入门+猫狗大战(Dogs vs. Cats)+PyTorch入门
CNN入门+猫狗大战+PyTorch实现写在前面猫狗大战介绍CNN介绍卷积(convolution)池化(pooling)全连接(fully connected)一个简单的CNN网络设计PyTorch实现 写在前面 作为一个深度学习新手，参考了许多资料，进行了一些...
- pytorch vgg16 猫狗识别
第一次做猫狗识别的任务，遇到点问题记录一下： 主要是数据集的问题： 下载完猫狗数据集后，打开有两个文件夹分别是train和test。这两个文件夹中并没有子文件夹。直接将其导入 train_dataset = torchvision....
- pytorch CNN手写字体识别
## """CNN手写字体识别""" import torch import torch.nn as nn from torch.autograd import Variable import torch.utils.data as Data import torchvision #其中包括一些数据库（图片...） import matplotlib....
- PyTorch使用CNN对手写数字进行识别
MNIST数据集是学习各种神经网络的开胃菜。...上次我们采用的是MLP网络，这次使用CNN网络。 1. 准备工作 1.1 导包和设置随机种子 import torchvision import torchvision.datasets as datase...
- pytorch alexNet 进行猫狗识别
第一次做猫狗识别的任务，遇到点问题记录一下： 主要是数据集的问题： 下载完猫狗数据集后，打开有两个文件夹分别是train和test。这两个文件夹中并没有子文件夹。直接将其导入 train_dataset = torchvision....
- Pytorch详解NLLLoss和CrossEntropyLoss
pytorch的官方文档写的也太简陋了吧…害我看了这么久… NLLLoss 在图片单标签分类时，输入m张图片，输出一个m*N的Tensor，其中N是分类个数。比如输入3张图片，分三类，最后的输出是一个3*3的Tensor，举个例子： ...
- PyTorch：基于AlexNet的猫狗识别
猫狗识别是学习CNN中最有趣的一个应用，本次我在Kaggle上的“Dogs vs. Cats Redux”进行了一次尝试。考虑到训练速度和实验的简易性，我使用了比较简单的AlexNet，并且还用了对应ImageNet的预训练模型...
- 学习笔记：cnn 猫狗识别
版权声明：本文为博主原创文章，未经博主允许不得转载。 1.数据获取 本次学习的数据为，kaggle 中的 Dogs vs Cats 数据集 如果不清楚，kaggle，可以看一下，我前面写的这篇文章：...
- PyTorch：基于CNN的数字识别(MNIST)
之前尝试了直接使用全链接直接进行数字识别，效果虽然也说的过去，但是一旦使用我自己写的数字，预测的效果瞬间就不太行了。所以本次又尝试了一下使用卷积神经网络进行数字识别，需要注意的是本博客中的网络结构是...
- Pytorch+CNN 识别自己手写的数字
Pytorch+CNN 识别自己手写的数字 看了网上很多的手写数字识别的例子，发现都没有一个可以识别自己手写的例子，正好现在需要写一个例子，于是自己研究了一下，写出了 一个能识别自己手写的例子供大家参考。转载请注明...
- pytorch实现CNN手写数字识别（MNIST）
导入依赖包 import torch import numpy as np from torch.utils.data import DataLoader from torchvision.datasets import mnist from torch import nn from torch.autograd import Variable ...
- PyTorch绘制训练过程的accuracy和loss曲线
PyTorch、Caffe绘制训练过程的accuracy和loss曲线 衡量模型的好坏其实最重要的看的就是准确率与损失率，所以将其进行可视化是一个非常重要的一步。这样就可以直观明了的看出模型训练过程中准确率以及损失率的变化。...
- pytorch实现猫狗分类+数据集
数据集： Kaggle网站猫狗分类数据集，训练集包括12500张猫和12500张狗，测试集为12500张猫狗无标签图片，我们需要把训练集的猫狗照片各取出2500张作为验证集。 开始部分代码：导入一些必要的包，os包集成了一些对...
- pytorch搭建CNN速记
文章目录pytorch使用CNN总结如何定义数据定义常量定义变量如何定义模型快速搭建个性化搭建如何定义激活函数如何定义优化算法如何定义loss函数如何训练模型如何保存与读取模型保存读取如何进行批训练如何在单GPU上...
- pytorch使用RESNET训练识别图片
import torch from torch import nn from torch.nn import functional as F from torch.utils.data import DataLoader from torchvision import datasets from torchvision import transforms from torch import nn,...
- 使用Pytorch搭建CNN
文章目录卷积卷积层GPUCNN(卷积神经网络)一个简单的CNN准备数据与训练模型ResNet改变学习率SEVgg 卷积 下面的conv函数实现了对二维单通道图像的卷积.考虑输入的卷积核kernel的长宽相同,padding为对图像的四个边缘补...
- 利用Pytorch进行CNN详细剖析
转载请注明出处：利用Pytorch进行CNN详细剖析 （乐投网 - 大数据，人工智能第一干货网） 本文缘起于一次CNN作业中的一道题，这道题涉及到了基本的CNN网络搭建，在MNIST数据集上的分类结果，Batch Normalization...
- 「Pytorch」CNN实现手写汉字识别（数据集制作，网络搭建，训练验证测试全部代码）
之前毕业设计用TensorFlow做了手写汉字识别，使用的中科院的数据集。 现在用Pytorch复现一下。 下载链接在文末
- pytorch loss function 总结
最近看了下 PyTorch 的损失函数文档，整理了下自己的理解，重新格式化了公式如下，以便以后查阅。 值得注意的是，很多的 loss 函数都有 size_average 和 reduce 两个布尔类型的参数，需要解释一下。因为一般损失...
- pytorch使用CNN实现MNIST手写体的识别
**MNIST数据集介绍：**MNIST数据集在torvision.datasets里面，可以自行加载，其中训练集有6W张，测试集有1W，都为灰度图，即channel为1，图片的大小都是28x28，下面图片就是一部分数据。 导入工具包 import ...
- PyTorch: CNN实战MNIST手写数字识别
PyTorch: CNN实战MNIST手写数字识别cnn导包加载数据构造CNN训练并计算损失结果 cnn 卷积神经网络CNN的结构一般包含这几个层： 输入层：用于数据的输入 卷积层：使用卷积核进行特征提取和特征映射 激励层：由于...
- PyTorch 入门实战（五）——2013kaggle比赛 猫狗大战的实现
承接上一篇：PyTorch 入门实战（四）——利用Torch.nn构建卷积神经网络 PyTorch入门实战 1.博客：PyTorch 入门实战（一）——Tensor 2.博客：PyTorch 入门实战（二）——Variable 3.博客：PyTorch 入门实战（三...
- pytorch 猫狗大战
pytorch 迁移学习 猫狗大战 kaggle