Re: [fpc-pascal] how to make a type private to the unit but not defining it in the implementation section?

[Michael Van Canneyt]

On Thu, 7 Mar 2019, Dennis wrote:

unit frproxyserver;

{$mode objfpc}{$H+}

interface

uses
  Classes, SysUtils, Forms, Controls, Graphics, Dialogs, ExtCtrls, Grids,
  frBase;

type

  TMyStringGrid=class(TStringGrid) //how to I make this class visible only to this unit?

  public
  end;

  { TProxyServerFrame }

  TProxyServerFrame = class(TBaseFrame)
    Panel_Top: TPanel;
    StringGrid1: TMyStringGrid;
  private

Use a nested class:

  TProxyServerFrame = class(TBaseFrame)
    Panel_Top: TPanel;
    StringGrid1: TMyStringGrid;
  private
   type
     TMyStringGrid=class(TStringGrid) //how to I make this class visible   only 
to this unit?
     public
       Procedure SomeMethod;
     end;
  end;

Implementation

Procedure TProxyServerFrame.TMyStringGrid.SomeMethod;

Michael.
_______________________________________________
fpc-pascal maillist  -  fpc-pascal@lists.freepascal.org
http://lists.freepascal.org/cgi-bin/mailman/listinfo/fpc-pascal