Class Tip_Post (unit _ipPost)

Inherits from

TComponent

Constructors


constructor Create(AOwner : TComponent);

Public declarations

var STable : Tdataset;



Functions

function CanClose:Boolean;


destructor Destroy;

(Owner as TForm).

procedure FormClose(Sender: TObject; var Action: TCloseAction);

Protected declarations

if Value <> nil then Value.


procedure Notification(AComponent: TComponent; Operation: TOperation);


function GetDataSource: TDataSource;


procedure SetDataSource(Value: TDataSource);


Properties

property DataSource : TDataSource

Published declarations

Events

Variables

FCloseEvent : TCloseEvent;


FDataSource : TDataSource;

Private declarations


Constructors


constructor Create(AOwner : TComponent);

Public declarations

var STable : Tdataset;


Functions


function CanClose:Boolean;


destructor Destroy;

(Owner as TForm).OnShow:=FormShow;


procedure FormClose(Sender: TObject; var Action: TCloseAction);

Protected declarations

if Value <> nil then Value.FreeNotification(Self);


procedure Notification(AComponent: TComponent; Operation: TOperation);


function GetDataSource: TDataSource;


procedure SetDataSource(Value: TDataSource);


Properties


property DataSource : TDataSource

Published declarations


Events


Variables


FCloseEvent : TCloseEvent;


FDataSource : TDataSource;

Private declarations