Property-Editor

[MatthiasW]

Hallo,

der Code:

Delphi-Quellcode:

     TAboutXPComboBox = class(TPropertyEditor)
     Public
       procedure Edit; override;
       function  GetAttributes: TPropertyAttributes; override;
       function  GetValue: string; override;
     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;

Procedure Register
begin
  RegisterPropertyEditor(TypeInfo(TAboutXPListBox), TXPListBox, 'ABOUT', TAboutXPListBox);
end;

Das hab ich zumindest und es funktioniert bei mir.

Es erscheinen ein Property About mit dem Wert "(Info)" und wenn es angeklickt wird einem Button mit drei Punkten auf der rechten Seite und wenn es angeklickt wird erscheint die MessageBox.

Achso du benötigst die Unit DsgnIntf um das das funktioniert

Mfg Matthias

[edit=sakura]Delphi-Tags gesetzt. Mfg, sakura[/edit]