Форум программистов, компьютерный форум, киберфорум
Наши страницы
Lazarus
Войти
Регистрация
Восстановить пароль
 
taras atavin
4204 / 1767 / 211
Регистрация: 24.11.2009
Сообщений: 27,565
1

Динамическое удаление элементов интерфейса

11.05.2011, 05:28. Просмотров 764. Ответов 0
Метки нет (Все метки)

Delphi
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
var
  FormStreets: TFormStreets;
  Title  :array [0..1] of TButton;
  kinds  :array of TComboBox;
  Streets:array of TEdit;
 
procedure ShowStreets(book:TBook);
procedure UpdateStreets(book:TBook);
implementation
 
procedure ShowStreets(book:TBook);
begin
     FormStreets.Show;
     UpdateStreets(book);
end;
procedure UpdateStreets(book:TBook);
var i:integer;
begin
     Title[0]:=TButton.Create(FormStreets);
     Title[0].Parent :=FormStreets;
     Title[0].Width  :=120;
     Title[0].Height :=23;
     Title[0].Caption:='';
     Title[0].Left   :=0;
     Title[0].Top    :=23;
     Title[1]:=TButton.Create(FormStreets);
     Title[1].Parent :=FormStreets;
     Title[1].Width  :=200;
     Title[1].Height :=23;
     Title[1].Caption:='Улица';
     Title[1].Left   :=120;
     Title[1].Top    :=23;
     SetLength(Streets, book.StreetsCount);
     SetLength(Kinds  , book.StreetsCount);
     for i:=0 to book.StreetsCount-1 do
     begin
          Kinds[i]:=TCombobox.Create(FormStreets);
          Kinds[i].Parent:=FormStreets;
          Kinds[i].Width :=120;
          Kinds[i].Height:=29;
          Kinds[i].Left  :=0;
          Kinds[i].Top   :=46+i*29;
          Kinds[i].Items.Clear;
          Kinds[i].Items.Add('улица');
          Kinds[i].Items.Add('проспект');
          Kinds[i].ItemIndex:=book.StreetsData[i].kind;
          Kinds[i].Tag:=i;
          Streets[i]:=TEdit.Create(FormStreets);
          Streets[i].Parent:=FormStreets;
          Streets[i].Width :=200;
          Streets[i].Height:=29;
          Streets[i].Left  :=120;
          Streets[i].Top   :=46+i*29;
          Streets[i].Text  :=book.StreetsData[i].name;
          Streets[i].Tag   :=i;
     end;
end;
В процедуре UpdateStreets создаются объекты классов TComboBox, TButton и TEdit. Как их удалить?
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
11.05.2011, 05:28
Ответы с готовыми решениями:

Динамическое создание элементов интерфейса
Только недавно начал изучать сишарп. Необходимо создать кнопку, которая создает...

Динамическое создание элементов интерфейса
Здравствуйте. Есть небольшая проблема с динамическим созданием элементов...

Динамическое создание элементов интерфейса
С Новым Годом, друзья. В общем, печалька у меня: создаю элементы, а в...

Динамическое создание элементов интерфейса.
Хотелось бы создавать кнопочки и др. элементы в аплете динамически, читая...

Динамическое создание элементов интерфейса
Здравствуйте. Мне интересно знать, как динамически создавать элементы...

0
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
11.05.2011, 05:28

динамическое создание элементов интерфейса? (помогите чайнику плз)
подскажите плз. и/или ткните носом где почитать про динамическое создание...

Динамическое создание элементов интерфейса вынесено в отдельный класс. Доступ к Controls главной формы
Из Ответы на 7 самых частых вопроса по WinForms Пример динамического...

Динамическое удаление элементов
Не уверен, что корректно использую понятие "элементы", но в данном случае речь...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
1
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2018, vBulletin Solutions, Inc.
Рейтинг@Mail.ru