Class TRenameTable (unit RenTable)

Inherits from

TForm

Constructors



Functions

procedure btnOKClick(Sender: TObject);


procedure FormShow(Sender: TObject);


Properties

property TableChoice : String

Public declarations

Events

Variables

btnCancel : TBitBtn;


btnOK : TBitBtn;


edtNewName : TEdit;


edtOldName : TEdit;


Label1 : TLabel;


Label2 : TLabel;


FTableChoice : String;

Private declarations


Constructors


Functions


procedure btnOKClick(Sender: TObject);


procedure FormShow(Sender: TObject);


Properties


property TableChoice : String

Public declarations


Events


Variables


btnCancel : TBitBtn;


btnOK : TBitBtn;


edtNewName : TEdit;


edtOldName : TEdit;


Label1 : TLabel;


Label2 : TLabel;


FTableChoice : String;

Private declarations