[TEdit] [XE7] Не отображается наследник от TEdit

[Alexey Lovchikov]

Добрый день!

 

Как я понимаю компонент TEdit в XE7 был переписан и класс TCustomEdit изменил предка на TPresentedControl. Теперь все мои компоненты пропали. В чем может быть проблема. Проверить можно простым созданием пустого класса наследника от TEdit

type
  TMyEdit = class(TEdit) 
  end;

procedure TForm1.FormCreate(Sender: TObject);
var 
  AEdit: TMyEdit;
begin
  AEdit := TMyEdit.Create(Self);
  AEdit.Parent := Self;
  AEdit.Position.X := 10;
  AEdit.Position.Y := 10;
  AEdit.Visible := True;
end;

[Brovin Yaroslav]

Добрый вечер,

 

Для вашего нового контрола:

1. Или Укажите явно используемый стиль: 

   AEdit.StyleLookup := 'editstyle';

2. Или переопределите название стиля по умолчанию:
   

   type 
     TMyEdit = class(TEdit)
     protected
       function GetDefaultStyleLookupName: string; override;
     end;
   
   { TMyEdit }
   
   function TMyEdit.GetDefaultStyleLookupName: string;
   begin
     Result := 'editstyle';
   end;

[Alexey Lovchikov]

Спасибо, все получилось 

[Brovin Yaroslav]

Не за что, обращайтесь.