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

удаление TShape   Найти похожие ветки 

← →
Veter ©   (2007-05-10 11:57) [0]

Доброго времени суток ув. Мастера. У меня такой вопрос: я создал обьек типа TShape а как сделать чтобы при нажатии на него правой кнопкой мыши он удалялся?
  Заранее спасибо!

---

← →
{RASkov} ©   (2007-05-10 12:08) [1]

Например что нибудь так:
const DELSHAPE = WM_USER+1;
var TmpShape: TShape;
procedure DeleteShape; message DELSHAPE;
begin
 if Assigned(TmpShape) then FreeAndNil(TmpShape);
end;

procedure Form.ShapeMouseUp();
begin
 if Button=mbRight then begin
  TmpShape:=TShape(Sender);
  PostMessage(Handle, DELSHAPE, 0, 0);
 end;
end;

---

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

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



Память: 0.44 MB
Время: 0.027 c