Процедура отображения или скрытия объектов на форме заданного класса

Категория: Delphi/Pascal
2011-08-28 22:35:24

Написать процедуру отображения или скрытия объектов на форме заданного класса. У процедуры реализовать 2 входящих параметра: класс объекта (TClass); состояние (Boolean).

code: #delphi
  1. procedure TForm1.SetVisible(c: TClass; Vis: boolean);
  2. var
  3.   i: integer;
  4. begin
  5.   for i:= 0 to ControlCount-1 do
  6.   begin
  7.     if (Controls[i] is c)then Controls[i].Visible := Vis;
  8.   end;
  9. end;
Поделиться:

Похожие статьи:

теги: студенты, ооп, класс, процедура, входные параметры