Delphi最小化窗体的两种方法

最新推荐文章于 2018-07-17 20:13:00 发布
原创 最新推荐文章于 2018-07-17 20:13:00 发布 · 2.5k 阅读 · 0 ·
CC 4.0 BY-SA版权
版权声明：本文为博主原创文章，遵循 CC 4.0 BY-SA 版权协议，转载请附上原文出处链接和本声明。
文章标签：

#delphi

本文介绍了通过两种不同方式实现窗口最小化的具体方法。一种是使用wm_SysCommand及参数sc_Minimize发送消息来实现；另一种是直接设置窗口的状态为最小化状态。这两种方法均可应用于Delphi等类似的开发环境中。

1. 利用wm_SysCommand及参数sc_Minimize:

procedure TForm1.ImgBtnMiniClick(Sender: TObject);
begin
    SendMessage(handle, wm_SysCommand, sc_Minimize, 0);
end;

2. 利用WindowState:

procedure TForm1.ImgBtnMiniClick(Sender: TObject);
begin
  ImgBtnMini.Cell := 1;
  Form1.WindowState := wsMinimized;
end;

delphi 窗体的最大化最小化正常化以及加载图片
01-24
delphi 实现窗体的最大化，最小化还有正常化。还有加载图片。加载图片先创建GDI+对象，再获得图片数据，最后绘制图片。
Delphi 实现最小化托盘控件
12-11
Delphi 实现最小化托盘控件，压缩包中附带实例！
Delphi窗体最小化
Newweapon's Trace
06-03 1780
1. 把子窗体最小化到屏幕左下角 ShowWindow(Form1.Handle,SW_MINIMIZE); 或 windowstate:=wsMinimize; 2. 把整个程序最小化到任务栏 application.Minimize; 3. 最小化到托盘图标 使用控件，比如CoolTrayIcon
Delphi: 模态窗体最小化
weixin_30325487的博客
07-17 366
源起： 近期所介入的几个项目中，最后视频生成窗体，为一模态对话框。因生成时间可能较长，所以其窗体可以最小化，它最小化时同时最小化主程序，唤醒时主程序再复原。 代码亦是8年前本人所写，一直那样用了，也没什么不妥，但总感觉显示效果有优化空间，回头看看当初代码少了些简练。于是用些时间做些验证，寻得相对好点的优化方案。 1、最初实现： 方式是接管模态窗体WM_SYSCOMMAND消息，拦截S...
Delphi 7下最小化到系统托盘
热门推荐
无幻
05-11 1万+
在Delphi 7下要制作系统托盘，只能制作一个比较简单的系统托盘，因为ShellAPI文件定义的TNotifyIconData结构体是比较早的版本。
Delphi实现窗体禁止最小化功能的源码解析
3. **消息处理**：在Delphi中，窗体的很多行为，包括最小化、最大化、关闭等，都是通过消息驱动的。`Msg.CmdType`即是指窗体接收到的消息类型，其值为`SC_MINIMIZE`时代表最小化消息，`SC_RESTORE`代表恢复原大小的...
delphi 窗体最大化 在最上面
最新发布
07-23
在 Delphi 中实现窗体**最大化**并**全局置顶**（在所有窗口最上层显示）可通过以下两种方法实现： #### 方法一：使用 Windows API 函数（推荐） ```delphi uses Windows; // 添加 Windows 单元 procedure TForm1....
Delphi主窗体与子窗体编程入门源码示例
Delphi 支持两种主要的窗体模式：非模态（non-modal）和模态（modal）。非模态窗体允许用户在不关闭该窗体的情况下操作其他窗体，常用于工具窗口；而模态窗体则会阻塞父窗体的操作，直到其被关闭，适用于需要用户...
《可视化程序设计：Delphi》窗体标题栏属性详解
2. **Icon属性**：Icon属性允许设置窗体的图标，这通常是在窗口最小化时在任务栏上显示的小图标。可以为窗体分配一个图标资源，以增强其视觉识别度。 3. **Top和Left属性**：这两个属性决定了窗体左上角相对于屏幕...
Delphi常见问题及窗体控制技巧解析
从标签信息可以看出，该文档重点关注的关键技术点包括：Application.CreateForm、Show、Update、Free、OnCreate事件、GetTickCount函数以及窗体的显示模式（如最小化wsMinimized、最大化wsMaximized）等。...
让窗体始终最大化（不能最小化）的Delphi实现..rar
05-12
让窗体始终最大化（不能最小化）的Delphi实现..rar
Delphi源码精讲：程序最小化运行及托盘图标+菜单实例..rar
04-20
Delphi源码精讲：程序最小化运行及托盘图标+菜单实例..rar`
Delphi 显示最小化窗体隐藏在任务栏中显示图标和进程名
FOOLCODE的专栏
01-15 2058
显示最小化窗体隐藏在任务栏中显示图标和进程名
Delphi 自定义窗体（最大化、最小化、关闭、窗体的移动）
xiongmao000738
09-19 8928
Uses ShellAPI;  1、//最小化 procedure TForm1.btn1Click(Sender: TObject); var   I, J, X, Y: Word; begin   //第一种：最小化在屏幕的左下角 ，不是常见的最小化  // W
delphi中最小化其他程序及所有程序最小化
crkres9527
07-08 2505
1.所有程序最小化 uses ComObj; var    shell : OleVariant; begin    shell := CreateOleObject('Shell.Application');   shell.minimizeAll; end; 2.最小化其他程序 spy++ 查找要最小化的程序classname var I
Delphi 主窗体最小化, 从窗体保持大小的方法
kinki的博客
07-03 602
Delphi7+win7实测可用 方法:截取窗口的'最小化'消息,取代原代码执行 type .............     procedure WMSysCommand(var Message: TWMSysCommand);message WM_SYSCOMMAND;//在type下加入这一段(引入控件)   private     { Private declarations
Delphi 最小化程序到任务栏托盘 增加右键PopMenu
雅荷沁兰的专栏
04-02 5368
在做中间层时，中间层往往不需要点击关闭时立刻关闭，而是最小化到托盘。故而特意隐藏关闭按钮功能。        1）隐藏退出功能 用PopMenu退出菜单代替              1.增加popMenu退出菜单，绑定到窗体              2.增加变量控制是否真的退出b_isClose;//True 退出 False 不退出              3.初始化b_i
windows消息控制窗口最大化最小化
zi_wu_xian的专栏
04-24 7460
var hwnd: hwnd;//句柄 PostMessage(hwnd,WM_SYSCOMMAND, SC_MINIMIZE,0); //最小化 PostMessage(hwnd,WM_SYSCOMMAND, SC_MAXIMIZE,0);//最大化 PostMessage(hwnd,WM_SYSCOMMAND, SC_CLOSE,0);//关闭 窗口最小化时将释放占用的资源
Delphi中如何让窗口最小化至系统托盘
javazhuanzai的专栏
02-01 494
====================================================== 注：本文源代码点此下载 ====================================================== 很多人认为delphi是一个rad工具,包括我本人在上学的时候对delphi也有偏见,现在走出了“象牙塔”,涉及的面广了,遇到的问题多了,慢慢地也
评论
成就一亿技术人!
拼手气红包6.0元
还能输入1000个字符
 
红包 添加红包
表情包 插入表情
表情包 代码片
 条评论被折叠 查看
添加红包

请填写红包祝福语或标题

个

红包个数最小为10个

元

红包金额最低5元

当前余额3.43元 前往充值 >
需支付：10.00元
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付元
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明：

1.余额是钱包充值的虚拟货币，按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载，可以购买VIP、付费专栏及课程。

余额充值