.
1) . . .
2) MainMenu ( Components). , , , . : , , . . , , Insert Separator (. 10.2).
10.2
3) . File > New > Other. ECO Enabled Windows Form New ECO Files ( Delphi for.NET Projects). , wfChairAdd ( TChairAdd), Text .
4) > > . Code . , :
var
callChairAdd: TChairAdd;
5) , ParentWin: TMain. (constructor TMain.Create) :
ParentWin:= self;
.
6) . , wfChairAdd wfMain File > Use Unit.
7) > > :
callChairAdd:= TChairAdd.Create(EcoSpace);
callChairAdd.MdiParent:= ParentWin;
callChairAdd.Show;
8) . Label, TextBox ( Windows Forms) . (. 10.3).
9) , FormBorderStyle FixedDialog. , , ControlBox False.
10.3
10) packModelUnit File > Use Unit EcoSpaceType RHRoot projDeanOfficeEcoSpace, ECO. , packModelUnit .
interface
uses
packModelUnit,
11) . . ( ), . , . EcoSpace, , . . , , .
|
|
procedure TChairAdd.Button1_Click(sender: System.Object; e: System.EventArgs);
var
NewChair: clChair;
begin
NewChair:= clChair.Create(EcoSpace);
NewChair.ChairName:= TextBox1.Text;
NewChair.ChairHeadSNP:= TextBox2.Text;
NewChair.ChairSecrSNP:= TextBox3.Text;
Close; //
end;
Add (). ( , ) RootHandle. ( ) EcoListAction.
clChair EcoSpace. ehChair . , .
12) . , .
procedure TChairAdd.Button2_Click(sender: System.Object; e: System.EventArgs);
begin
Close;
end;
13) .
EcoGlobalActions.ExecuteAction(EcoAction(1),RHRoot);
(Closed). .
14) , (. 10.4).
15) . > > . , , . , :
CurChair:= clChair(cmhChair.Element.AsObject);
:
CurChair.roleLecturers.Add(NewLect);
. .
10.4