N9Click (TObject * Sender)
{> ShowModal ();
}
/ / ---------------------------------------------------------------------------
Файл: KPT.h
/ / ---------------------------------------------------------------------------
# ifndef KPTH
# define KPTH
/ / ---------------------------------------------------------------------------
# include
# include
# include
# include
# include
# include
# include
//---------------------------------------------------------------------------TKPTForm : Public TForm
{
__published: / / IDE-managed Components*GroupBox2;*GroupBox1;*DBGrid1;*Button1;*NumKPT;*NameKPT;*Button2;*Button3;*Button4;*Panel1;*Panel2;*MinRY;*MaxRY;*MinY;*MaxY;*MinG;*MaxG;*MinIntY;*MaxIntY;*MinIntG;*MaxIntG;__fastcall DBGrid1CellClick (TColumn * Column); __fastcall DBGrid1Enter (TObject * Sender); __fastcall Button1Click (TObject * Sender); __fastcall Button2Click (TObject * Sender); __fastcall Button3Click (TObject * Sender);: / / User declarations: / / User declarations
__fastcall TKPTForm (TComponent * Owner);
};
/ / --------------------------------------------------------------------------- PACKAGE TKPTForm * KPTForm;
/ / ---------------------------------------------------------------------------
# endif
Файл: KPT.cpp
/ / ---------------------------------------------------------------------------
# include
# pragma hdrstop
# include «KPT.h»
# include «DataModule.h»
/ / ---------------------------------------------------------------------------
# pragma package (smart_init)
# pragma resource «*. dfm» * KPTForm;
/ / ---------------------------------------------------------------------------
__fastcall TKPTForm :: TKPTForm (TComponent * Owner)
: TForm (Owner)
{
}
//---------------------------------------------------------------------------__fastcall TKPTForm :: DBGrid1CellClick (TColumn * Column)
{> Text=DM-> KPTTable-> FieldByName («NumKPT») -> AsString;> Text=DM-> KPTTable-> FieldByName («NameKPT» ;) -> Value;> Text=DM-> KPTTable-> FieldByName («MinRY») -> Value;> Text=DM-> KPTTable-> FieldByName («MaxRY»)-> Value;> Text=DM-> KPTTable-> FieldByName («MinY») -> Value;> Text=DM-> KPTTable-> FieldByName («MaxY») -> ; Value;> Text=DM-> KPTTable-> FieldByName («MinG») -> Value;> Text=DM-> KPTTable-> FieldByName («MaxG») -> Value ;> Text=DM-> KPTTable-> FieldByName («MinIntY») -> Value;> Text=DM-> KPTTable-> FieldByName («MaxIntY») -> Value;> ; Te...