プロパティページを更新する
ActiveX コントロールのプロパティが変化したときにプロパティページ上のコントロールを更新するために,UpdatePropertyPage メソッドにコードを追加します。プロパティページの表示を ActiveX コントロールのプロパティの現在の値に更新するには,UpdatePropertyPage メソッドにコードを追加します。
プロパティページの OleObject プロパティを使用すると ActiveX コントロールにアクセスできます。このプロパティは,ActiveX コントロールのインターフェースが入った OleVariant です。
次のコードでは,プロパティページの編集コントロール(InputMask)の表示を,ActiveX コントロールの EditMask プロパティの現在の値に更新します。
procedure TPropertyPage1.UpdatePropertyPage;
begin
{ OleObjects から値を取得してコントロールを更新する }
InputMask.Text := OleObject.EditMask;
end;
次のコードでは,プロパティページの編集コントロール(InputMask)の表示を,ActiveX コントロールの EditMask プロパティの現在の値に更新します。
void __fastcall TPropertyPage1::UpdatePropertyPage(void)
{
InputMask->Text = OleObject.OlePropertyGet("EditMask");
}
メモ: 複数の ActiveX コントロールを表すプロパティページを作成することも可能です。この場合,OleObject プロパティは使用しません。そのかわり,OleObjects プロパティが保守するインターフェースリストを反復処理しなければなりません。