unit1.cpp

本书《C++Builder与WindowsAPI经典范例》附含配套光盘包括132个WindowsAPI函数及206个完整、可执行的实例

//---------------------------------------------------------------------------
#include <vcl.h>
#pragma hdrstop

#include "Unit1.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TForm1 *Form1;
//原<打开>对话框的说明文字代码-------------------------------------------
#define IDLOOKIN 1091
#define IDFILENAME 1090
#define IDFILETYPE 1089
//---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
    : TForm(Owner)
{
}
//---------------------------------------------------------------------------
//打开原<打开>对话框类型
void __fastcall TForm1::Button1Click(TObject *Sender)
{
OpenDlg = new TOpenDialog(this);
//将自定义OnShow函数指派给OpenDlg
OpenDlg->OnShow = AllOpenDlgShow;
OpenDlg->Title = "改变了的打开对话框";
OpenDlg->Execute();
delete OpenDlg;
}
//---------------------------------------------------------------------------
//自定义OnShow函数，改变说明文字
void __fastcall TForm1::AllOpenDlgShow(TObject *Sender)
{
//取得按钮的母窗口，再重设指定对象的标题文字