1) . ECO packModelUnit ( interface ). > > :
procedure TLecturer.MenuItem9_Click(sender: System.Object; e: System.EventArgs);
var
CurChair: clChair;
DelChair: string;
result: System.Windows.Forms.DialogResult;
begin
if ehChair.GetList.Count <> 0 then
begin
if cmhChair.Element.AsObject is clChair
then
begin
CurChair:= clChair(cmhChair.Element.AsObject);
DelChair:= ' ' + CurChair.ChairName + '?';
result:= MessageBox.Show(DelChair, ' ', MessageBoxButtons.YesNo, MessageBoxIcon.Question);
if(result = System.Windows.Forms.DialogResult.Yes)
then
CurChair.AsIObject.Delete;
EcoGlobalActions.ExecuteAction(EcoAction(1),RHRoot);
end;
end;
end;
, ECO . cmhChair. CurChair ( ). , clChair. Element cmhChair, . AsObject Element .NET. ( clChair).
ehChair . GetList Count, .
MessageBox . DelChair , Show MessageBox. Show MessageBoxButtons.YesNo . (Yes No) result ( System.Windows.Forms.DialogResult). Show MessageBoxIcon.Question -.
IObject ( CurChair), ECO EcoSpace. , , EcoSpace. Delete IObject. .
2) (. 10.5).
10.5
.