Мастера DELPHI (документация, исходники, скачать)

Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

Удаление TImage [D7, WinXP]

Veter © (2007-05-12 16:48:00)
Добрый день ув. Мастера! Подскажите как можно удалить обьект типа TImage если я описал его таким способом:

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

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

Veter (2007-05-12 18:10:00) [1]
Оо огромное спасибо, почти разобрался =)

{RASkov} (2007-05-12 17:59:00) [2]
> [0] Veter © (12.05.07 16:48)

Если тебе нужно опять мышой(правой кнопкой)
См http://www.delphimaster.ru/cgi-bin/forum.pl?n=7&id=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 17:47:00) [3]
antonn огромное спасибо =) А незнаеш как можна удалить если компонентов много а имена изменяются приставкой к ним числа т.е. Name1..Name2 и т.д. ?

antonn (2007-05-12 17:39:00) [4]
(FindComponent('имя компонента') as TImage).free

Наверх

	« предыдущая ветвь \| форум \| следующая ветвь »