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

[dmitriegorovih]

Собствено как это сделать програмно?

[Stilet]

Например:
DestroyWindow(Button1.Handle);

[dmitriegorovih]

Вот и я так делал но не чего не получаеться он его просто прячет.
Вот как я это делал

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:=handle; // записываю в переменную handle
end;
//-------------------------------------------------
procedure TForm1.FormKeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
if key=46 then begin
DestroyWindow(obekt); // по нажатию Delete удаляем

image3.Hide;
end;
end;

Но когда я начал креатить новый фрейм удалённый появляеться

[Stilet]

А зачем ты Дельфийские компоненты таким вульгарным способом удаляешь?
Пиши просто <Имя компонента>:=nil;

[Sanprof]

FreeAndNil(Obj) Obj - это ваш компонент.

[dmitriegorovih]

Если можно то по handle, а то я не могу знать имя удаляевомого фрейма.

[Пепел Феникса]

внутри своей программы не знать имя?
но хендл же вы как то получаете

[dmitriegorovih]

внутри своей программы не знать имя?

Понимаете я создаю новые фреймы и не могу знать какие у них имена во всяком случае как string можно изменить в Twincontrol?

но хендл же вы как то получаете

просто обьявил в главной форме переменную класа HWND а по нажатию на фрейм он просто зная эту переменую...
в #3 сообщения там написанно как я это делал

[VintProg]

dmitriegorovih
Делается это массивом, можно так сделать:

var
MeComp : array[0..250] of TMyComp;

begin
MeComp[0] := TMyComp.create;
...

И удаляй
MeComp[0].free;
[0] - Это и есть хендл


или же пользуйся классом TList;
там можно добавлять объекты
и можно удалять их
и прочее...


end;

[dmitriegorovih]

var
  Form1: TForm1;
  kom: array [0..255] of Tframe2;
  r:integer;
implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
begin
inc(r);
kom[r]:=Tframe2.Create(self);
kom[r].Parent:=self;
end;

При втором клике вот что выдаёт

A component named Frame2 already exists

Я так понимаю это означает что компонент с таким именим уже существует

или же пользуйся классом TList;
там можно добавлять объекты
и можно удалять их

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