VC中OnCloseQuery() 是怎么实现的?

wdf1 2000-08-08 05:10:00

OnCloseQuery() 是怎么实现的? Class Wizard 中好象没有对应的消息 .

请讲的详细点。

...全文

98 4 打赏收藏转发到动态举报

写回复

4 条回复

切换为时间正序

请发表友善的回复…

发表回复

wdf1 2000-08-10

打赏
举报

回复

gz

wdf1 2000-08-08

打赏
举报

回复

在OnClose()中做可以, 但怎样在关闭 MDI MainFrame时根据MDIChildframe的情况来提醒是否
关闭子窗体.

土豆 2000-08-08

打赏
举报

回复

通过MFC的文档框架实现的，维护着一个m_IsDirty的变量

xubin_sh 2000-08-08

打赏
举报

回复

见WM_CLOSE

　关闭窗体时引发的事件：共有4个　　OnClose事件：窗体关闭时产生此事件，　　OnCloseQuery事件：窗体关闭时产生此事件　　OnDestory事件：窗体被删除前产生此事件　　OnDeactivate事件：窗体变为非激活状态时产生此事件

基于delphi7的闹钟系统 object frmMain: TfrmMain Left = 394 Top = 429 BorderIcons = [biSystemMenu, biMinimize] BorderStyle = bsSingle Caption = 'frmMain' ClientHeight = 203 ClientWidth = 544 Color = clBtnFace Font.Charset = GREEK_CHARSET Font.Color = clWindowText Font.Height = -11 Font.Name = 'Tahoma' Font.Style = [] OldCreateOrder = False Position = poDesktopCenter ShowHint = True OnCloseQuery = FormCloseQuery OnCreate = FormCreate PixelsPerInch = 96 TextHeight = 13 object gbAlarms: TGroupBox Left = 8 Top = 8 Width = 257 Height = 137 Caption = 'Alarms' TabOrder = 0 object lbAlarms: TListBox Left = 8 Top = 16 Width = 241 Height = 113 Cursor = crHandPoint Style = lbOwnerDrawFixed Color = clSkyBlue Font.Charset = GREEK_CHARSET Font.Color = clNavy Font.Height = -11 Font.Name = 'Tahoma' Font.Style = [] ItemHeight = 16 ParentFont = False TabOrder = 0 OnClick = lbAlarmsClick OnDblClick = lbAlarmsDblClick OnDrawItem = lbAlarmsDrawItem end end object gbDetails: TGroupBox Left = 272 Top = 8 Width = 265 Height = 137 Caption = 'Details' TabOrder = 1 object lblTime: TLabel Left = 9 Top = 16 Width = 31 Height = 13 Caption = 'Time:' Font.Charset = GREEK_CHARSET Font.Color = clWindowText Font.Height = -11 Font.Name = 'Tahoma' Font.Style = [fsBold] ParentFont = False end object lblMessage: TLabel Left = 9 Top = 56 Width = 53 Height = 13 Caption = 'Message:' Font.Charset = GREEK_CHARSET Font.Color = clWindowText Font.Height = -11 Font.Name = 'Tahoma' Font.Style = [fsBold] ParentFont = False end object edTime: TEdit Left = 8 Top = 30 Width = 249 Height = 21 Color = clMoneyGreen ReadOnly = True TabOrder = 0 end object memMessage: TMemo Left = 8 Top = 70 Width = 249 Height = 58 Color = clMoneyGreen ReadOnly = True ScrollBars = ssVertical TabOrder = 1 end end object gbActions: TGroupBox Left = 8 Top = 146 Width = 529 Height = 49 Caption = 'Actions' TabOrder = 2 object btnAlarm: TSpeedButton Left = 476 Top = 10 Width = 49 Height = 35 Cursor = crHandPoint Hint = 'Enable/Disable Alarm' AllowAllUp = True GroupIndex = 1 Caption = 'Alarm' Flat = True Font.Charset = GREEK_CHARSET Font.Color = clMaroon Font.Height = -11 Font.Name = 'Tahoma' Font.Style = [fsBold] Glyph.Data = { 36050000424D3605000000000000360400002800000010000000100000000100 0800000000000001000000000000000000000001000000000000000000000000 80000080000000808000800000008000800080800000C0C0C000C0DCC000F0CA A6000020400000206000002080000020A0000020C0000020E000004000000040 20000040400000406000004080000040A0000040C0000040E000006000000060 20000060400000606000006080000060A0000060C0000060E000008000000080 20000080400000806000008080000080A0000080C0000080E00000A0000000A0 200000A0400000A0600000A0800000A0A00000A0C00000A0E00000C0000000C0 200000C0400000C0600000C0800000C0A00000C0C00000C0E00000E0000000E0 200000E0400000E0600000E0800000E0A00000E0C00000E0E000400000004000 20004000400040006000400080004000A0004000C0004000E000402000004020 20004020400040206000402080004020A0004020C0004020E000404000004040 20004040400040406000404080004040A0004040C0004040E000406000004060 20004060400040606000406080004060A0004060C0004060E000408000004080 20004080400040806000408080004080A0004080C0004080E00040A0000040A0 200040A0400040A0600040A0800040A0A00040A0C00040A0E00040C0000040C0 200040C0400040C0600040C0800040C0A00040C0C00040C0E00040E0000040E0 200040E0400040E0600040E0800040E0A00040E0C00040E0E000800000008000 20008000400080006000800080008000A0008000C0008000E000802000008020 20008020400080206000802080008020A0008020C0008020E000804000008040 20008040400080406000804080008040A0008040C0008040E000806000008060 20008060400080606000806080008060A0008060C0008060E000808000008080 20008080400080806000808080008080A0008080C0008080E00080A0000080A0 200080A0400080A0600080A0800080A0A00080A0C00080A0E00080C0000080C0 200080C0400080C0600080C0800080C0A00080C0C00080C0E00080E0000080E0 200080E0400080E0600080E0800080E0A00080E0C00080E0E000C0000000C000 2000C0004000C0006000C0008000C000A000C000C000C000E000C0200000C020 2000C0204000C0206000C0208000C020A000C020C000C020E000C0400000C040 2000C0404000C0406000C0408000C040A000C040C000C040E000C0600000C060 2000C0604000C0606000C0608000C060A000C060C000C060E000C0800000C080 2000C0804000C0806000C0808000C080A000C080C000C080E000C0A00000C0A0 2000C0A04000C0A06000C0A08000C0A0A000C0A0C000C0A0E000C0C00000C0C0 2000C0C04000C0C06000C0C08000C0C0A000F0FBFF00A4A0A000808080000000 FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00FDFDFDFDFD00 0000000000FDFDFDFDFDFDFDFD0000AEAE1B1BAEAD0000FDFDFDFDFD00F75B5B F7F7AEAE1B1BF700FDFDFD00F707070707F7F7F7AEAEAEF700FDFD002FEFEFEF EFEFB7F7F7F7AE1B00FD00EFEF080808080807B7F7F7AEAEAD0000BF08080808 08080807B7F7F7AEAE0000BF08080808085B490807B7F7AE1B0000BFF6F60808 AD495252B6EFF7F71B000008F6F608A4490708A400A507F7AE000008F6F6A449 07080808B6AE07F7AE00FD0008F749070808080808EF075B00FDFD00F7F608F6 F6F6080808EF07F700FDFDFD00F70808F6F60808EF26F700FDFDFDFDFD000008 08BFBFBFEF0000FDFDFDFDFDFDFDFD000000000000FDFDFDFDFD} Layout = blGlyphTop ParentFont = False Spacing = 1 OnClick = btnAlarmClick end object bvSep1: TBevel Left = 296 Top = 16 Width = 2 Height = 25 Shape = bsLeftLine end object btnAdd: TBitBtn Left = 8 Top = 16 Width = 90 Height = 25 Caption = 'Add Alarm' TabOrder = 0 OnClick = btnAddClick Glyph.Data = { 36030000424D3603000000000000360000002800000010000000100000000100 1800000000000003000000000000000000000000000000000000FF00FFFF00FF FF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00 FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FF0F0F0F0F 0F0F0F0F0F0F0F0FFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FF FF00FFFF00FFFF00FF0F0F0F00C04400A33B00A33B008D310F0F0FFF00FFFF00 FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FF0F0F0F94FF9400 C04400B33F00A33B0F0F0FFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FF FF00FFFF00FFFF00FF0F0F0F94FF9400C04400C04400A33B0F0F0FFF00FFFF00 FFFF00FFFF00FFFF00FFFF00FFFF00FF0F0F0F0F0F0F0F0F0F0F0F0F94FF9400 C04400C04400A33B0F0F0F0F0F0F0F0F0F0F0F0FFF00FFFF00FFFF00FF353535 00C04400A33B00A33B00A33B00C04400C04400C04400A33B00A33B00A33B00A3 3B008D310F0F0FFF00FFFF00FF35353594FF9400C04400C04400C04400C04400 C04400C04400C04400C04400C04400B33F00A33B0F0F0FFF00FFFF00FF353535 94FF9400E05000C04400C04400C04400C04400C04400C04400C04400C04400C0 4400A33B0F0F0FFF00FFFF00FF5B5B5BBFFFD694FF9494FF9494FF94BFFFD600 C04400C04400C044BFFFD694FF9494FF9400C0440F0F0FFF00FFFF00FFFF00FF 5B5B5B35353535353535353594FF9400C04400C04400A33B0F0F0F0F0F0F0F0F 0F0F0F0FFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FF35353594FF9400 C04400C04400A33B0F0F0FFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FF FF00FFFF00FFFF00FF35353594FF9400E05000C04400A33B0F0F0FFF00FFFF00 FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FF5B5B5BBFFFD694 FF9494FF9400C0440F0F0FFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FF FF00FFFF00FFFF00FFFF00FF5B5B5B353535353535353535FF00FFFF00FFFF00 FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF 00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FF} end object btnEdit: TBitBtn Left = 104 Top = 16 Width = 90 Height = 25 Caption = 'Edit Alarm' TabOrder = 1 OnClick = btnEditClick Glyph.Data = { 36030000424D3603000000000000360000002800000010000000100000000100 1800000000000003000000000000000000000000000000000000FF00FFFF00FF FF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00 FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF 00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FF FF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00 FFFF00FFFF00FFFF00FFFF00FFFF00FF000000000000FF00FFFF00FFFF00FFFF 00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FF000000 37C84537C845000000FF00FFFF00FFFF00FFFF00FFFF00FFFF00FF000000FF00 FFFF00FFFF00FFFF00FF00000099E3A072D87C72D87C37C845000000FF00FFFF 00FFFF00FFFF00FF00000037C845000000FF00FFFF00FFFF00FF00000099E3A0 99E3A072D87C72D87C37C845000000000000FF00FFFF00FF00000072D87C37C8 45000000FF00FFFF00FFFF00FF68686800000099E3A099E3A099E3A072D87C72 D87C00000000000000000072D87C72D87C37C845000000FF00FFFF00FFFF00FF FF00FF68686800000000000099E3A099E3A099E3A099E3A099E3A072D87C72D8 7C72D87C37C845000000FF00FFFF00FFFF00FFFF00FFFF00FFFF00FF00000000 000000000000000000000099E3A072D87C99E3A0000000FF00FFFF00FFFF00FF FF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FF00000099E3A099E3 A0000000FF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF 00FFFF00FFFF00FF68686899E3A0000000FF00FFFF00FFFF00FFFF00FFFF00FF FF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FF000000FF00 FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF 00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FF FF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00 FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF 00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FF} end object btnDel: TBitBtn Left = 200 Top = 16 Width = 90 Height = 25 Caption = 'Del Alarm' TabOrder = 2 OnClick = btnDelClick Glyph.Data = { 36030000424D3603000000000000360000002800000010000000100000000100 1800000000000003000000000000000000000000000000000000FF00FFFF00FF FF00FF000000000000000000000000000000000000000000000000000000FF00 FFFF00FFFF00FFFF00FFFF00FFFF00FF00000073C88A72C48870BC846FB5826C AE7D6AA57A689E75679975679975000000FF00FFFF00FFFF00FFFF00FFFF00FF 00000073C88A72C38871BC846FB4816CAC7D6AA579689E756799756799750000 00FF00FFFF00FFFF00FFFF00FFFF00FF00000073C88A72C3876FBD846EB5806D AD7C6AA579689E76679975679975000000FF00FFFF00FFFF00FFFF00FFFF00FF 00000073C88A72C48871BD856EB4826DAC7C6AA57A689E756799756799750000 00FF00FFFF00FFFF00FFFF00FFFF00FF00000073C88A72C4886FBD846FB4816D AC7C6AA57A689E75679975679975000000FF00FFFF00FFFF00FFFF00FFFF00FF 00000073C88A72C48871BD856FB4826CAC7D6AA57A689E756799756799750000 00FF00FFFF00FFFF00FFFF00FFFF00FF00000073C88A72C38871BD836FB4816C AC7D6AA579689E76679975679975000000FF00FFFF00FFFF00FFFF00FF000000 10381B10381B10381B10381B10381B10381B10381B10381B10381B10381B1038 1B000000FF00FFFF00FFFF00FF0000007CD79479CA8F73BE8773BE8773BE8773 BE876AA57A6AA57A679975679975679975000000FF00FFFF00FFFF00FF000000 7CD7947CD79479CA8F73BE8773BE8773BE8773BE876AA57A6AA57A6799756799 75000000FF00FFFF00FFFF00FFFF00FF0000007CD7947CD7947CD79479CA8F73 BE8773BE8773BE876AA57A6AA57A000000FF00FFFF00FFFF00FFFF00FFFF00FF FF00FF6868680000007CD7947CD79479CA8F79CA8F79CA8F000000000000FF00 FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FF00000000000000 0000000000000000FF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FF FF00FFFF00FFFF00FFFF00FF000000D8E9EC000000FF00FFFF00FFFF00FFFF00 FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FF68686800 0000686868FF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FF} end object btnSettings: TBitBtn Left = 304 Top = 16 Width = 90 Height = 25 Caption = 'Settings' TabOrder = 3 OnClick = btnSettingsClick Glyph.Data = { 36050000424D3605000000000000360400002800000010000000100000000100 0800000000000001000000000000000000000001000000000000000000000000 80000080000000808000800000008000800080800000C0C0C000C0DCC000F0CA A6000020400000206000002080000020A0000020C0000020E000004000000040 20000040400000406000004080000040A0000040C0000040E000006000000060 20000060400000606000006080000060A0000060C0000060E000008000000080 20000080400000806000008080000080A0000080C0000080E00000A0000000A0 200000A0400000A0600000A0800000A0A00000A0C00000A0E00000C0000000C0 200000C0400000C0600000C0800000C0A00000C0C00000C0E00000E0000000E0 200000E0400000E0600000E0800000E0A00000E0C00000E0E000400000004000 20004000400040006000400080004000A0004000C0004000E000402000004020 20004020400040206000402080004020A0004020C0004020E000404000004040 20004040400040406000404080004040A0004040C0004040E000406000004060 20004060400040606000406080004060A0004060C0004060E000408000004080 20004080400040806000408080004080A0004080C0004080E00040A0000040A0 200040A0400040A0600040A0800040A0A00040A0C00040A0E00040C0000040C0 200040C0400040C0600040C0800040C0A00040C0C00040C0E00040E0000040E0 200040E0400040E0600040E0800040E0A00040E0C00040E0E000800000008000 20008000400080006000800080008000A0008000C0008000E000802000008020 20008020400080206000802080008020A0008020C0008020E000804000008040 20008040400080406000804080008040A0008040C0008040E000806000008060 20008060400080606000806080008060A0008060C0008060E000808000008080 20008080400080806000808080008080A0008080C0008080E00080A0000080A0 200080A0400080A0600080A0800080A0A00080A0C00080A0E00080C0000080C0 200080C0400080C0600080C0800080C0A00080C0C00080C0E00080E0000080E0 200080E0400080E0600080E0800080E0A00080E0C00080E0E000C0000000C000 2000C0004000C0006000C0008000C000A000C000C000C000E000C0200000C020 2000C0204000C0206000C0208000C020A000C020C000C020E000C0400000C040 2000C0404000C0406000C0408000C040A000C040C000C040E000C0600000C060 2000C0604000C0606000C0608000C060A000C060C000C060E000C0800000C080 2000C0804000C0806000C0808000C080A000C080C000C080E000C0A00000C0A0 2000C0A04000C0A06000C0A08000C0A0A000C0A0C000C0A0E000C0C00000C0C0 2000C0C04000C0C06000C0C08000C0C0A000F0FBFF00A4A0A000808080000000 FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00FDFDFDFDFDFD FDFDFDFDFDFDFDFDFDFDFDFDFDFD49FD494949FD49FDFDFDFDFDFDFDFD490749 F7F7F749AD49FDFDFDFDFDFD49F60707F7F7F7F7F7AD49FDFDFDFD490707F607 262F2FF7F7F7AD49FDFDFDFD49070826B7B7772FF7F749FDFDFDFD49F60726BF B752B7772FF7F749FDFDFD49F6F617BF52FD52B72FF7F749FDFDFD4907F617BF BF52B7B726F7F749FDFDFDFD4907F617BFBFBF26070749FDFDFDFD49070707F6 171726F6F6070749FDFDFDFD49070707F6080707F60849FDFDFDFDFDFD490749 07F607490749FDFDFDFDFDFDFDFD49FD494949FD49FDFDFDFDFDFDFDFDFDFDFD FDFDFDFDFDFDFDFDFDFDFDFDFDFDFDFDFDFDFDFDFDFDFDFDFDFD} end end object tmrAlarm: TTimer Enabled = False OnTimer = tmrAlarmTimer Left = 20 Top = 28 end end

系统关闭窗体的事件顺序为： OnCloseQuery ----> OnClose ----> OnDestroy下面的代码说明问题：unit Unit3;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs;t

原文地址：Delphi 中的常用事件作者：星云月序号事件描述 OnActive 焦点称到窗体或控件时发生 OnClick 鼠标单击事件 OnDbClick 鼠标双击事件 OnClose和OnCloseQuery 当关闭一个窗体时就会响应OnClose和OnCloseQuery事件，OnCloseQuery事件比OnClose具有更高的优先级。 OnContex...

C++ Builder2010窗体的生命周期是指窗体从创建到关闭的过程。在C++ Builder2010窗体的生命周期中，有以下五种事件发生。OnCreate发生在窗体被创建时。通常在此事件中进行初始化工作。OnShow发生在窗体显示出来时OnActivate发生在窗体被激活时OnCloseQuery发生在窗体尝试关闭时。通常在此事件中进行窗体关闭前的一些准备工作On...

16,471

社区成员

421,732

社区内容

发帖

与我相关

我的任务

社区管理员

加入社区

近7日
近30日
至今

加载中

查看更多榜单

社区公告

VC/MFC社区版块或许是CSDN最“古老”的版块了，记忆之中，与CSDN的年龄几乎差不多。随着时间的推移，MFC技术渐渐的偏离了开发主流，若干年之后的今天，当我们面对着微软的这个经典之笔，内心充满着敬意，那些曾经的记忆，可以说代表着二十年前曾经的辉煌……
向经典致敬，或许是老一代程序员内心里面难以释怀的感受。互联网大行其道的今天，我们期待着MFC技术能够恢复其曾经的辉煌，或许这个期待会永远成为一种“梦想”，或许一切皆有可能……
我们希望这个版块可以很好的适配Web时代，期待更好的互联网技术能够使得MFC技术框架得以重现活力，……

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

+ 用AI写文章