Удаление компонентов

[SanekIrk]

Привет. При событии MouseDown на форме у меня динамичеки создается компонент TImage. Кликаю 20 раз появляется 20 BITMAPов. Как сделать чтобы при 21-ом клике удалялось именно первое изображение, потом второе и тд. Кто поможет огромное спасибо.

[Greblin]

Можно так же динамически создавать очередь указателей на созданные объекты

[Air]

Хм... ставь условие или счётчик, если > 20 то ..... и удаляешь 1
потом второй, т.е. по порядку.

[SanekIrk]

Как мне их пронумеровать?

или как подсчитать их колличество?

Сообщение от Greblin

Можно так же динамически создавать очередь указателей на созданные объекты

Как это можно реализовать.

[Air]

Дык....
при создании компонента можно в св-ве TAG указать номер.
как создал компонент, присвой ему номер по порядку.
типа
inc(i);
<компонент>.tag:=i;
и всё...

а подсчитать - переменная i будет указывать их кол-во.

[SanekIrk]

Сообщение от Air

Дык....
при создании компонента можно в св-ве TAG указать номер.
как создал компонент, присвой ему номер по порядку.
типа
inc(i);
<компонент>.tag:=i;
и всё...

а подсчитать - переменная i будет указывать их кол-во.

Да я пытался так сделать. Как мне удалить компонент с определенным TAGом.

[Air]

Смотри


это если строго на форме

for i:=0 to form1.ComponentCount do

if form1.ComponentCount > 0 then
 begin
  if form1.Components[i] is TImage then
   if TImage(form1.Components[i]).Tag = <тут нужный тебе номер> then .... удаление.
 end;

это если на панели, если что то другое, то просто замени типы Panel2 на свой.

for i:=0 to form1.Panel2.ControlCount do
 
if form1.Panel2.ControlCount > 0 then
 begin
  if form1.Panel2.Controls[i] is TImage then
  if TImage(form1.Panel2.Controls[i]).Tag = <тут нужный тебе номер> then .... удаление.
 end;

будут вопросы спрашивай.



А можешь просто проверить...

if i > 20 then
if <компонент>.tag= 1 then del
if i > 21 then
if <компонент>.tag= 2 then del
......

это конечно тупо, но очень просто.

[Greblin]

Сообщение от SanekIrk

Как это можно реализовать.

Вот, тут код. Он конечно выглядит пострашнее, чем тот, который предложил Air, но зато не используется перебор компонентов, так что наверно будет быстрее работать

[SERG1980]

Можно попробовать через массив