Скачать: CL | DM;

Удаление 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)

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

---

← →
Veter ©   (2007-05-12 18:10) [4]

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

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.46 MB
Время: 0.018 c