Extend class TClientSocket Delphi

1

I would like to know how to extend the TClientSocket class in Delphi, to put new features without losing the old, with examples. Thanks.

    
asked by anonymous 19.08.2014 / 20:48

1 answer

2

Just tell the class that you want to extend in parentheses after class

unit ClientSocketPersonalizada

uses
  System.Win.ScktComp;

type
  TClientSocketPersonalizada = class(TClientSocket)
  public
    procedure SeuMetodo;
  end;
    
19.08.2014 / 22:30