skin در دلفی xe2

از قابلیتهای  Delphi XE2 پوسته میباشد یعنی شما بدون نصب کامپوننتهای skin مثل vcl skin , alpha control , busines skin و ... به راحتی میتونین به برنامتون skin بدین برای این امر به ادرس در منو بروید Project/oprion و در پنجره جدید Application/Appearance را انتخاب کنید. حالا لیستی از skin پیش فرض که به همراه دلفی نصب میشود داریم برای اعمال skin مورد نظر کافی است تیک skin مورد نظر را زده تا در کمبوباکس پایین Default Style  اسکین مورد نظر شما اضافه شود سپس کمبو باکس را روی skin مورد نظر خود قرار دهید و روی دکمه ok کلیک کنید حالا با اجرا برنامه skin شما اعمال خواهد شد . به همین راحتی .

شما میتوانید استایلهای دیگری را نیز از اینترنت دانلود و استفاده کنید برای این کار بعد از دانلود فایلهای .vsf را در ادرس پوشه Style به ادرس زیر کپی کنید
C:\Users\Public\Documents\RAD Studio\9.0\Styles
تا به لیست استایلها اضافه شود
شما میتوانید استایلها را به سلیقه خود تغییر و مورد استفاده قرار دهید به همراه مجموعه دلفی یک Vcl Style Designer نصب میشود که از منو
Tools/Vcl Style Designer میتوانید از ان استفاده نموده و استایل مورد نظر خود را تغییر دهید

برای تغییر skin در زمان اجرا هم اول یونیهای Vcl.Themes,Vcl.Styles رو uses میکنید و از کد زیر استفاده کنید

procedure TForm1.btn1Click(Sender: TObject);
begin
  if TStyleManager.IsValidStyle(getCurrentdir + '\Auric.vsf') then
    TStyleManager.SetStyle(TStyleManager.LoadFromFile(getCurrentdir + '\Auric.vsf'));
end;

یا از کدهای زیر برای پر کردن یک کامبوباکس و ست کردن استایل با انتخاب هر کدام از انها استفاده کنید 

procedure TForm1.ComboBox1Change(Sender: TObject);

begin

 TStyleManager.TrySetStyle(ComboBox1.Items[ComboBox1.ItemIndex]);

end;

procedure TForm1.FormShow(Sender: TObject);

var

  s: String;

begin

  ComboBox1.Items.BeginUpdate;

  try

    ComboBox1.Items.Clear;

    for s in TStyleManager.StyleNames do

    begin

      memo1.Lines.Add(s);

      ComboBox1.Items.Add(s);

    end;

    ComboBox1.Sorted := True;

    // Select the style that's currently in use in the combobox

    ComboBox1.ItemIndex := ComboBox1.Items.IndexOf(TStyleManager.ActiveStyle.Name);

  finally

    ComboBox1.Items.EndUpdate;

  end;

end;