| Class Tip_Post (unit _ipPost) |
TComponent
| Constructors |
constructor Create(AOwner : TComponent);var STable : Tdataset;
| Functions |
function CanClose:Boolean;
destructor Destroy;
procedure FormClose(Sender: TObject; var Action: TCloseAction);if Value <> nil then Value.
procedure Notification(AComponent: TComponent; Operation: TOperation);
function GetDataSource: TDataSource;
procedure SetDataSource(Value: TDataSource);| Properties |
property DataSource : TDataSource| Events |
| Variables |
FCloseEvent : TCloseEvent;
FDataSource : TDataSource;| 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 : TDataSourcePublished declarations
| Events |
| Variables |
FCloseEvent : TCloseEvent;
FDataSource : TDataSource;Private declarations