Удаление TImage

← →
Veter © (2007-05-12 16:48) [0]

Добрый день ув. Мастера! Подскажите как можно удалить обьект типа TImage если я описал его таким способом:

with TImage.Create(self) do
begin
Picture.LoadFromFile("Image.bmp");
Parent := Panel1;
AutoSize := True;
DragMode := dmAutomatic;
OnDragOver := Panel1DragOver;
OnDragDrop := Panel1DragDrop;
end;

Тоесть обьекта как такового пока нет он создастся только по кнопке с приложения. А вот как его потом удалить?
Заранее спасибо!

← →
antonn © (2007-05-12 17:39) [1]

(FindComponent("имя компонента") as TImage).free

← →
Veter © (2007-05-12 17:47) [2]

antonn огромное спасибо =) А незнаеш как можна удалить если компонентов много а имена изменяются приставкой к ним числа т.е. Name1..Name2 и т.д. ?

← →
{RASkov} © (2007-05-12 17:59) [3]

> [0] Veter © (12.05.07 16:48)

Если тебе нужно опять мышой(правой кнопкой)
См http://delphimaster.net/view/8-1178783833/
Подправь для TImages...
Или вот общий:

const DEL_OBJ = WM_USER+1; type TForm1 = class(TForm) ............. procedure AllMouseUp(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer); private DelObj: TObject; procedure DeleteObject(var Mes: TMessage); message DEL_OBJ; ............. implementation procedure TForm1.DeleteObject(var Mes: TMessage); begin if Assigned(DelObj) then FreeAndNil(DelObj); end; procedure TForm1.AllMouseUp(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer); begin if Button=mbRight then begin DelObj:=Sender; PostMessage(Handle, DEL_OBJ, 0, 0); end; end;
Всем, кого нужно удалять правой кнопкой мыши, пропиши OnMouseUp = AllMouseUp

> [2] Veter © (12.05.07 17:47)

Искать по другим, уникальным для конкретного объекта, параметрам....

Оо огромное спасибо, почти разобрался =)

Удаление TImage Найти похожие ветки