Windows 10のテーマプロジェクトでコンポーネントの視覚的な振る舞いを変更する

Question

自分のプロジェクトで自分の振る舞いを変更したい特定のビジュアルコンポーネントがあります。私は自分のプロジェクトでWindows 10のテーマを使用しています。これは視覚的なコンポーネントの動作を変更します。編集内にボタンがありますが、その高さが編集高さをオーバーフローします。私がしたいのは、私のプロジェクトのすべてのボタンの高さを1ピクセルまたは2ピクセルに減らすことです。

Answer 1

あなたはどのDelphiのバージョンとVCLまたはFMXプロジェクト

procedure ResizeButtons(F: TForm; DH: Integer); 
var 
    I: Integer; 
begin 
    for I := 0 to F.ComponentCount - 1 do 
    if (F.Components[I] is TButton) then 
     TButton(F.Components[I]).Height := TButton(F.Components[I]).Height + DH; 
end; 

...

procedure TForm1.FormShow(Sender: TObject); 
begin 
    ResizeButtons(Self, -1); 
end;