C++快速开发例子1--AppEvents

原创已于 2022-06-04 09:06:04 修改 · 351 阅读

0 ·

CC 4.0 BY-SA版权

文章标签：

#c++ #p2p #linq

于 2022-06-04 09:00:48 首次发布

编程实例专栏收录该内容

25 篇文章

订阅专栏

这个博客详细展示了在C++环境下，如何使用VCL库来处理应用程序的各种事件，包括Action的执行和更新、窗口的激活与停用、异常处理、帮助提示、空闲状态、消息处理等。通过实例代码，解释了如何响应这些事件并记录事件日志。

1. Form设计

2. 源码

#include <vcl.h>
#pragma hdrstop

#include "main.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TAppEventForm *AppEventForm;
//---------------------------------------------------------------------------

void __fastcall TAppEventForm::ApplicationEventsActionExecute(
TBasicAction *Action, bool &Handled)
{
lbOther->Items->Add("Event OnActionExecute");
}
//---------------------------------------------------------------------------

void __fastcall TAppEventForm::ApplicationEventsActionUpdate(
TBasicAction *Action, bool &Handled)
{
lbActionUpdate->Items->Add("Event OnActionUpdate");
}
//---------------------------------------------------------------------------

void __fastcall TAppEventForm::ApplicationEventsActivate(TObject *Sender)
{
lbOther->Items->Add("Event OnActivate");
}
//---------------------------------------------------------------------------

void __fastcall TAppEventForm::ApplicationEventsDeactivate(TObject *Sender)
{
lbOther->Items->Add("Event OnDeactivate");
}
//---------------------------------------------------------------------------

void __fastcall TAppEventForm::ApplicationEventsException(TObject *Sender,
Exception *E)
{
lbOther->Items->Add("Event OnException: " + E->Message);
}
//---------------------------------------------------------------------------

bool __fastcall TAppEventForm::ApplicationEventsHelp(WORD Command, int Data,
bool &CallHelp)
{
lbOther->Items->Add("Event OnHelp");
return false;
}
//---------------------------------------------------------------------------

void __fastcall TAppEventForm::ApplicationEventsHint(TObject *Sender)
{
lbOther->Items->Add("Event OnHint");
}
//---------------------------------------------------------------------------

void __fastcall TAppEventForm::ApplicationEventsIdle(TObject *Sender,
bool &Done)
{
lbIdle->Items->Add("Event OnIdle");
}
//---------------------------------------------------------------------------

void __fastcall TAppEventForm::ApplicationEventsMessage(tagMSG &Msg,
bool &Handled)
{
lbOnMessage->Items->Add("X:=" + IntToStr(Msg.pt.x) + "|Y:=" + IntToStr(Msg.pt.y));
}
//---------------------------------------------------------------------------

void __fastcall TAppEventForm::ApplicationEventsMinimize(TObject *Sender)
{
lbOther->Items->Add("Event OnMinimize");
}
//---------------------------------------------------------------------------

void __fastcall TAppEventForm::ApplicationEventsShortCut(TWMKey &Msg,
bool &Handled)
{
lbOther->Items->Add("Event OnShortCut");
}
//---------------------------------------------------------------------------

void __fastcall TAppEventForm::ApplicationEventsRestore(TObject *Sender)
{

lbOther->Items->Add("Event OnRestore");
}
//---------------------------------------------------------------------------

void __fastcall TAppEventForm::ApplicationEventsShowHint(AnsiString &HintStr,
bool &CanShow, THintInfo &HintInfo)
{
lbOther->Items->Add("Event OnShowHint");
}
//---------------------------------------------------------------------------

void __fastcall TAppEventForm::MenuActionClick(TObject *Sender)
{
ShowMessage("Action executed");
}
//---------------------------------------------------------------------------

void __fastcall TAppEventForm::MenuExceptionClick(TObject *Sender)
{
char *sExceptionRaised = "This is an exception";
throw Exception(sExceptionRaised);
}
//---------------------------------------------------------------------------

void __fastcall TAppEventForm::ActionExecute(TObject *Sender)
{
ShowMessage("Action executed");
}
//---------------------------------------------------------------------------
__fastcall TAppEventForm::TAppEventForm( TComponent *Owner) : TForm(Owner)
{

}