Przycisk niestandardowy odziedziczony po TButton nie pokazuje

Question

Konwertuję duży projekt na Firemonkey i mamy kilka niestandardowych przycisków, które nie są wyświetlane w formularzu. Wyodrębniłem ten problem do bardzo prostego projektu:

Z poniższym kodem, zarówno na telefonie komórkowym, jak i na komputerze stacjonarnym (przy użyciu domyślnych nowych aplikacji w Delphi XE6), tworzenie tTestButton1 działa dobrze, ale tTestButton2 nie jest wyświetlany w formularzu. Jak to możliwe?

type 
tTestButton1 = class(TButton); 
tTestButton2 = class(tTestButton1); 

tMainForm = class(TForm) 
private 
    fTestButton: TButton; 
public 
    constructor Create(aOwner: TComponent); override; 
end; 

constructor tMainForm .Create(aOwner: TComponent); 
begin 
    inherited; 

// fTestButton := tTestButton1.Create(Self); // this works fine (used instead of next line) 
    fTestButton := tTestButton2.Create(Self); //this button does not show up 
    fTestButton.Text := 'Test'; 
    fTestButton.Parent := Self; 
    fTestButton.Visible := True; 
    fTestButton.Position.X := 20; 
    fTestButton.Position.Y := 20; 
end; 

Answer 1

Problem polega na tym, że sterowanie nie ma zarejestrowanego stylu. Zatem naturalnym rozwiązaniem jest to, abyś to zrobił.

Ale to rozsądna ilość pracy, i spodziewam się, że wszystko, co naprawdę chcesz zrobić, to ustawić, że kontrola używa tego samego stylu, co TButton. Osiągnij to w ten sposób:

type 
    TButtonBase = class(TButton) 
    protected 
    function GetDefaultStyleLookupName: string; override; 
    end; 

function TButtonBase.GetDefaultStyleLookupName: string; 
begin 
    Result := 'Buttonstyle'; 
end; 

Teraz wypróbuj swoje zajęcia od TButtonBase.

type 
    tTestButton1 = class(TButtonBase); 
    tTestButton2 = class(tTestButton1); 

Zamiast szukać stylów na podstawie nazwy klasy kontrolki, ćwiczenia pochodzące z TButtonBase użyje styl nazwany Buttonstyle.