|
|
|
|
|||||||
| Регистрация | << Правила форума >> | FAQ | Пользователи | Календарь | Поиск | Сообщения за сегодня | Все разделы прочитаны |
|
|
Опции темы | Поиск в этой теме | Опции просмотра |
|
#5
11.02.2016, 16:54
|
|||
|
|||
Код:
procedure TForm1.FormCreate(Sender: TObject);
var
i: Integer;
begin
for i := 0 to ControlCount - 1 do
ListBox1.Items.Add(Controls[i].Name + ': ' + Controls[i].ClassName);
end; |
Древовидный вид