Interposer Class Nedir, Nasıl Kullanılır

[adelphiforumz]

selamlar @uparlayan @SimaWB 

örnek vermek gerekirse yapmak istediğim aşağıdaki Left satırında yer alıyor.

Teşekkürler

constructor TPanel.Create(AOwner: TComponent);
begin
// Bu kısım inheritance / miras alma yoluyla klasik TPanel'de ne varsa onu zaten üretiyor.
inherited Create(aOwner);


// Bu noktadan sonrasında ise geliştirdiğimiz sınıfımızda yeni butonumuzu yerleşik olarak oluşturuyoruz
FButon := TButton.Create(Self);
with  FButon do begin
      Parent   := Self;
      Width    := 20;
      Height   := 20;
      Caption  := 'X';
      Hint     := 'Paneli Kapat';
      ShowHint := True;
      Top      := 5;
      Left     := (Self.Width - Width) - 5; // burda ben Self degerinin TPanel olduğunu düşünüyorum benim hatam buda olabilir
      Anchors  := [akTop, akRight];
      OnClick  := PaneliYokEt;
end;
end;