Англійські неологізми

Its call provides the correct reflection of all components, that give necessary information, and also the components, that manage the processes.

The text of the proper procedure looks like this way:

procedure TForm1.N1Click(Sender: TObject);

begin

Panel1.Visible:=False;

Panel3.Visible:=False;

dbEdit1.Visible:=True;

dbLookupComboBox3.Visible:=True;

dbLookupComboBox1.Visible:=True;

dbLookupComboBox2.Visible:=True;

dbMemo1.Visible:=True;

dbMemo2.Visible:=True;

dbNavigator1.Visible:=True;

Label1.Visible:=True;

Label2.Visible:=True;

Label3.Visible:=True;

Label4.Visible:=True;

Label5.Visible:=True;

Label6.Visible:=True;

StatusBar1.Visible:=True;

StatusBar1.Panels.Items[0].Text:='#'+IntToStr(Table1.RecNo);

StatusBar1.Panels.Items[1].Text:='All in all: ' +IntToStr(Table1.RecordCount);

end;

In this procedure the meaning of the property Visible objects are set, and functions of determination of the amount of records are also used in the table of database and current number of record.

For the creation of template of procedure it is enough to click in the menu Dictionary in the Delphi environment and the following code will appear: