Pulsante personalizzato ereditato da TButton non mostra

Question

Sto convertendo un progetto di grandi dimensioni in Firemonkey e abbiamo alcuni pulsanti personalizzati, che non vengono visualizzati nel modulo. Ho isolato il problema in un progetto molto semplice:

Con il codice seguente, sia su dispositivo mobile che desktop (utilizzando le nuove applicazioni predefinite in Delphi XE6), la creazione di tTestButton1 funziona correttamente, ma tTestButton2 non viene visualizzato nel modulo. Come è possibile?

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

Il problema è che il controllo non ha uno stile registrato per esso. Quindi la soluzione naturale è che tu lo faccia.

Ma questa è una quantità ragionevole di lavoro e mi aspetto che tutto ciò che si vuole veramente fare sia organizzare che il controllo usi lo stesso stile di TButton. Raggiungere che in questo modo:

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

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

Ora derivano le vostre classi da TButtonBase.

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

Invece di cercare stili basati sul nome della classe del controllo, classi derivate da TButtonBase utilizzeranno lo stile di nome Buttonstyle.