الفريق العربي للبرمجةأرشيف المنتديات · 2000 – 2023
نسخة أرشيفية للقراءة فقط — التسجيل والمشاركة مغلقان، والمحتوى محفوظ كما كان.

سؤال حول الانشاء الديناميكي للعناصر

مغلق
بدأه AN@S في 15 يونيو 2002 · 2 رد · 493 مشاهدة · في لغة Delphi
مشاركة: واتساب X فيسبوك تيليجرام
#1 صاحب الموضوع

السلام عليكم:

أنا لا أزال مبتدءا في لغة دلفي فأرجو أن تأخذوني برحابة صدر..

ظهرت لي مشكلة أثناء محاولتي لتنفيذ الشيفرة التالية والتي نقلتها حرفيا من كتاب mastering Delphi ل marco cantu ومهمتها انشاء زر button بشكل ديناميكي أي أثناء وقت تنفيذ البرنامج run time حيث يتألف البرنامج من form واحد فقط ونريد أثناء تنفيذ البرنامج عند كل ضغطة ماوس على منطقة ما من الـ form أن يقوم البرنامج بانشاء زر button في نفس المنطقة وعنوان caption ذلك الزر يعبر عن مكان ذلك الزر:

procedure TForm1.FormMouseDown(Sender: TObject; Button: TMouseButton;

Shift: TShiftState; X, Y: Integer);

Begin

With Tbutton.create (self) do

Begin

parent:=self;

left:=x;

top:=y;

width:=width+50;

caption:=format('button in %d,%d',[x,y]);

end;

end.

فظهرت رسالة الخطأ التالية:

[error]unit1.pas(31):undeclared identifier:'Tbutton'

أرجو توضيح ذلك وتوضيح معنى العبارة %d وشكرا

#2

السلام عليكم

أخي العزيز

هذا الخطأ يحصل لعدم تعرف مشروعك على وحدة الازار ولحل هذه المشكلة أضف وحدة StdCtrls الى جزء ال uses او يمكنك كتابة

uses
  StdCtrls;

تحت كلمة implementation

مع تحياتي

والسلام

لا تحزن:

إن كنت فقيرا فغيرك محبوس في دين، وإن كنت لا تملك وسيلة نقل فسواك مبتور القدمين، وان كنت تشكوا من آلام فغيرك يرقدون على الاسرة البيضاء و من سنوات، وان فقدت ولدا فغيرك فقد عددا من الأولاد و في حادث واحد.

لا تحزن:

فأنت تشرب الماء الزلال، و تستنشق الهواء الطلق، و تمشي على قدميك معافى، و تنام ليلك آمنا.

#3

شكرا جزيلا على المساعدة وكنت قد توقعت هذا الخطأ لكني لم أكن أعرف ما اسم وحدة الأزرار

شكرا

هذا الموضوع مغلق.

مواضيع مشابهة

عدد الزوار حالياً

المتواجدون خلال آخر دقيقتين · يتحدّث كل ٣٠ ثانية

—الإجمالي—أعضاء مسجّلون—زوار بدون تسجيل

جارٍ التحقق من المتواجدين…