[M.A.D.M.A.N.]

Ты деструктор не с того потомка можешь дернуть.

С виртуальными методами знаком?

Если нет, то мои комментарии тут излишни.

[Aristarh Dark]

Сообщение от cmepthuk

почему же у меня не работает?! суть что у тебя, что у меня - аналогичны!
давай я тебе личкой отправлю линк на сорсы, может ты свежим взглядом увидишь в чем зарылась ошибка? буду пипец как признателен, если разберемся

Пиши, гляну.

DELETED MESSAGE

DELETED MESSAGE

[M.A.D.M.A.N.]

Нотификация OnClick вызывается с кастом баттона, после того как ты убил сендера, у тебя он становится nil, если смотреть по стеку вызовов, видно, что после отрабатывания твоего OnClick управление передается куда-то в кастом, а он МЕРТВ и с МЕРТВОГО объекта что-то еще дергается, конечно ошибка будет.

DELETED MESSAGE

[Aristarh Dark]

Я вот смотрю код, в твоем проекте валится внутри TPNGButton. Собака порылась именно там. Пока не могу сказать в чем там косяк.
ЗЫЖ Именно по этому я исключительно редко пользуюсь сторонними компонентами.

DELETED MESSAGE

[Aristarh Dark]

Я смотрю фигуры храняться в массиве.
А что мешает сделать массив полем главной формы, а событие OnClick на кнопке уничтожения будет скрывать объект и выставлять флажок о том, что данный объект нужно уничтожить. Главная форма переодически проверяет у кого в массиве стоит флажек и грохает этот компонент.

[poli-smen]

Сообщение от cmepthuk

Знаешь в чем перл?

Код:

Button1: TButton;
...
procedure TmainForm.Button1Click(Sender: TObject);
begin
  Sender.Free;
end;

работает без ошибок в чистом проекте, а в моем нет. Почему?

А если так?:

Код:

procedure TmainForm.Button1Click(Sender: TObject);
var
  pt: Pointer;
  size: Integer;
begin
  pt := Pointer(Sender);
  size := Sender.InstanceSize;
  Sender.Free;
  FillChar(pt^, size, 0);
end;

DELETED MESSAGE

[Pyro]

я бы без создания кнопок попробовал обойтись, например что бы удалить - переместить в угол на значок корзины, а что бы повернуть - пускай правой кнопкой тыкают в нужном направлении