
//---------------------------------------------------------------------------
#include <vcl.h>
#pragma hdrstop
//---------------------------------------------------------------------------
USEFILE("readme.txt");
USERES("colordlg.res");
USEFORM("mainform.cpp", FormClrDlg);
//---------------------------------------------------------------------
WINAPI WinMain(HINSTANCE, HINSTANCE, LPSTR, int)
{
try
{
Application->Initialize();
Application->CreateForm(__classid(TFormClrDlg), &FormClrDlg);
Application->Run();
}
catch (Exception &exception)
{
Application->ShowException(&exception);
}
return 0;
}
//-------------------------------------------------------------------------
//---------------------------------------------------------------------------
#include <vcl.h>
#pragma hdrstop
#include "mainform .h"
//---------------------------------------------------------------------------
#pragma resource "*.dfm"
TFormClrDlg *FormClrDlg;
//---------------------------------------------------------------------------
__fastcall TFormClrDlg::TFormClrDlg(TComponent* Owner)
: TForm(Owner)
{
}
//---------------------------------------------------------------------------
void __fastcall TFormClrDlg::ButtonClick(TObject *Sender)
{
if (ColorDialog->Execute())
{
Color = ColorDialog->Color;
}
}
//---------------------------------------------------------------------
VCL程序设计:颜色对话框与资源文件的应用
该篇博客主要展示了如何在VCL环境下使用`WinAPIWinMain`函数,初始化并运行应用程序。文中通过` TFormClrDlg`类实现了颜色对话框,并在用户点击按钮时调用`ColorDialog`进行颜色选择。此外,还涉及到资源文件`readme.txt`和`colordlg.res`的使用。
1452

被折叠的 条评论
为什么被折叠?



