تحديد كائنات من نفس الصنف

ما بعرف ليه تم نقل الموضوع من منتدى الديلفي

مع العلم إنه سي ++ بلدر مبنية على vcl الخاصة بباسكال

؟؟؟؟

ما هو سؤالك

اقتباس

كيف ممكن أحدد نوع واحد من الكائنات في زمن التشغيل

لم أفهم قصدك تماما , لكن يمكن بإستخدام تعدد الأشكال أن تقوم بعمل تقنية مماثلة لهذه كالتالي يكون إستخدامها ,

Base * b;
Child1 *c1;
Child2 *c2;

b=c1;
b=c2;

هنا في آخر سطرين حددنا الكائن الذي نريد إيتخدامه وفي وقت التشغيل RunTime ويمكن إستخدام b بشكل عادي لإستدعاء الدوال والمتغيرات وحقيقة سنكون إستدعنا دوال c1 أو c2 حسب الكائن الذي مررناه ل b في النهاية .

أرجو أن يكونهذا ماتقصد .

أظن أن الأخ Desigen يسأل عن طريقة إنشاء مركب من مركبات VCL زمن التشغيل. :rolleyes:

إذا كان هذا ما تقصده, فهاك مثال عن كيفية إنشاء زر في Form1 و ذلك أثناء تنفيذ البرنامج.

ضع زر فوق الفورم, سيسمى تلقائيا ب Button1.. فعند النقر عليه يقوم بإنشاء زر آخر على الفورم.. ما عليك إلا كتابة هذه الأسطر في OnClick لزر Button1:

    TButton *Button2= new TButton(Form2);
    Button2->Top=20;
    Button2->Height=40;
    Button2->Left=20;
    Button2->Width=100;
    Button2->Parent= Form2;
    Button2->Caption= "Hello World";

(h)

وهذ المثال اخرى

كتابة هذه الأسطر في OnMouseDown للفورم

uses

StdCtrls

var
  Btn: TButton;
begin
  Btn := TButton.Create (Self);
  Btn.Parent := Self;
  Btn.Left := X;
  Btn.Top := Y;
  Btn.Width := Btn.Width + 50;
  Btn.Caption := Format ('Button at %d, %d', [X, Y]);

إذا كان هذا ما تقصده

جميل

جذاك الله كل خير

شكرا على ردودكم

سأقوم بتوضيح الفكرة

عندي 5 كائنات من الصنف TEdit

بأسماء برمجية مختلفة

أنا حابب إني أقوم بإخفاء جميع هذه العناصر من الصنف المذكور

سواء عند الحد OnFormShow

أو عند الحدث OnButtonClick

شكرا لكم