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.