タブシートにフォームをドッキングした、またはフォームのParentをタブシートにしたとき
フォームの背景色をタブシートの背景色にするにはどうすればよいでしょうか。
フォームのColorが適用されて、タブシート上で表示の統一感がとれません。
間にパネルを挟んでみたりして試していますがうまくいっていません。
あるいはタブシートの背景色を取得する方法はあるでしょうか。
以下のどちらかでどうでしょうか(OnShowイベントあたりで)
1.フォームのTransparentColorをTrueにする
TransparentColor := True;
TransparentColorValue := Color;
2.スタイル/テーマが有効な場合はフォームのColorをclBtnHighlightにする
if StyleServices.Enabled then
begin
Color := clBtnHighlight;
end;
HFUKUSHIさん、ありがとうございます。
1の方法だとマウスイベントが捕まえられなくなったので、2の方法で対処することにしました。
正直テーマというものがよく分かってないので、そのまま使わせていただきます。
というかテーマをいじると全体の挙動が怪しい・・・できるなら設定に触りたくない部分です・・・
ツイート | ![]() |