دخول

**kachwahed** · 04-01-2009, 12:59 PM

السلام عليكم ورحمة الله...
قمت مؤخرا بكتابة كود ينشئ مكون من النوع TLabel وأرفقت له حدث LinKto وها هو الكود:
إنشاء نوع المكون:

كود :
type TLabLink = class(TLabel)
     function Linkto (Caption: TCaption): String;
     procedure Click; override;
    end;

إنشاء المكون:

كود :
procedure TForm1.Button1Click(Sender: TObject);
begin
Lablink := TLablink.Create(Lablink);
  try
    Lablink.Parent := Self;
    Lablink.Left := 80;
    Lablink.Top := 104;
    Lablink.Caption := Lablink.Linkto(Edit1.Text);
    Lablink.Font.Color := clBlue;
    Lablink.Font.Style := [fsUnderline];
    Lablink.Cursor := crHandPoint;
  except
    Lablink.Free;
end;
end;

إرفاق حدث للمكون:

كود :
procedure TLabLink.Click;
begin
  inherited;
    ShellExecute(0,nil,pchar(Lablink.Caption),nil,nil,1);
end;

فهل يمكن إضافة حدث جديد لمكون تم إنشاؤه على الـ Form ؟؟؟
مثلا هل يمكن إضافة حدث OnMouseWheel الخاصة بالمكون TRichEdit إلى المكون TMemo مثلا؟؟؟

وهل يمكن التعديل بطريقة مباشرة في حدث معين أثناء تشغيل البرنامج ؟؟؟ (كإضافة سطر من الأوامر مثلا)

**kachwahed** · 05-01-2009, 10:17 AM

أنتظر ردا ولو بـ "لا يمكن" و "لا أدري".
//ونصف العلم لا أدري...

AL-MOB4RM3G · 05-01-2009, 12:52 PM

اخي الكريم...
حياك الله...

اخي كان عليك استخدام البحث قبل ان تسأل والله اعلم...
لأن سؤالك قد اجيب عليه من قبل...

ثانيا... من الجيد اخي لو تابعت الدورة... الدي يقوم بها الإخوة...
وإن كنت من متابعيها... فجيد لو تابعت الرودود و الحلول... لأن فيها كثير من الفئدة...
بلإضافة ان الجواب لسؤالك موجود فيها... واعتقد في اول درس و اول وظيفة والله اعلم..

هذا بخصوص السؤال

اما اخي بخصوص التعديل مباشرة
فلا اعتقد ذلك والله اعلم...
لأن الكود يتم تحويله قبل ان يصبح برنامج... فكيف سنضيف كود او صطر في الكود الحالي ؟
هذا و الله اعلم...

طبعا انا لست خبيرا لكن هذه محاولة لل****** ... ولا تأخذ كلامي في عين الإعتبار...
يعني انتظر الخبراء ولله اعلم... فانا لست خبيرا ولكنني قد اصيب و قد اخطأء... والله تعلى اعلم..

والسلام عليكم

**kachwahed** · 05-01-2009, 02:44 PM

السلام عليكم
حياك الله، بارك الله فيك
شكرا كثيرا لردك أخي الكريم...
أما بخصوص البحث في المنتدى فأنا لم أبحث فحسب بل تصفحته قبل أن أسأل صفحة صفحة...
وأما سؤال ذلك الشخص فهو يختلف عن سؤالي،
أما هو فقال: هل من الممكن الوصول لحدث غير موجود في العنصر
وذلك لأنه - ربما - لم يستوعب جيدا الشرح المتعلق بدرس الأول "الخصائص والأحداث".
وأجابه المشرف بأن هذا غير منطقي، ومعه حق. والرابط من هنا:
http://www.delphi4arab.net/forum/showthr...4%D8%DE%ED
أما أنا فسألت عن إمكانية إنشاء (وليس الوصول) حدث وإدماجه مع المكون باستعمال خاصية معينة (مثل خاصية التوارث inherited على سبيل المثال).
أما بخصوص متابعة الدروس...
فأصدقك القول أنني أحرص على متابعتها (رغم أنني أعرف مسبقا كل ما تم شرحه فيها)...وأنا متشوق للمزيد.
جزاك الله خيرا أخي وشكرا كثيرا على مرورك.
في انتظار ردود الخبراء ...

***محمد عبد العزيز*** · 09-01-2009, 12:41 PM

اضافة حدث لمكون موجود، لايمكن
انشاء مكون جديد مبني على المكون السابق ومضاف اليه احداث جديد ةغير موجودة، نعم
الحقيقة ولكي اكون صريح معك: لا يوجد شيئ غير ممكن في مجال الحاسب شرط ان يكون منطقي
هناك اشياء سهلة واشياء اقل سهولة اضافة الى حاجتها لوجود مقدار معين من المعرفة الازمة للامر

خلاصة القول: يمكن اضافة اي حدث (يعرفه النظام) لاي مكون غير موجو به (والنتيجة مكون جديد)
اصلا هذا من اساسيات oop انشاء اشياء جديدة

ساعود للموضوع لاحقا (لان شرحة بحاجة لوقت)

والسلام عليكم

AL-MOB4RM3G · 09-01-2009, 01:19 PM

deltaaziz كتب :
اضافة حدث لمكون موجود، لايمكن
انشاء مكون جديد مبني على المكون السابق ومضاف اليه احداث جديد ةغير موجودة، نعم
الحقيقة ولكي اكون صريح معك: لا يوجد شيئ غير ممكن في مجال الحاسب شرط ان يكون منطقي
هناك اشياء سهلة واشياء اقل سهولة اضافة الى حاجتها لوجود مقدار معين من المعرفة الازمة للامر

خلاصة القول: يمكن اضافة اي حدث (يعرفه النظام) لاي مكون غير موجو به (والنتيجة مكون جديد)
اصلا هذا من اساسيات oop انشاء اشياء جديدة

ساعود للموضوع لاحقا (لان شرحة بحاجة لوقت)

والسلام عليكم

نعم... ما شاء الله..
في الحقيقة لم اكن اعلم هذا ...
وهذا شئ جديد بنسبة لي...

انتظر الدرس اخي ديلتا عزيز
واعتقد انه سيكون مفيدا ان شاء الله...

ولكن سؤال...

اذا ممكن انا ان اخذ مكون جديد وأضيف عليه اغراض...
الا يحتاج هذا الى سورس الموكون؟

ان كان الجواب نعم...
فلسؤال هو.. هل يتبع مع الدلفي 7 سورس المكونات ؟

وإن كان الجواب لا...
فكيف ممكن للشركات ان تحمي مكوناتها الى اخره ؟

بارك الله فيكم..

**kachwahed** · 10-01-2009, 08:05 AM

moh__ كتب :ولكن سؤال...

اذا ممكن انا ان اخذ مكون جديد وأضيف عليه اغراض...
الا يحتاج هذا الى سورس الموكون؟

نعم أخي يمكن أخذ مكون جديد وجعله يرث خصائص مكونه الأصلي ثم إضافة خصائص (إجراءات ودوال) جديدة عليه وإليك مثال صغير في المرفقات.
بارك الله في المشرف على التوضيحات وننتظر منه المزيد.

دخول
اسم المستخدم/البريد الالكتروني :
كلمة المرور :	فقدت كلمة المرور ؟
	تذكرني بالمرة القادمة