93
Form1.MDIChildren[k].bringToFront;
//переносим его вперед
if Form1.MDIChildren[k].WindowState=wsMinimized then
Form1.MDIChildren[k].WindowState:=wsNormal;
end
else
begin //иначе - создаем форму
Child := TForm3.Create(Application);
Child.Caption := childName; //задаем название
Child.DBGrid1.DataSource.DataSet:=table; //задаем
таблицу справочник, с которой будем работать
table.active:=true; //делаем таблицу
активной
Child.Setgridcolumnwidths; //выравниваем
ширину столбцов
Child.Label1.Caption:=id; //передаем ид
Case p of
1: Child.n1.visible:=true; //отображаем первый пункт
сонтекстного меню
2: Child.n2.visible:=true; //отображаем второй пункт
контекстрого меню
{3: Child.n3.visible:=true; //отображаем третий пункт
контекстного меню
4: Child.n4.visible:=true; //отображаем четвертый пункт
контекстного меню
5: begin Child.n5.visible:=true; //отображаем четвертый
пункт контекстного меню
Child.Panel2.visible:=false; }
end;
end;
end;
procedure TForm1.N5Click(Sender: TObject);
begin
CreateSpravForm('Услуги','',Form1.viewteh,0); //Вызов
процедуры для работы со Справочником Внешний вид
end;
procedure TForm1.N4Click(Sender: TObject);
begin
CreateSpravForm('Виды услуг','',Form1.typeob,0); //Вызов
процедуры для работы со Справочником виды оборудования
end;
procedure TForm1.N7Click(Sender: TObject);
begin
CreateSpravForm('Пользователи','',Form1.users,0); //Вызов
процедуры для работы со Справочником Пользователи
end;