アクセスメソッドとは、プロパティの読み書きを行った際に呼び出されるメソッドのことを意味します。

アクセスメソッドには、readメソッド、writeメソッドの２種類があり、readメソッドは命名規則により、プロパティ名の先頭に Getを付けた名称、writeメソッドは Setを付けた名称で宣言します。

readメソッドは、パラメータを持たずプロパティと同じ型の値を返し、writeメソッドは、プロパティに値を書き込んだときに動作する任意の処理を記述することができます。

それでは、TEditExにプロパティを追加してみましょう。

作成するプロパティは TextBoldという名前のプロパティで、プロパティの型は boolとします。

値が trueであれば Editの中に入力された文字のフォントを Boldにするという簡単なプロパティです。

作業を行うために、[ファイル|プロジェクトを開く]で、作成した EditExpackage.cbprojを選びプロジェクトを開きます。

ヘッダーファイル EditEx.h を以下のように記述します。

//---------------------------------------------------------------------------
#ifndef EditExH
#define EditExH
//---------------------------------------------------------------------------
#include <SysUtils.hpp>
#include <Classes.hpp>
#include <Controls.hpp>
#include <StdCtrls.hpp>
#include <Graphics.hpp>
//---------------------------------------------------------------------------
class PACKAGE TEditEx : public TEdit
{
private:
  bool FTextBold;
protected:
  virtual void __fastcall SetTextBold(bool Value);
public:
    __fastcall TEditEx(TComponent* Owner);
__published:
  __property bool TextBold={read=FTextBold, write=SetTextBold};

};
//---------------------------------------------------------------------------
#endif

ここで追加されたのは、

• Fontを扱うため includeに Graphics.hppを追加
• privateに、このプロパティの値を格納するデータメンバ FTextBoldの宣言
• protectedに、writeアクセスメソッド SetTextBoldの宣言
• 設計時にオブジェクトインスペクタで編集が可能なように、__publishedに __propertyを追加し、プロパティ名(TextBold)、プロパティの型(bool)、readアクセスメソッド(FTextBold)、writeアクセスメソッド(SetTextBold)を宣言

となります。

宣言された内容に対して EditEx.cppファイルに以下の処理を記述します。

//---------------------------------------------------------------------------

#include <vcl.h>

#pragma hdrstop

#include "EditEx.h"
#pragma package(smart_init)
//---------------------------------------------------------------------------
// ValidCtrCheck を使用して，作成済みコンポーネントに
// 純粋仮想関数がないことを確認。
//

static inline void ValidCtrCheck(TEditEx *)
{
    new TEditEx(NULL);
}
//---------------------------------------------------------------------------
__fastcall TEditEx::TEditEx(TComponent* Owner)
    : TEdit(Owner)
{
    Color = clSkyBlue;
}
//---------------------------------------------------------------------------
void __fastcall TEditEx::SetTextBold(bool Value)
{
    FTextBold = Value;
    if (Value)
         Font->Style = Font->Style << fsBold;
    else
         Font->Style = Font->Style >> fsBold;
}
//---------------------------------------------------------------------------
namespace Editex
{
    void __fastcall PACKAGE Register()
    {
         TComponentClass classes[1] = {__classid(TEditEx)};
         RegisterComponents(L"Samples", classes, 0);
    }
}
//---------------------------------------------------------------------------

コンストラクタの処理は既に前の項で追加されていますので、ここでは writeアクセスメソッドである SetTextBoldの処理が追加されているだけとなります。

SetTextBoldでは、プロパティにセットされた値(Value)をデータメンバ(FTextBold)に格納し、その値が trueであれば、フォントを Boldに設定し、falseであれば Boldをリセットするという処理を行っています。

コードの記入がすべて終了しましたら、メニューの [ファイル|すべて保存]を実行してコードを保存し、メニューの[プロジェクト|EditExPackageを再構築]を選び、パッケージの再コンパイル・再構築を行います。

これで TEditExにプロパティ TextBoldが追加されました。コンポーネントの動作を確認するために、先程と同様に、このパッケージを再インストール、すべて保存して新規にアプリケーションを作成し、フォーム上に TEditExコンポーネントを置きます。オブジェクトインスペクタを開くと、プロパティに TextBoldが追加されているのが確認できます。

Hide image

TextBoldプロパティの値を trueにセットすると、フォーム上の TEditEx内の文字のフォントが Boldに変化します。

Hide image

TEditExに公開されていない標準イベントを追加してみましょう。

今回は OnResizeというコントロールのサイズが変更になった際に発生する標準イベントを追加します。

作業を行うために、[ファイル|プロジェクトを開く]で、作成した EditExpackage.cbprojを選びプロジェクトを開きます。

ヘッダーファイル EditEx.h を以下のように修正します。

//---------------------------------------------------------------------------
#ifndef EditExH
#define EditExH
//---------------------------------------------------------------------------
#include <SysUtils.hpp>
#include <Classes.hpp>
#include <Controls.hpp>
#include <StdCtrls.hpp>
#include <Graphics.hpp>
//---------------------------------------------------------------------------
class PACKAGE TEditEx : public TEdit
{
private:
  bool FTextBold;
protected:
  virtual void __fastcall SetTextBold(bool Value);
public:
    __fastcall TEditEx(TComponent* Owner);
__published:
  __property bool TextBold={read=FTextBold, write=SetTextBold};
  __property OnResize;

};
//---------------------------------------------------------------------------
#endif

今回は、標準イベントの追加なので、たった１行

  __property OnResize;

のみ追加です。

コードの記入がすべて終了しましたら、メニューの [ファイル|すべて保存]を実行してコードを保存し、メニューの[プロジェクト|EditExPackageを再構築]を選び、パッケージの再コンパイル・再構築を行います。

これで TEditExに新しいイベント OnResizeが追加されました。コンポーネントの動作を確認するために、先程と同様に、このパッケージを再インストール、すべて保存して新規にアプリケーションを作成し、フォーム上に TEditExコンポーネントを置きます。オブジェクトインスペクタの「イベント」タブをクリックして表示されるイベント名を確認すると OnResizeイベントが追加されているのが確認できます。

Hide image