Наследники компонента

[Krok27]

Добрый день.

1. Создаю наследника от TLabel через newComponent, допустим TLabel_one, бросаю на форму, текст виден.

2. Создаю наследника от TLabel_one - TLabel_one_chil, кладу на форму - текста уже нет((.

Что я не так делаю? Выбран не правильный родитель? 

[slav_z]

не советую делать свои компоненты... надо стремиться к тому, что ваш проект должен быть скачан из репозитория и сразу запущен... без дополнительных установок чего-либо... то, что вы хотите сделать с TLabel, точно можно сделать с помощью стилей (прости господи) или фрейма...

[Krok27]

Задача специфична и с помощью стилей ее не решить. К метке добавляю интерфейс,  чисто виртуальные функции, которые буду реализованы в наследниках. Можно выполнить множественное наследование.

Но я его не люблю и готовить умею)).

[slav_z]

1 час назад, Krok27 сказал:

К метке добавляю интерфейс,  чисто виртуальные функции, которые буду реализованы в наследниках. Можно выполнить множественное наследование.

звучит тревожно.. еще и наследники будут? вот это метка! становится похоже на российский сериал какой-то... оно того стоит?

[Slym]

наследовать ради интерфейса? не проще композицией интерфейс внести?
property OptionsIntfImpl: IFDStanOptions read FOptionsIntf implements IFDStanOptions;
можно было бы без наследования вообще через TComponent.VCLComObject, но какая то редиска в TPresentedControl не спустила QueryInterface до TComponent.QueryInterface
но можно пропатчить FMX.Controls.Presentation.pas

function TPresentedControl.QueryInterface(const IID: TGUID; out Obj): HRESULT;
else
    Result := inherited;

и делать так

var Test:ITest;
begin
  if Supports(Label1, ITest, Test) then
    Test.Test;
end;

Если надо пример - пиши, скину

Изменено 9 декабря, 2020 пользователем Slym

[krapotkin]

3 часа назад, Slym сказал:

Если надо пример - пиши, скину

Написал бы сразу статью сюда. Для всех полезно было бы

[Slym]

Пример в атаче, там же патченый FMX.Controls.Presentation

VCLComObject.zip

[Slym]

5 часов назад, krapotkin сказал:

Написал бы сразу статью сюда. Для всех полезно было бы

Хотелось бы рецензию на статью 

Изменено 9 декабря, 2020 пользователем Slym

[Krok27]

В 09.12.2020 в 05:43, Slym сказал:

наследовать ради интерфейса? не проще композицией интерфейс внести?
property OptionsIntfImpl: IFDStanOptions read FOptionsIntf implements IFDStanOptions;
можно было бы без наследования вообще через TComponent.VCLComObject, но какая то редиска в TPresentedControl не спустила QueryInterface до TComponent.QueryInterface
но можно пропатчить FMX.Controls.Presentation.pas

 

Спасибо. ComObject все таки завязан на Windows, теряется смысл FMX как фреймворка. Просто есть порядка 30 компонентов разной степени сложности, написанные под VCL. Хотелось обойтись малой кровью при переходе. Композиция всегда считалась лучше чем наследование. Займёмся композицией. Спасибо всем.

Изменено 10 декабря, 2020 пользователем Krok27

[Slym]

1 час назад, Krok27 сказал:

Спасибо. ComObject все таки завязан на Windows, теряется смысл FMX как фреймворка. Просто есть порядка 30 компонентов разной степени сложности, написанные под VCL. Хотелось обойтись малой кровью при переходе. Композиция всегда считалась лучше чем наследование. Займёмся композицией. Спасибо всем.

VCLComObject все таки завязан только названием! Остальное завязано только на QueryInterface, а оно нативно и мультиплатформенно

[Krok27]

Пока не видел что бы QueryInterface использовался помимо Microsoft.  Дайте ссылку, пожалуйста, для ознакомления.

Модель COM,  в основании которой лежит QueryInterface - детище Microsoft. Возможно я отстал от жизни))

[Slym]

Да весь FMX на интерфейсах и QueryInterface...
FireDAC так вообще страшный сон все на QueryInterface, на фабриках фабрик.

а Модель COM - построена на одном интерфейсе - IDispatch, все!

Изменено 10 декабря, 2020 пользователем Slym