удаление TShape [D7, WinXP]
Veter © (2007-05-10 11:57:00)
Доброго времени суток ув. Мастера. У меня такой вопрос: я
создал обьек типа TShape а как сделать чтобы при нажатии на него
правой кнопкой мыши он удалялся?
Заранее спасибо!
{RASkov} (2007-05-10 12:08:00) [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;
Наверх 
ЧАТ |
Орешник |
|
