[Kobelev]

Приветствую. Подскажите как добавить в компонент TEdit свойство Lines, чтобы он отображался в инспекторе объектов?
Аналогичный как в Мемо, чтоб при двойном щелчке открывался String List Editor. Простые свойства в виде одной строки получается добавить, а тут вроде как должен быть тип TStrings, а его в { Published declarations } описать нельзя.

[v1s2222]

Как ты это себе представляешь в едит много строк? TEdit предназначен для ввода одной строки, а не многих. То бишь чтоб ввести в едит пиши: Edit1.Text:=...;

[Kobelev]

Сообщение от v1s2222

Как ты это себе представляешь в едит много строк? TEdit предназначен для ввода одной строки, а не многих. То бишь чтоб ввести в едит пиши: Edit1.Text:=...;

Да, я знаю. У меня задание сделать что то типо ComboBox на основе компонента TEdit. В комбобоксе есть свойство Items.

[v1s2222]

А что тебе мешает посмотреть на исходник именно combobox 'a то?

[Kobelev]

не получается его найти(

[v1s2222]

Найди модуль StdCtrls, там этот компонент описан.

Код:

  TComboBox = class(TCustomComboBox)
  published
    property AutoComplete default True;
    property AutoDropDown default False;
    property AutoCloseUp default False;
    property BevelEdges;
    property BevelInner;
    property BevelKind default bkNone;
    property BevelOuter;
    property Style; {Must be published before Items}
    property Anchors;
    property BiDiMode;
    property CharCase;
    property Color;
    property Constraints;
    property Ctl3D;
    property DragCursor;
    property DragKind;
    property DragMode;
    property DropDownCount;
    property Enabled;
    property Font;
    property ImeMode;
    property ImeName;
    property ItemHeight;
    property ItemIndex default -1;
    property MaxLength;
    property ParentBiDiMode;
    property ParentColor;
    property ParentCtl3D;
    property ParentFont;
    property ParentShowHint;
    property PopupMenu;
    property ShowHint;
    property Sorted;
    property TabOrder;
    property TabStop;
    property Text;
    property Visible;
    property OnChange;
    property OnClick;
    property OnCloseUp;
    property OnContextPopup;
    property OnDblClick;
    property OnDragDrop;
    property OnDragOver;
    property OnDrawItem;
    property OnDropDown;
    property OnEndDock;
    property OnEndDrag;
    property OnEnter;
    property OnExit;
    property OnKeyDown;
    property OnKeyPress;
    property OnKeyUp;
    property OnMeasureItem;
    property OnSelect;
    property OnStartDock;
    property OnStartDrag;
    property Items; { Must be published after OnMeasureItem }
  end;