TDockTreeEx = class(TDockTree)
protected
procedure PaintDockFrame(Canvas: TCanvas; Control: TControl; const ARect: TRect); override;
end;
Ez az eljárás akkor kerül meghívásra, amikor a dokkoló helyen újra kell rajzolni a szükséges grafikai objektumokat. Ebben az eljárásban rendelkezésünkre áll egy Canvas objektum a rajzoláshoz, valamint egy TRect típusban megkapjuk a rendelkezésre álló rajzterület nagyságát.
procedure TForm1.FormCreate(Sender: TObject);
begin
Panel1.DockManager:=TDockTreeEx.Create(Panel1);
end;