با vcl skin اسکین برنامه در حال اجرا رو عوض کنم؟

[hex161]

با سلام .
من زمانی که می خواهم پوسته برنامه رو که در حال اجراست رو عوض کنم ، پوسته خیلی بد عوض میشه . یعنی یکمی از پوسته قبلی روش میمونه . با چه کدی پوسته رو بطور کامل با vcl skin عوض کنم؟
با تشکر.

[DAMAVAND]

با سلام .
من زمانی که می خواهم پوسته برنامه رو که در حال اجراست رو عوض کنم ، پوسته خیلی بد عوض میشه . یعنی یکمی از پوسته قبلی روش میمونه . با چه کدی پوسته رو بطور کامل با vcl skin عوض کنم؟
با تشکر.

سلام
من مشکلی ندیدم
چرا از مثال خودش استفاده نمیکنی?

procedure TForm1.Button1Click(Sender: TObject);
begin
OpenDialog1.filter:='Skin files (*.skn)|*.SKN';
OpenDialog1.initialdir:='..\..\skins\';
if OpenDialog1.execute then
SkinData1.skinfile:=OpenDialog1.filename;
if not SkinData1.Active then begin
SkinData1.Active:=true;
Form1.Refresh;
end;
end;

[babak869]

میتونید از این کد هم پس از عوض کردن اسکین استفاده نمایید :



Application.Minimize;
Application.Restore;

موفق باشید

[dkhatibi]

شاید مشکل از پوسته است. یا ویندوزتون
من که مشکلی نداشتم.

[nasr]

میتونی یه بار هم VCLSkin را Active = true و Active = False کنی.
اینطوری درست میشه