Fórum Editor de propriedades #350179

unit unListFieldEditor;

interface
uses Classes, DesignEditors, DesignIntf, Forms, Controls, FindDialog;

Type
  TListFieldProperty = class(TPropertyEditor)
  public
    procedure Edit; override;
    function GetAttributes: TPropertyAttributes; override;
  end;
 procedure register;
implementation

uses unPEListField;

{ TListFieldProperty }

procedure TListFieldProperty.Edit;
Var i : Integer;
begin
  inherited;
  with TfmPEListField.Create(Application) do
    begin
      ListBox1.Items.Text:= GetStrValue;
      ShowModal;
      if ModalResult = mrOK then
        SetStrValue(ListBox1.Items.Text);
    end;
end;

function TListFieldProperty.GetAttributes: TPropertyAttributes;
begin
  Result := inherited GetAttributes + [paDialog];
end;

procedure register;
begin
  RegisterPropertyEditor(TypeInfo(TStrings), TFindDialog, ´ListField´, TListFieldProperty);
end;

end.