からスキンを削除します。私が使用しcxLookAndFeelPaintersmanager
procedure TMain_Form.FormActivate(Sender: TObject);
var I:integer;
begin
for I := 0 to cxLookAndFeelPaintersmanager.Count -1 do
dxBarCombo1.Items.Add(cxLookAndFeelPaintersmanager.items[i].lookandfeelname);
end;
procedure TMain_Form.dxBarCombo1Change(Sender: TObject);
begin
Data_Module.dxskincontroller1.SkinName:= dxBarCombo1.Text;
end;
は
を[OK]を動作しますが...私はどのように私はそれらを削除することができますので、好きではないが、いくつかのスキンがありますか? dxBarCombo1にリストされないようにします。
'dxBarCombo1.Items.Delete(Index)'はあなたのためには機能しませんか?または 'cxLookAndFeelPaintersmanager.Items [i] .lookandfeelname <> 'NameYouDontWant' then dxBarCombo1.Items.Add();' –
それは簡単ですか?私はある種の* .pasを修正しなければならないと思った。はい、これは確かに機能します。ありがとう、ケン。あなたは答えを投稿することができます。ニース!ありがとうございました。 – user3351050