обращение к динамически созданным объектам

[Flatterer]

ситуация в общем то бредовая, скажем через цикл создал массив, переменная 'с4' типа интеджер для пордка добавляеться при каждом нажатии клавиши

var
masD: array [1..100] of TSpeedButton;
c4:integer;

c4:=1;

Button1Click(Sender: TObject);
   c4:=c4+1;
    masD[c4]:=TspeedButton.Create(Form1);
    masD[c4].Parent:=form1;
    masD[c4].Width:=20;
    masD[c4].height:=20;
    masD[c4].Left:=160;
    masD[c4].Top:=(c4-1)*32-20;
    masD[c4].Glyph.LoadFromFile('путь к bmp'); // точно ошибка не в пути
    masD[c4].OnClick:=destr;

   

procedure tform1.destr(Sender: TObject);
begin
  masD[c4].Destroy;
  c4:=c4-1;
end;

ну вот собственно задаю процедуру при нажатии которая заключаеться в том что удаляет выбранную динамически созданную кнопку, но я так понимаю что ввиду того, что 'c4' у меня сохраняет максимальное число(т.е. последнее) из-за этого и удаляеться посдний созданный элемент , а вот как прочитать порядковый номер выбранный(на которую курсором тыкнул) что бы удалилась именно эта кнопка ане последняя, какие могут быть предложения?

[veniside]

> какие могут быть предложения?

procedure tform1.destr(Sender: TObject);
begin
  Sender.Free();
  c4:=c4-1;
end;

> добавляеться
> заключаеться
> удаляеться

http://tsya.ru/

[Аватар]

Ага, удаление самого себя в своем обработчике, багов не миновать

[veniside]

во взрослых дельфях должно прокатить, вроде

ну или городить огород с таймером, типа:

procedure tform1.destr(Sender: TObject);
begin
  List.Add(Sender);
end;


procedure tform1.Timer1Tick(Sender: TObject);
begin
  while (0 < List.Count) do begin
    //
    List[0].Free();
    c4:=c4-1;
  end;
end;

[Аватар]

Лучше пользовательское сообщение отправить и в обработчике сообщения удалить

[veniside]

тоже вариант

[Flatterer]

впервые узнал про sender, почитал - благодарю, в данном случае очень помогло,
а вот если у меня параллельно создаеться 1 кнопка,1 лабел и в двумерный массив добавляються массив добавляються данные из файла... как здесь быть? для массива то нужен номер кнопки что бы удалить из него данные...