كيفية إضافة TAboutBox في TCustomControls؟
-
17-09-2020 - |
سؤال
أريد إضافة aboutbox/dialogbox على المكون المخصص الخاص بي.كيفية جعل الزر الصغير[...] يظهر على مفتش الكائن؟تمامًا مثل تعيين صورة على مكون Timage.
المحلول
يجب عليك تحديد خاصية مشابهة لهذه:
//: Información acerca del paquete de componentes
property AboutMe:TFAbout read FAboutG stored false;
TFAbout هي فئة تحدد النموذج الذي تريد رؤيته (حول النموذج)، عندما ينقر المستخدم على الخاصية في "Object Inspector".
بالإضافة إلى ذلك، يجب عليك تسجيل "محرر الخصائص"، إذا كنت تريد رؤية بوتون مع النقاط الثلاث |...| في OI.
هذه وحدة نموذجية:
unit UTAboutProp;
interface
uses
DesignIntf, DesignEditors;
type
TAboutGProp = class(TPropertyEditor)
public
procedure Edit(); override;
function GetValue(): string; override;
function GetAttributes(): TPropertyAttributes; override;
end;
implementation
uses
SysUtils, FormAbout, UConstantes;
procedure TAboutGProp.Edit();
begin
with TFAbout.Create(nil) do
try
ShowModal();
finally
Free();
end;
end;
function TAboutGProp.GetValue(): string;
begin
result := Format(GLIBSI_LBL,[GLIBSI_VERSION]);
result := '1.0';
end;
function TAboutGProp.GetAttributes(): TPropertyAttributes;
begin
result := [paDialog,paReadOnly];
end;
end.
ما عليك سوى "تسجيل" "محرر الخاصية" هذا للعمل مع خاصية "حول" الخاصة بك؛هذا مهم بالنسبة ل"الرابط" الممتلكات الخاصة بك مع المحرر الخاص بك.
عندما يكون لديك رمز تسجيل المكون، أضف رمز تسجيل الخاصية:
RegisterPropertyEditor(TypeInfo(TFAbout),nil,'',TAboutGProp);
يعتبر
لا تنتمي إلى StackOverflow