डेल्फी

Question

में केवल एक वीसीएल घटक स्टाइलिंग मुझे पता है कि घटकों के लिए कस्टम स्टाइल को अक्षम करना संभव है, लेकिन मैं केवल एक घटक वर्ग के लिए शैलियों को कैसे सक्षम कर सकता हूं? उदाहरण के लिए पूरे फॉर्म और सभी घटकों को अनस्किन छोड़ दें, और त्वचा केवल टीबटन छोड़ दें। इस छवि की तरह।

Answer 1

VCL के अधिकांश आंतरिक रूप से नियंत्रित करता है StyleServices वैश्विक समारोह तरीकों नियंत्रण आकर्षित करने के लिए प्राप्त करने के लिए उपयोग करता है। इसलिए यदि आप वीसीएल स्टाइल का उपयोग नहीं कर रहे हैं, तो StyleServices थीम्ड नियंत्रण (UxTheme API) को आकर्षित करने के लिए विंडोज एपीआई फ़ंक्शंस में एक उदाहरण लौटाएं। क्योंकि त्वचा के लिए कोई रास्ता नहीं है (वीसीएल शैलियां लागू करें) केवल एक वर्ग नियंत्रण (कम से कम आप स्वयं नियंत्रण को आकर्षित करते हैं)।

तो एकमात्र विकल्प एक वीसीएल स्टाइल लागू होता है और फिर एक ही प्रकार को छोड़कर सभी नियंत्रणों के लिए अक्षम होता है जिसे आप ढूंढ रहे हैं।

आप एक VCL शैली

और अब के बाद फोन उपरोक्त विधि

DisableVclStyles(Self,'TButton'); 

के साथ इस रूप की तरह इस

procedure DisableVclStyles(Control : TControl;const ClassToIgnore:string); 
var 
    i : Integer; 
begin 
    if Control=nil then 
    Exit; 

    if not Control.ClassNameIs(ClassToIgnore) then 
    Control.StyleElements:=[]; 

    if Control is TWinControl then 
    for i := 0 to TWinControl(Control).ControlCount-1 do 
     DisableVclStyles(TWinControl(Control).Controls[i], ClassToIgnore); 
end; 

चेक कुछ का उपयोग कर सकते

नोट: StyleElements संपत्ति का उपयोग कर ओ vcl शैलियों को निष्क्रिय सक्षम करने के लिए (TStringGrid, TBitBtn, TSpeedButton और इसी तरह)