إضافة خاصية جديدة للعمل في قائمة التكتيك

Question

كيف يمكنني إضافة منشورة جديدة (ليتم عرضها في كائن المفتش) الملكية إلى عمل تاكتيونليست في دلفي

نوع بيانات الخاصية منطقي.

شكرا.

Answer 1

قم بإنشاء فئة العمل الجديدة الخاصة بك عن طريق الاشتقاق من TAction.على سبيل المثال:

TMyAction = class(TAction)
...
published
  property MyBoolProp: Boolean ....
end;

وبعد ذلك يمكنك تسجيله من حزمة وقت التصميم الخاص بك Register الإجراء عن طريق الاتصال RegisterActions.

procedure Register;
begin
  .... // register any other components
  RegisterActions('MyCategory', [TMyAction], nil);
end;

ثم من محرر قائمة الإجراءات ، حدد New Standard Action وسوف يظهر الإجراء الخاص بك في عرض شجرة الإجراءات المتاحة.

---

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