Текущий архив: 2008.04.20;
Скачать: 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 вся ветка

Текущий архив: 2008.04.20;
Скачать: CL | DM;

Наверх

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