كيفية إضافة TAboutBox في TCustomControls؟

Question

أريد إضافة aboutbox/dialogbox على المكون المخصص الخاص بي.كيفية جعل الزر الصغير[...] يظهر على مفتش الكائن؟تمامًا مثل تعيين صورة على مكون Timage.

Answer 1

يجب عليك تحديد خاصية مشابهة لهذه:

//: 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);

يعتبر