5
डेल्फी XE2 का उपयोग करके, आपके पास एक वीसीएल प्रोजेक्ट में कस्टम शैलियों (खाल) को एम्बेड करने का विकल्प है।
सबकुछ ठीक काम करता है। अब मेरे पास एक अलग डीएल में कुछ रूप हैं जो मैं गतिशील रूप से दिखाता हूं।
बेशक वे स्किन नहीं हैं। मैं इसे कैसे सुधार सकता हूं?मैं डीएलएल में रूपों के लिए डेल्फी XE2 खाल कैसे लागू कर सकता हूं?
मुझे लगता है कि मुझे किसी भी तरह टीवीसुअल स्टाइल को कुछ कॉल करना होगा, लेकिन कोई भाग्य नहीं।
मेजबान:
procedure TForm1.Button1Click(Sender: TObject);
var
l: THandle;
p: procedure (const h: THandle); stdcall;
begin
l:= LoadLibrary('project1.dll');
if l > 0 then
begin
@p:= GetProcAddress(l,'ShowIt');
p(Application.Handle);
FreeLibrary(l);
end;
end;
dll:
procedure ShowIt(const h: THandle);stdcall;
var
form: TForm;
b: TButton;
han: THandle;
begin
han:= Application.Handle;
Application.Handle:= h;
form :=Tform.Create(Application);
b:= TButton.Create(form);
b.Parent:= form;
b.Caption:= 'ytes';
b.Left:= 2;
b.Top:= 2;
form.ShowModal;
form.Release;
Application.Handle:= han;
end;
exports ShowIt ;
begin
end.
सुंदर मानक सामान। अब, डीएलएल फॉर्म को होस्ट की स्टाइल थीम का उपयोग करने के लिए वास्तव में क्या किया जाना चाहिए?
आप XE2 साथ DLL पुन: संयोजित किया "सुविधा इस शैली के द्वारा समर्थित नहीं"? –
यह एक पैकेज के बजाय एक डीएलएल है? –
हां। लेकिन यह मूल विषय नहीं उठाता है। – Lobuno