スタイルの修正が必要な継承された 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」などの他のコントロールでは呼び出されます...
何かご意見は?
よろしくお願いします。