Delphi içinde bir bileşen sınıfının değiştirilmesi

Question

TButton veya TEdit gibi varolan bir VCL bileşeninin özel bir sürümünü tanımlamak için aynı sınıf adıyla bir hack yapmanın bir örneğini gördüm ve bunu yapmak için bir şeyler yapın. DFM streamer, orijinal yerine sürümünüzü başlatır. Maalesef, bunu yapabilmem gereken bir durumdayım ve yazımı bulamıyorum. Bunu nasıl başaracağınız konusunda bilgi nereden bulacağını bilen var mı?

type 
    TMyForm = class(TForm) 
    protected 
    procedure ReadState(Reader: TReader); override; 
    end; 

procedure TMyForm.ReadState(Reader: TReader); 
begin 
    Reader.OnFindComponentClass := FindComponentClass; 
    inherited; 
end; 

procedure TMyForm.FindComponentClass(Reader: TReader; const ClassName: string; 
    var ComponentClass: TComponentClass); 
begin 
    if ComponentClass=TButton then begin 
    ComponentClass := TMySuperDuperButton; 
    end else if ComponentClass=TEdit then begin 
    ComponentClass := TMyTotallyAwesomeEdit; 
    end; 
end; 

bunu yapmak için muhtemel sayısız başka yolları da vardır, ama bu böyle yaparız: En formda

Answer 1

bunu gibi ReadState yöntemi geçersiz kılabilirsiniz!

DÜZENLEME: Inspecting TReader.GetFieldClass(Instance: TObject; const ClassName: string), Mason'un geri çağırdığı kesmeyi önerir. İlk satır ClassType := Instance.ClassType'u ayarlar. Bu yüzden pas dosyasındaki bildirimi Button1: TButton'dan Button1: MyUnit.TButton'a değiştirerek düğmenizin oluşturulmasına neden olacağından şüpheleniyorum. Ya da belki de hack, sonunda kullanım cümleciğine MyUnit ekleyerek, TButton sürümünüzün kapsamıdır. Ancak, bu hiçbiri çok pratik değil.

Answer 2

Hatırlamaya çalıştığınız şey, bir atalayıcının birim adını önekleyerek, atasıyla aynı adı veren bir sınıfı devralmaya çalışan bir "interposer class":. Sınıf adı değişmediğinden, dfm akış mekanizması bozulmaz. Sadece ünitenin yeniden sınıflandırıldığı üniteyi etkileyecek, ayrı bir üniteye konulmadığı ve bu ünitenin ana sınıftan sonra kullanım bölümüne dahil edileceği. Açıkçası, bir ara sınıfta özellikleri yayınlayamazsınız.

type 
    TButton = class(stdctrls.TButton) 
    protected 
    procedure CreateParams(var Params: TCreateParams); override; 
    end; 

    TForm1 = class(TForm) 
    Button1: TButton; 
    [...] 
    private