السلام عليكم و رحمة الله
اصدقائي الأعزاء، جميعنا نعرف Control Panel، والأبلتس Applets التي تعطي لنا طريقة سهلة لأعدادت النظام و كذللك البرامج. وهذة Applets ماهي الا نوع من مكتبات Dll تأخذ الأمتداد cpl. ربما أنت مثلي لا تعرف عن كتابة Applets في دلفي الا كما تعرف عن اللغة الصينية:)
على كل حال تعرفت منذ فترة قصيرة عن كيفية كتابة Applet بسيطة، ولذلك اذا كنت تريد دعني اوضحها لك، واسأل الله ان يوفقنا جميعا للاستفاذة من هذة الميزة في دلفي.
الغرض من الأبلت
--------------: السماح للمستخدم بتغيير أسم الكمبيوتر.
الخطوات
-------:
1- اختر New > Control Panel Application
2- سيعطي لك دلفي مودل AppletModule جديدة وهي مثل المودل العادية.
3- في الخاصية Name للمودل ضع MyAppletModule وضع الأيقونة التي تريد في الخاصية AppletIcon.
4- احفظ المشروع و أعطي أسم الوحدة UMyAppletModule ,وأسم المشروع PMyAppletModule.
5- الآن، اضف فورم Form الي المشروع وأعطي أسما للفورم MyFormApplet وأحفظ الفورم تحت أسم UMyFormApplet.
6- في القسم implementation الخاص بألوحدة UMyAppletModule ضع الشفرة التالية:
uses UMyFormApplet;
7- أول وحدة ستنفذ هي UMyAppletModule، لذلك سنطلب منها اظهار الفورم و هذا سيتم في الحدث : OnActivate كتالي :
procedure TMyAppletModule.AppletModuleActivate(Sender: TObject;
Data: Integer);
var
MyForm : TMyFormApplet;
begin
MyForm := TMyFormApplet.Create(Application);
MyForm.ShowModal;
MyForm.Free;
end;
8- الآن، كل ما سنفعله هو وضع Edit على الفورم و Button. في الحدث OnCreate ضع الآتي :
procedure TMyFormApplet.FormCreate(Sender: TObject);
var nSize : Cardinal;
PS : PChar;
begin
nSize := MAX_COMPUTERNAME_LENGTH + 1;
PS := AllocMem(nSize);
GetComputerName(PS, nSize);
Edit1.Text := PS;
PS := nil;
end;
9- ضع في الحدث OnClick للزر Button كتالي:
procedure TMyFormApplet.Button1Click(Sender: TObject);
begin
SetComputerName(PChar(Edit1.Text));
ShowMessage('يجب إعادة تشغيل الكمبيوتر ');
end;
10- احفظ ماقمت به، ثم أبني المكتبة لتحصل في النهاية على : PMyAppletModule.cpl وأنسخها الي الدليل System أفتح Control Panel وجرب:).
------------------------------------------------------------------------
اصدقائي، اتمنى أخباري عن اي ملاحظة لديكم، ولدي سؤال عن فائدة أو الغرض من Data Diagram الذي يأتي مع AppletModule.
وتقبلو تحياتي...اخوكم مازن:)