1

スタイルの修正が必要な継承された TCheckBox を開発しました。

「GetStyleObject」メソッドをオーバーライドし、元のスタイル オブジェクトに対して「その場で」必要な修正を行うことで、過去に他の firemonkey コントロールでこれを達成しました。

この「よりクリーンな」アプローチの意図は、ユーザーがデフォルトの firemonkey スタイルを読み込めるようにし、スタイル付きコントロールの独自のバージョンをコーディングできるようにすることです。

元。:

type

  TMyCheckBox = class(TCheckBox)
  protected
    function GetStyleObject: TFmxObject; override;
  end;

function TMyCheckBox.GetStyleObject: TFmxObject;
begin
  Result := inherited;
  {do the required changes over the returned object}
end;

ただし、このコードでは、奇妙なことに「TMyCheckBox.GetStyleObject」は呼び出されませんが、カスタム「TreeViewItem」などの他のコントロールでは呼び出されます...

何かご意見は?

よろしくお願いします。

4

1 に答える 1