unit frm_CloseOption;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, ExtCtrls, DBCtrls, cxGraphics,
cxControls, cxLookAndFeels, cxLookAndFeelPainters, cxContainer, cxEdit,
dxSkinsCore, dxSkinMcSkin, dxSkinOffice2010Silver, Menus, cxButtons,
cxCheckBox, cxGroupBox, cxRadioGroup;
Const
WM_GETHANDLE = WM_USER + 156;
type
TForm_CloseOption = class(TForm)
RadioGroup1: TcxRadioGroup;
ck_closeopt: TcxCheckBox;
btn_ok: TcxButton;
btn_Cancel: TcxButton;
procedure btn_OKClick(Sender: TObject);
procedure FormCreate(Sender: TObject);
procedure btn_CancelClick(Sender: TObject);
private
{ Private declarations }
DestHandle: THandle;
public
{ Public declarations }
procedure GetHandle(var Msg: TMessage); message WM_GETHANDLE;
end;
var
Form_CloseOption: TForm_CloseOption;
gbCanClose: Boolean
Delphi程序最小化到托盘
最新推荐文章于 2021-02-06 17:15:45 发布
本文详细介绍了如何在Delphi应用程序中实现窗口最小化到系统托盘的功能,通过使用Timer组件和ShellAPI,结合Integer类型和Forms单元,实现用户友好的交互体验。
摘要由CSDN通过智能技术生成