delphi4arab منتديات دلفي للعرب

نسخة كاملة : تثبيت الskin
أنت حالياً تتصفح نسخة خفيفة من المنتدى . مشاهدة نسخة كاملة مع جميع الأشكال الجمالية .
استعملت هذا الكود

procedure TForm1.Button4Click(Sender: TObject);
begin

Enabled := False; // Form Blackout works if TsSkinProvider.DisabledBlendValue is not 255
SelectSkin(sSkinManager1);
Enabled := True;
end;

كيف اثبت skin معين عند اختيارة بحيث عند فتح البرنامج مرة اخرى يظهر الفورم بهذا الskin
عليك بحفظ مسار الskin المختار بمكان ما
ملف ini أو سجل النظام Registry او بحقل/جدول خاص ان كنت تستخدم قاعدة بيانات

http://delphi4arab.net/forum/showthread.php?tid=1414
http://delphi4arab.net/forum/showthread.php?tid=4474