+- delphi4arab منتديات دلفي للعرب (https://delphi4arab.net/forum)
+-- قسم : منتديات دلفي للعرب التعليمية (https://delphi4arab.net/forum/forumdisplay.php?fid=3)
+--- قسم : سؤال و جواب حول دلفي (https://delphi4arab.net/forum/forumdisplay.php?fid=15)
+--- الموضوع : هل يوجد مكون يقوم بإضافة ستايل لبرنامج ؟ (/showthread.php?tid=5004)
هل يوجد مكون يقوم بإضافة ستايل لبرنامج ؟ - ALmuhhnad - 12-03-2013
السلام عليكم ورحمة الله وبركاتة
اعمل على DLL وعندما اقوم بتنفيذ السطر :
PHP كود :
TStyleManager.SetStyle(TStyleManager.LoadFromFile(sPathDll + '\TurquoiseGray.vsf'));
لاحظت عدة آخطاء مع المكون TStyle ... وهذه واحده من التي واجهتني :
عندما اقوم بتغير النافذة ( داخل DLL ) تظهر هذه الرسالة :
كود :
http://im31.gulfup.com/Lz1SI.jpgكود :
http://im31.gulfup.com/db6Ai.jpgسؤالي الآن هل يعرف احدك مكون جيد يعمل على إعطاء الـ Form ستايل .... كما هو الحال في TStyle ؟
والسلام عليكم ورحمة الله وبركاتة
هل يوجد مكون يقوم بإضافة ستايل لبرنامج ؟ - محمد عبد العزيز - 12-03-2013
وعليكم السلام ورحمة الله
الثيمات والدلفي
http://www.delphi4arab.net/forum/showthread.php?tid=21
بما ان الموضوع قديم بعض الروابط قد لا تعمل مع ذلك يمكن ايجاد نسخة من المكون بالأنترنت
ولا تنسى استعمال المكونات كان جيد ايام انظمة Win98 و XP اما Vista وما فوق فبها ثيمات كثيرة ومن الاحسن عدم استخدام ثيم وترك البرنامج ياخذ شكل ثيم النظام
هل يوجد مكون يقوم بإضافة ستايل لبرنامج ؟ - SMP3 - 12-03-2013
المشكل من عندك أخي ALmuhhnad
------------
المشكلة الأولى :
لقد قمت بمناداة الفورم مباشرة .. وهذا ما سبب رسالة الخطأ الأولى
لحلها قم بانشاء كائن للفورم قبل فتحه
PHP كود :
var f2:TForm2;
begin
f2:=TForm2.Create(Self);
f2.Show;
end;
PHP كود :
Form2.Show ;
بالنسبة للمشكل الثاني .. فقد جربت ولم ألاحظ أي مشكل
ممكن يكون من نسخة الدلفي التي تستخدمها (أنا أستخدم XE3 UPdate 2 ) ماذا عنك ؟
أرفق لي واجهة للمشكلة ... وسأقوم باعادة عمل كومبايلر لها .. ان لم تظهر معي المشكلة فيعني أن اصدار دلفي هو المشكلة
هل يوجد مكون يقوم بإضافة ستايل لبرنامج ؟ - ALmuhhnad - 12-03-2013
اهلاً بك اخي وستاذي .. B.M.AbdelAziZ
واهلاً بك استاذ الـ TStyle
... مربحباً بكم .. يسعدني ان اراكم
بالنسبة لردك اخي SMP3 ... في الحقيقة شككت ان المشكلة من عندي ... لاني رائت برنامج سابقاً بنفس الستايلات
الموجوودة في TStyle .. ولا تحدث مع اي مشااكل ... لذلك شككت في بداية الامر ان المشكلة من عندي ...
ندخل في الحوار P: ...
إقتباس : لقد قمت بمناداة الفورم مباشرة .. وهذا ما سبب رسالة الخطأ الأولىلا اضن ذلك ... لاني هذا الاوامر التي استعملها
لحلها قم بانشاء كائن للفورم قبل فتحه
إنشاء ..
عرض ..
تحرير ..
PHP كود :
var
FMain : TForm2;
procedure FuncStart;
begin
FMain := TForm2.Create(nil);
FMain.ShowModal;
FMain.free;
end;
وإلى الآن رسالة الخطا تظهر ...
بالنسبة للخطاء الثاني ... اضنه يظهر بعد ظهور رسالة الخطاء الاول ...
إذا احببت ان ارفق لك المثال الذي اواجه مشكلة معه ... وترى السرورس كامل
ملاحظة ... اعمل على Delphi XE3
وشكراً لحسن القراءة
والسلام عليكم
هل يوجد مكون يقوم بإضافة ستايل لبرنامج ؟ - SMP3 - 12-03-2013
إقتباس :<< جربت إستبدال الامر ShowModal بـ الامر Show ... فتظر النافذة وبعد ذلك تختفي ... !السبب هو أنك قمت بتحرير الفورم .. ان استخدمت Show فلا تقم بتحرير الفورم الى في الحدث Destroy
إقتباس :وترى السرورس كاملنعم من الأفضل أن ترفق لي السورس .. ارفق مثال فقط و لا ترفق السورس كامل
هل يوجد مكون يقوم بإضافة ستايل لبرنامج ؟ - ALmuhhnad - 12-03-2013
فعلت كما اشرت ... ونفس النتيجة ... ؟؟
ارفقت السروس كود ... لكي ترى أين المشكلة
هل يوجد مكون يقوم بإضافة ستايل لبرنامج ؟ - SMP3 - 12-03-2013
ALmuhhnad كتب :ارفقت السروس كود ... لكي ترى أين المشكلةالسبب أخي ALmuhhnad يعود لا ستخدامك ل Thread ..
ان استخدمت ال Thread لعرض النافذة فلازم تستخدم ShowModel حتى لا يتم الخروج من ال thread
-----------------------------
+ لماذا استخدمت أسلوب السي ++ لكتابة dll ؟
هل يوجد مكون يقوم بإضافة ستايل لبرنامج ؟ - ALmuhhnad - 12-03-2013
إقتباس : ان استخدمت ال Thread لعرض النافذة فلازم تستخدم ShowModel حتى لا يتم الخروج من ال threadصحيح غاابت عن بالي هذه النقطة @@"
إقتباس : + لماذا استخدمت أسلوب السي ++ لكتابة dll ؟ربما لانه اول مثال رئيته على الانترنت يشرح عملية عمل إنشاء dll وبادخلها Form ...
انتظر منك طريقة عمل ذلك في دلفي ... في الحقيقة لم اكن اعتقد ان هناك اختالف @@؟
( ضع بعين الاعتبار اني ساحقن ملف الـ DLL في عملية ... وتظهر لي النافذة و يظهر بها الستايل ... )
هل يوجد مكون يقوم بإضافة ستايل لبرنامج ؟ - SMP3 - 12-03-2013
ان أردت استخدام ال Show بدل ShowModel
PHP كود :
library Project2;
uses
System.SysUtils,
Winapi.Windows,
System.Classes,Themes,Styles,
Unit2 in 'Unit2.pas' {Form2};
{$R *.res}
var
dwTemp : DWORD;
ThreadHanle:Thandle;
procedure FuncStart;
begin
// Do Something .. !!
end;
procedure ShowDlg ;stdcall ;
begin
Form2 := TForm2.Create(nil);
Form2.Show;
end;
procedure DllMain(reason:integer);
begin
Case reason of
DLL_PROCESS_ATTACH:
begin
Form2:=nil;
ThreadHanle :=CreateThread(nil,0,@FuncStart,nil,0,dwTemp);
end;
DLL_PROCESS_DETACH:
begin
FreeAndNil(Form2);
CloseHandle(ThreadHanle);
end;
End;
end;
exports ShowDlg ;
begin
TStyleManager.SetStyle(TStyleManager.LoadFromFile(ExtractFileDir(GetModuleName(HInstance)) + '\TurquoiseGray.vsf'));
Dllproc := @DllMain;
DllMain(DLL_PROCESS_ATTACH);
end.
..
PHP كود :
procedure ShowDlg ;stdcall ;external 'Project2.dll' name 'ShowDlg';
procedure TForm1.ButtonLoadLibClick(Sender: TObject);
begin
LoadLibrary('Project2.dll');
end;
procedure TForm1.ButtonShowDlgClick(Sender: TObject);
begin
ShowDlg;
end;
-------------------------
بالنسبة لاستعمال ال Dll مع دلفي فأعتقد أنه يوجد موضوع في دورة دلفي للعرب
-----------------------
اطلع على الدرس و تجنب استخدام أسلوب مبرمجي ++C .. لأنك ستدخل في متاهات كثيرة
و بالنسبة لل Thread , فنصيحة اليك أخي .. حاول ألا تستخدمه الا في الأمور الجدية .. لانه يمكن يسبب مشاكل كثيرة
اطلع أولا على دروس ال Thread وحاول تطبيقها ثم استعمله عند الحاجة .
هل يوجد مكون يقوم بإضافة ستايل لبرنامج ؟ - ALmuhhnad - 14-03-2013
السلام عليكم ... اعتذر على التأخر @@"
إقتباس : ان أردت استخدام ال Show بدل ShowModelليس المطلوب إستعمال الـ Show او ShowModel ... المهم ان تظهر النافذة بدون آخطاء
إقتباس :( ضع بعين الاعتبار اني ساحقن ملف الـ DLL في عملية
إقتباس : بالنسبة لاستعمال ال Dll مع دلفي فأعتقد أنه يوجد موضوع في دورة دلفي للعربجميع المواضيع تتكلم عن إستدعاء الـ Dll من البرنامج وليس حقن الـ Dll في البرنامج
بالنسبة للكود الذي كتبته ... لا استطيع كتابه الامر الذي يقوم بإستدعاء الـ Dll الخاصة بي ... في البرنامج الهدف !
والسلام عليكم