удаление компонента по его handle

[VintProg]

Добавлять я нашёл а как удалять?

Вот тебе описание:

Класс TList

Класс TList — универсальный список. Он представляет собой массив нетипированных указателей и поэтому годится для хранения набора любых, в том числе разнотипных, данных и объектов. При добавлении/удалении в список данные не создаются и не уничтожаются — эта обязанность лежит на программисте.

Приведем доступные ему методы и свойства класса:

property Items[Index: Integer]: Pointer; Возвращает указатель на содержимое элемента списка с индексом Index. Это свойство является векторным свойством, принимаемым по умолчанию, и его имя можно при записи опускать.

property Count: Integer; Определяет число элементов в списке.

property Capacity: Integer; Определяет максимальное число элементов в списке. Оно может изменяться как явно — пользователем, так и при добавлении элементов в список, в том случае, когда Count>=Capacity. Максимальная емкость списка — 16380 элементов.

Управляют списком следующие методы:

function Add(Item: Pointer): Integer; Добавляет в конец списка элемент, который будет равен Item (т. е. указывать на те же данные).

function Remove(Item: Pointer): Integer; Удаляет из списка элемент, который равен Item.

procedure Insert(Index: Integer; Item: Pointer) ; Вставляет элемент, равный Item, перед элементом с индексом Index.

procedure Delete(Index: Integer); Удаляет из списка элемент с индексом Index.

procedure Clear; Очищает список, устанавливая величины Count и Capacity в 0.

procedure Exchange(Indexl, Index2: Integer); Меняет местами элементы списка с индексами Indexl и Index2.

function Expand: TList; При соблюдении равенства Count=Capacity расширяет список. При емкости списка менее пяти элементов, он по умолчанию расширяется на четыре элемента, при пяти-восьми — на восемь, более восьми — на шестнадцать.

function First: Pointer; function Last: Pointer; Возвращают значения первого п последнего (с индексом Count-1) элементов списка соответственно.

function IndexOf(Item: Pointer): Integer; Возвращает индекс элемента, равного Item.

procedure Move(CurIndex, Newlndex: Integer) ; Перемещает элемент списка с положения Curlndex в положение Newlndex.

procedure Pack; Упаковывает список, сдвигая элементы к началу на пустующие места.

Наконец, если приведенных методов почему-либо недостаточно, то свойство

property List: pPointerList;

pPointerList = ^TPointerList;

TPointerList = array[0..65520 div SizeOf(Pointer)] of Pointer;

возвращает указатель непосредственно на список указателен ((ко) означает, что свойство доступно только для чтения).

[dmitriegorovih]

Спасибо всем кто откликнулся вот как я это сделал

var
  Form1: TForm1;
  kom:Tframe2;
  kom2:Tframe3;
  kom3:Tframe5;
  komn,komn2:int64;
  SearchRec:TSearchRec;
  nagata,pervaya,liniya:boolean;
  x2,y2,pervaya_x,pervaya_y,pervaya2_x,pervaya2_y,obekt:integer;
  Tep,fileot:Tinifile;
  komponent:Tstringlist;
  kartliniya:Tpicture;
  komponentlist:Tlist;
  tempkomponet:Tcomponent;
implementation
{--------------------------------------------------------------}
procedure Tform1.dobavlenienov(karput:string;Owner:Tcomponent;owner2:TwinControl;topnov,leftnov:integer);
var
WindowRgn: HRGN;
kar:Tpicture;
begin
kar:=Tpicture.Create;
kar.LoadFromFile(karput);
 kom2:=TFrame3.Create(Owner);
 komponentlist.Add(kom2);
 kom2.Name:='Frame__'+inttostr(komn2);
 kom2.Tag:=komn2;
 komn2:=komn2+1;
 kom2.Parent:=Owner2;
 kom2.Left:=leftnov;kom2.Top:=topnov;
 kom2.Image1.Picture:=kar;
 kom2.Hint:=extractfilename(karput);
 komponent.Add(inttostr(komn2));
 kom2.Width:=105;
 kom2.Height:=105;
 form1.Image3.Width:=125;
 form1.Image3.Height:=125;
 {
form1.image3.left:=leftnov-10;
form1.image3.top:=topnov-10;
form1.image3.show;      }
 //kom2.Image1.Transparent:=true;
//windowRgn := CreateRgnFromBitmap(kom2.Image1.Picture.Bitmap);
//SetWindowRgn(kom2.Handle, WindowRgn, True);
end;
{------------------------------------------------------------------}
procedure TForm1.FormKeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
if key=46 then begin
tempkomponet:=komponentlist.items[obekt];
FreeAndNil(tempkomponet);

image3.Hide;
end;
end;
{-----------------------------------------------------}
procedure TFrame3.Image1MouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
 nagata:=true;
x2:=x;
y2:=y;
if Parent=form1.sScrollBox1 then begin
form1.image3.left:=left-10;
form1.image3.top:=top-10;
form1.image3.show;
//form1.Image3.SendToBack;
end;
obekt:=tag;
end;

[VintProg]

Что хорошо помогла моя помощь?

[dmitriegorovih]

Что хорошо помогла моя помощь?

Реально! А в этот лист можно что угодно кидать?
А клас pointer я так понимаю всеобщий да?

[VintProg]

А клас pointer я так понимаю всеобщий да?

Да, что угодно можно кидать, указатели на что угодно!

[Stilet]

Вообще-то, господа корнеты, для менеджмента компонентов и контролов придуман TObjectList (наследник TList более приспособленный для обьектов).
Например одно из его преимуществ в том что удаляемый из него обьект не просто выбрасывается из списка, а к тому же вызывается его деструктор, что способствует благой очистки памяти от мусора, чего TList делать не умеет.