Модераторы: Poseidon, Snowy, bems, MetalFan
  

Поиск:

Ответ в темуСоздание новой темы Создание опроса
> Удаление динамически созданых контролов. Созданных в цикле. 
V
    Опции темы
ivan219
  Дата 2.10.2006, 10:40 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
***


Профиль
Группа: Завсегдатай
Сообщений: 1121
Регистрация: 19.11.2005
Где: Планета земля

Репутация: 2
Всего: 12
Код создаваемого контрола.
Код

procedure CreateLabel(const Name,Caption:String; Top,Left: Integer;
 Color:Boolean); StdCall;
begin
 Lab:=TLabel.Create(Form1);
 Lab.Name:=Name;
 Lab.Caption:=Caption;
 Lab.Top:=Top;
 Lab.Left:=Left;
 case Color of
     True: Lab.Font.Color:=clBlack;
     False: Lab.Font.Color:=clRed;
 end;
 Lab.Parent:=Form1;
end;

В рабочей програме прокручивается цик, итог несколько созданных Label на форме.

Как их удалить с формы все сразу и каждый по отдельности smile 


--------------------
Мой первый сайт и моя первая программа!!!!!
PM MAIL ICQ   Вверх
Yanis
Дата 2.10.2006, 10:45 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
****


Профиль
Группа: Участник Клуба
Сообщений: 2937
Регистрация: 9.2.2004
Где: Москва

Репутация: 72
Всего: 111
Цитата(ivan219 @  2.10.2006,  11:40 Найти цитируемый пост)
Как их удалить с формы все сразу и каждый по отдельности

Если нужно удалить по выходу из программы, то не беспокойся, т.к. они сами умрут.

Если же нужно Убивать какие то отдельные, то всё зависит от того как ты определяешь нужные от ненужных. Думаю, что бы убить все нужно просто выставить Tag например в 666 и тогда пробегая в цикле все лэйблы, будешь видить какие ты создал сам и значит их нуна убить.

Это сообщение отредактировал(а) Yanis - 2.10.2006, 10:46


--------------------
user posted image *щёлк*
PM MAIL WWW ICQ   Вверх
Rennigth
Дата 2.10.2006, 10:48 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
***


Профиль
Группа: Участник Клуба
Сообщений: 1708
Регистрация: 21.6.2004
Где: Moscow

Репутация: 49
Всего: 76
ну ты и сохраняй указатели на контролы к примеру в TList, и сделай не проседуру а функцию которая будет возвращать указатель на созданный объект.  Аля:
 
Код

function CreateLabel(const Name,Caption:String; Top,Left: Integer;
 Color:Boolean): TLabel; StdCall;
begin
 Result := TLabel.Create(Form1);
 Result.Name:=Name;
 Result.Caption:=Caption;
 Result.Top:=Top;
 Result.Left:=Left;
 case Color of
     True: Result.Font.Color:=clBlack;
     False: Result.Font.Color:=clRed;
 end;
 Result.Parent:=Form1;
end;




--------------------
(* Honesta mors turpi vita potior *)
PM MAIL ICQ   Вверх
ivan219
Дата 3.10.2006, 09:28 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
***


Профиль
Группа: Завсегдатай
Сообщений: 1121
Регистрация: 19.11.2005
Где: Планета земля

Репутация: 2
Всего: 12
Зная имя мы всесильны Ха ха ха.... Крыша паехала smile 

Вот код который может удалить любой созданный динамически контрол надо только знать его имя!!!
Код

procedure TForm1.Button1Click(Sender: TObject);
var
  LabFree:TLabel;
begin
 LabFree:=FindComponent('Label1') as TLabel;
 LabFree.Free; // Работа как с обычным контролом Label1
end;


И чего я в последнее время сам начал отвечать на свои вопросы smile что это значит Ааааа smile 


--------------------
Мой первый сайт и моя первая программа!!!!!
PM MAIL ICQ   Вверх
Братец_Горанфло
Дата 12.2.2007, 09:17 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



Профиль
Группа: Участник
Сообщений: 3
Регистрация: 12.2.2007

Репутация: нет
Всего: нет
хорошо, а что делать если имя не известно, а например все динамические компоненты хранятся в динамическом массиве 
Код
Lab:array of TLabel

Как тогда по имени обращаться? 
Код

Lab:=TLabel.Create(Form1);
PM MAIL   Вверх
skyboy
Дата 12.2.2007, 09:24 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


неОпытный
****


Профиль
Группа: Модератор
Сообщений: 9820
Регистрация: 18.5.2006
Где: Днепропетровск

Репутация: 4
Всего: 260
Братец_Горанфло, а зачем тебе имя? удалить вот так:
Код

Lab[41].Destroy;

тебе никто не мешает.
PM MAIL   Вверх
MetalFan
Дата 12.2.2007, 10:49 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Аццкий Сотона
****


Профиль
Группа: Комодератор
Сообщений: 3815
Регистрация: 2.10.2006
Где: Moscow

Репутация: 62
Всего: 128
+ можно использовать TObjectList с OwnsObject = true. тогда если убить его, то автоматом "умрут" все объекты что в него добавлялись)


--------------------
There are always someone smarter than you...
PM MAIL   Вверх
  
 Ответ в темуСоздание новой темы Создание опроса
Правила форума "Delphi: Общие вопросы"
SnowyMetalFan
bemsPoseidon
Rrader

Запрещается!

1. Публиковать ссылки на вскрытые компоненты

2. Обсуждать взлом компонентов и делиться вскрытыми компонентами

  • Литературу по Дельфи обсуждаем здесь
  • Действия модераторов можно обсудить здесь
  • С просьбами о написании курсовой, реферата и т.п. обращаться сюда
  • Вопросы по реализации алгоритмов рассматриваются здесь
  • 90% ответов на свои вопросы можно найти в DRKB (Delphi Russian Knowledge Base) - крупнейшем в рунете сборнике материалов по Дельфи

Если Вам понравилась атмосфера форума, заходите к нам чаще! С уважением, Snowy, MetalFan, bems, Poseidon, Rrader.
 
0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема | Delphi: Общие вопросы | Следующая тема »

Подписаться на тему | Подписка на этот форум | Скачать/Распечатать тему


 




[ Время генерации скрипта: 0.0514 ]   [ Использовано запросов: 22 ]   [ GZIP включён ]


Реклама на сайте     Информационное спонсорство

 
 По вопросам размещения рекламы пишите на vladimir(sobaka)vingrad.ru
Отказ от ответственности     Powered by Invision Power Board(R) 1.3 © 2003  IPS, Inc.