如何在Delphi中，实现如下功能

Delphi > VCL组件开发及应用
收藏 回复
[问题点数：50分，结帖人Ninputer]
更多帖子
私信 空间 博客
Ninputer
等级
本版专家分：41
勋章
Blank
微软MVP 2005年9月 荣获微软MVP称号
2004年9月 荣获微软MVP称号
Blank
蓝花 2002年2月 .NET技术大版内专家分月排行榜第三
结帖率 100%
按最小化按钮之后缩到任务栏的Sys Tray中，双击图标后，恢复原状？
关键是如何双击恢复原状，试过很多方法都不能实现
只看楼主 引用 举报 楼主 收起
展开阅读全文
更多帖子
私信 空间 博客
cobi
等级
本版专家分：41058
勋章
Blank
榜眼 2001年 总版技术专家分年内排行榜第二
Blank
金牌 2001年12月 总版技术专家分月排行榜第一
Blank
银牌 2001年11月 总版技术专家分月排行榜第二
Blank
红花 2001年12月 Delphi大版内专家分月排行榜第一
2001年11月 Delphi大版内专家分月排行榜第一
试一下使用trayicon控件，应当可以帮你解决问题
只看TA 引用 举报 #1得分 10
更多帖子
私信 空间 博客
sundayboys
等级
本版专家分：7662
勋章
Blank
红花 2001年1月 Windows专区大版内专家分月排行榜第一
Blank
蓝花 2001年1月 扩充话题大版内专家分月排行榜第三
建议你用一个Cooltrayicon的控键，在ONDClick事件中写，MainForm。show，至于trayicon要不要随便你了，那个控件可以到http://www.torry.net/vcl/system/trayicons/trayicon.zip下载到。
只看TA 引用 举报 #2得分 10
更多帖子
私信 空间 博客
Nicky_he
等级
本版专家分：1229
建议看看控件的源代码，这样效果比较好
只看TA 引用 举报 #3得分 0
更多帖子
私信 空间 博客
powerlee
等级
本版专家分：508
RXLIB里边有个TrayIcon控件封装了双击事件
只看TA 引用 举报 #4得分 0
更多帖子
私信 空间 博客
CrzWind
等级
本版专家分：135
这种东西到处都是呀，上面说的地址就可以找到哇，RX控件组里面也有这样的东西哦
别忘了加分哦
只看TA 引用 举报 #5得分 0
更多帖子
私信 空间 博客
cobi
等级
本版专家分：41058
勋章
Blank
榜眼 2001年 总版技术专家分年内排行榜第二
Blank
金牌 2001年12月 总版技术专家分月排行榜第一
Blank
银牌 2001年11月 总版技术专家分月排行榜第二
Blank
红花 2001年12月 Delphi大版内专家分月排行榜第一
2001年11月 Delphi大版内专家分月排行榜第一
我这里有个notifyicon的pas，加入到工程中即可实现托盘功能，给个email吧
只看TA 引用 举报 #6得分 0
更多帖子
私信 空间 博客
Ninputer
等级
本版专家分：41
勋章
Blank
微软MVP 2005年9月 荣获微软MVP称号
2004年9月 荣获微软MVP称号
Blank
蓝花 2002年2月 .NET技术大版内专家分月排行榜第三
哎，在网上搜索很久，也没找到。先谢了，不过有恢复后的窗体无法最小化的毛病
是怎么回事
只看TA 引用 举报 #7得分 0
更多帖子
私信 空间 博客
csdn72
等级
本版专家分：409
参考下面代码：
type
  TForm1 = class(TForm)
  private
    procedure WMSysCommand(var Message: TMessage); message WM_SYSCOMMAND;
    procedure WMBarIcon(var Message:TMessage);message WM_BARICON;

procedure TForm1.WMSysCommand(var Message:TMessage);
var
  lpData:PNotifyIconData;
begin
  if Message.WParam = SC_ICON then
  begin    //如果用户最小化窗口则将窗口    隐藏并在任务栏上添加图标
    lpData := new(PNotifyIconDataA);
    lpData.cbSize := 88;      //SizeOf(PNotifyIconDataA);
    lpData.Wnd := Form1.Handle;
    lpData.hIcon := Form1.Icon.Handle;
    lpData.uCallbackMessage := WM_BARICON;
    lpData.uID :=0;
    lpData.szTip := 'Samples';
    lpData.uFlags := NIF_ICON or NIF_MESSAGE or NIF_TIP;
    Shell_NotifyIcon(NIM_ADD,lpData);
    dispose(lpData);
    Form1.Visible := False;
  end
  else
  begin    //如果是其它的SystemCommand消息则调用系统缺省处理函数处理之。
    DefWindowProc(Form1.Handle,Message.Msg,Message.WParam,Message.LParam);
  end;
end;

procedure TForm1.WMBarIcon(var Message:TMessage);
var
  lpData:PNotifyIconData;
begin
  if (Message.LParam = WM_LBUTTONDOWN) then //把 WM_LBUTTONDOWN 改为双击的值就可以了，帮助里有，我忘了
  begin    //如果用户点击任务栏图标则将图标删除并回复窗口。
    lpData := new(PNotifyIconDataA);
    lpData.cbSize := 88;//SizeOf(PNotifyIconDataA);
    lpData.Wnd := Form1.Handle;
    lpData.hIcon := Form1.Icon.Handle;
    lpData.uCallbackMessage := WM_BARICON;
    lpData.uID :=0;
    lpData.szTip := 'Samples';
    lpData.uFlags := NIF_ICON or NIF_MESSAGE or NIF_TIP;
    Shell_NotifyIcon(NIM_DELETE,lpData);
    dispose(lpData);
    Form1.Visible := True;
  end;
end;
能完成你所要求的功能 
只看TA 引用 举报 #8得分 30
更多帖子
私信 空间 博客
Ninputer
等级
本版专家分：41
勋章
Blank
微软MVP 2005年9月 荣获微软MVP称号
2004年9月 荣获微软MVP称号
Blank
蓝花 2002年2月 .NET技术大版内专家分月排行榜第三
给分！
只看TA 引用 举报 #9得分 0
收起
收藏 回复
Ninputer

等级：

Blank
微软MVP 2005年9月 荣获微软MVP称号
2004年9月 荣获微软MVP称号
Blank
蓝花 2002年2月 .NET技术大版内专家分月排行榜第三
关注 私信 TA的帖子
在Delphi中编程实现中文输入的功能

Delphi被称为第四代编程语言，它具有简单、高效、功能强大的特点，它一直为广大程序设计员所青睐。 　一、背景介绍 　大家在使用计算机操作的时候，一般情况下输入中文似乎就是一件不可避免的事情了。不同的...

Delphi程序实现多语言功能

今天又一朋友咨询多语言切换功能,下面我分享多年实践总结出来的经验及代码,希望对你有帮助,我这里是使用INI文件来存取,你也可以用XML或其他等，使用只时需要在基类Form(用于继承)的FORMSHOW中另一句代码 ...

Delphi实现数据库查询编辑功能

Delphi实现数据库查询编辑功能

如何在Delphi中实现C语言中静态变量的功能

如何在Delphi中实现C语言中静态变量的功能 DELPHI编程2007-09-02 14:56:01阅读28评论0 字号：大中小 订阅 如何在Delphi中实现C语言中静态变量的功能   在函数（function）或过程（procedure...

在delphi中限制Form大小的实现方法

Delphi是一个功能十分强大...今天小编要给大家带来的一篇教程是：在delphi中限制Form大小的实现方法。 　大家可以看到在很多的应用程序里面都有Form的存在，那么大家知道什么叫做Form吗？相信大家都不再陌生吧，Form

delphi实现ado的高级功能

ADO是Microsoft存取通用源的标准引擎。ADO通过封装OLE DB而能够存取...下面，向大家介绍如何使用原生ADO对象的属性来实现ADO的高级功能。　ADO原生对象关系图：　Connection　Errors→Error　Command→Parameters→P...

Delphi实现点击按钮触发选择项， 进而实现不同的分支功能

1.实现按钮右击事件触发选择项 添加一个TPopupMenu控件，设置按钮的...添加一个TPopupMenu控件pm3，在按钮的Click事件中如下代码，即可完成左击出现选择项。 procedure TfrmMain.rzbtbtn3Click(Sender: TObject);...

用SPCOMM 在 Delphi中实现串口通讯

实现串口通讯，常用的几种方法为：使用控件如MSCOMM和SPCOMM，使用API函数或者在Delphi 中调用其它串口通讯程序。利用API编写串口通信程序较为复杂，需要掌握大量通信知识，其优点是可实现的功能更强大，应用面更...

Delphi VCL中DragDrop功能的底层实现

看完余又觉得不能光看，也该将自己的心得拿出来与大家分享，于是就边夜翻看VCL源码，终于将VCL如何实现DragDrop功能的过程弄个“基本明白”，其中可能会有不当之处，再加上小弟的文学水平也只是初中毕业，有些地方...

delphi实现全局快捷键的功能

 全局快捷键就是焦点不在这个系统时也管用的快捷键  1、首先需要注册快捷键 [delphi] view plain copy FShowkeyid := GlobalAddAtom('mykey_show');  //F12  RegisterHotKey...

Delphi 实现Ping命令

用Delphi实现智能化Ping命令功能 众所周知，Ping命令是Windows系统自带的一个针对TCP/IP协议的可执行命令， 其主要作用是通过发送数据包并接收应答信息来检测两台计算机之间的网络是否连通。 当网络出现故障时...

C#如何实现Delphi的abort功能

实现如下： ``` procedure Abort; procedure RaiseEAbort(ReturnAddr: Pointer); begin raise EAbort.CreateRes(@SOperationAborted) at ReturnAddr; end; asm POP EAX JMP RaiseEAbort end; ...

基于Delphi实现客户端服务端通信Demo

Delphi,Socket,ServerSocket,ClientSocket

delphi的拖拽功能实现

这次同事要实现图标互换的功能，让我帮忙看一下，于是趁机研究了一下拖拽事件，发现还是比较简单的 参考了http://topic.csdn.net/u/20081015/14/98eef84c-0d2f-43a7-aa82-eef7028ef4f7.html里3150379的回答 要做...

Delphi D10.X快速实现安卓状态栏沉浸模式

使用Delphi开发安卓APP时，我们经常想要实现状态栏沉浸样式，但这方面资料较少。目前 据我所查询资料了解的，这是在delphi中实现安卓沉浸最为方便、快捷、适配效果最好的方式。

Delphi中停靠技术的实现

综观市面上比较专业的各种软件，我们会发现大部分都提供窗体停靠的功能，特别象工具软件，基本上都或多或少有停靠功能。 自然，Delphi也支持停靠，而且她和VCL紧密结合，对于广大的Delphi程序员来说更是一大福音。...

在Delphi7中实现停靠功能

在Delphi7中实现停靠功能我们在使用Delphi7开发应用系统过程中经常需要使用子窗口在主窗口上停靠的功能，如果对这一部分不熟练时，通常会到CSDN等网站寻找各种相关的控件，或者参考Delphi自带的例程Docking，下面我...

Delphi 实现右下角任务栏功能

实现软件在右下角任务栏很简单，只需要使用TTrayIcon控件，代码只要一句就可以了。 指定托盘图标, 有几种用法: 1、设计时选择; 2、把一个 TIcon 对象给它; 3、使用当前程序图标: TrayIcon1.Icon := Application....

delphi Restful:客户端实现的四种方式及其比较

delphi Restful:客户端实现的四种方式 摘要： 一、NetHTTP技术体系： TNetHTTPClient; TNetHTTPRequest二、REST技术体系： TRESTClient; TRESTRequest; TRESTResponse; TRESTResponseDataSetAdapter三、Indy技术...

在Delphi中编辑res文件

然后在这个rc文件和图片拷贝到delphi安装路径的bin文件夹里面， 选中这两个文件，拉到“brc32.exe”文件上面，就会生产一个res格式的文件出来。 文件名称为跟rc文件的名称一样。 1．创建资源文件  首先创建一...

delphi中record的用法

在Delphi中的Record类型中，与之C语言对应的即是结构体类型（struct），也可能是为了符合C语言或C++程序员的习惯，对于它在Delphi中的应用存在的一些问题进行初步的说明。在Delphi中的记录体类型有两种方式定义 ...

在Delphi中使用C++对象

Delphi是市场上最好的RAD工具,但是现在C++占据着主导地位,有时针对一个...本文描述几种在Delphi代码中使用C++类的方法. Delphi is one of the greatest RAD tools on the market, but it in this currently C++-domin

DELPHI中鼠标的各种操作

在Delphi中几乎每个对象都具有反映鼠标控制的事件， 这些事件的主要功能包括改变鼠标指针的形状，移动、触发、拖动鼠标等。 鼠标控制的三个相关属性是Cursor、DragCursor、DragMode； 鼠标(拖拽)控制的三个对象...

delphi下如何实现如下功能？

delphi中的单元

使用单元可以把一个大型程序分成多个逻辑相关的模块，并用来创建在不同程序中使用的程序库。 8.1 Program单元 　Program单元就是Delphi中的项目文件。 　Program单元是一个特殊的单元，类似于C语言中的M

Delphi窗口分割并动态调节其大小,Splitter使用技巧

1,把窗口分成左右两部分，并且在运行中可以动态调节其相对大小，做法如下： 　1.在一个空白的Form中加入Panel1，Align设为alLeft。(也可根据实际情况设为alRight,alBottom或alTop)。 　2.在Form1的空白处加入一个...

在Delphi中动态地使用SQL查询语句

下面介绍如何在Delphi中实现这种功能。 在Delphi中，使用SQL查询语句的途径是:在窗体中置入TQuery构件，设置其 SQL属性的内容值，此内容为一个字符串数组，数组的每个值对应一行SQL查询语句。 可以在程序设计过程中...

2020年五一赛B题论文

自己做的五一赛论文，代码数据都在附录。本文针对股票投资组合问题进行了研究，建立了投资效用与多目标规划模 型，运用了历史模拟、灰色关联等方法，旨在确定股票投资组合策略。

波士顿房价预测数据及代码

本资源包含数据，代码，解释，相应的文件。代码是练习用的，文章中的代码都可以运行出来，是很好的一个练手项目。

2020-五一数学建模大赛C类问题饲料加工配比及优化.pdf

2020年，“51”数学建模C类问题，关于饲料配比问题以及加工优化方案。论文采用统计分析，建立了关于饲料加工的多目标优化模型。并利用蒙特卡罗算法对目标函数进行优化，解决了饲料加工质量最优配比问题并进行了成本控制。

相关热词 c# for step c#读取shp文件 c# 多个if c#上传图片到安卓的接口 c#中得到控件 c# 浏览器打开 调用 c# 绘制3维 c#酒店管理系统数据库 c#链接api c# 串口发送数据