x0k

Berlin, Добавляю в проект фрейм унаследованный от TGFrame

TGFrame = class(TFrame)
  protected
    level: byte;
    fText: TFormText;
    backgrounds: TArray<TGlyph>;
    layouts: TArray<TControl>;
    clickBlock: boolean;

    procedure onFCreate; virtual;
    procedure onFDestroy; virtual;
  public
    procedure setText(id: byte);
    procedure setTabText(id: byte);

    procedure onFShow; virtual;
    procedure onFHide; virtual;

    constructor Create(Lvl: byte); Reintroduce;
    destructor Destroy; override;
  end;

При попытке отрыть фрейм в дизайнере получаю следующее сообщение

Игнорирование ломает фрейм, как исправить?

Разобрался, (grid.Columns[0] as TPopupColumn).Items:=StringList;

Но остался второй вопрос, value.AsString вернет выбранную строку, что приемлемо, но для меня индекс предпочтительней.

Delphi 10.1 Berlin

Как передать список в value?

Value:=TValue.From<TStringList>(StringList); - не работает.

Можно ли из TValue получить индекс выбранного элемента?

Berlin android 4.2.2

После заполнения edit'а каретка смещается на пару символов влево, хотя стоит в конце строки, HorzAlign = Trailing.

Как можно исправить или чем лучше заменить edit ?