我用了 :
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;
Run Code Online (Sandbox Code Playgroud)
工作正常,但......
然而,有些皮肤我不喜欢,所以如何删除它们?消除它们列在dxBarCombo1中.
| 归档时间: |
|
| 查看次数: |
133 次 |
| 最近记录: |