Property-Editor

[cYaONE]

Jipi! Endlich funktioniert es!
Aber wie kann ich jetzt einen String Editor öffnen lassen und diese Strings in ein TStrings-Objekt schreiben/daraus lesen?

Hier nochmal der komplette Code:

Delphi-Quellcode:

unit uTestComp;

interface

uses
  SysUtils, Classes, Controls, Dialogs, DesignIntf, DesignEditors;

type
  TAboutXPListBox = class(TPropertyEditor)
  Public
    procedure Edit; override;
    function GetAttributes: TPropertyAttributes; override;
    function GetValue: string; override;
  end;
  TXPListBox = class(TCustomControl)
  private
    fAbout: TAboutXPListBox;
  published
    property About: TAboutXPListBox read fAbout write fAbout;
  end;

procedure Register;

implementation

procedure Register;
begin
  RegisterPropertyEditor(TypeInfo(TAboutXPListBox), TXPListBox, 'ABOUT', TAboutXPListBox);
    RegisterComponents('cYaONE', [TXPListBox]);

end;


procedure TAboutXPListBox.Edit; 
begin 
//Aboutdialog anzeigen 
MessageDlg('Huhu das ein Info - Dialog',mtInformation, [mbOK], 0);
end;

function TAboutXPListBox.GetAttributes: TPropertyAttributes; 
begin 
Result := [paDialog, paReadOnly];
end;

function TAboutXPListBox.GetValue: string;
begin
Result := '(Info)';
end;


end.