Удаление динамических компонентов

[PTyTb32]

Кулити! есть панель, на ней кнопка (3шт), на одну из них панель должна убиваться, не долго думая написал

 TSoundPanel = record
    myPanel: tpanel;
    myBtnPlay: tbutton;
    myBtnPause: tbutton;
    myBtnDel: tbutton;
    myLbl: tlabel;
    mypb: TProgressBar;
    fName: string;

. . .

 musics: array of TSoundPanel;
. . .

 if tpanel(tbutton(Sender).Parent).Hint = 'music' then
  begin
      ind := strtoint(tbutton(Sender).Hint); // в хинте хранится индекс массива
      musics[ind].myPanel.Free;                 // убираю панель
      musics[ind].fName := 'nill';                // записываю имя файла как "nill" что бы не удалять элемент массива
  end;

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

[evg_m]

а если ...

      musics[ind].myPanel.Free;                 // убираю панель
      musics[ind].myPanel:=nil;
      musics[ind].fName := 'nill';                // записываю имя файла как "nill" что бы не удалять элемент массива

P.S. вряд ли
смотри https://programmersforum.ru/showthre...highlight=free

[PTyTb32]

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

P.S. вряд ли

да, так не сработает, я нашел решение, и оно помогло, но я все равно не понимаю как так получается, почему на мышку возникает ошибка, а на клавиатуру нет.

[Arigato]

Можно предположить, что при нажатии мышкой возникает цепочка событий. В одном из этих событий удаляется панель, но следом срабатывает другое для уже удаленной панели.

[PTyTb32]

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

срабатывает другое для уже удаленной панели.

да в модуле control

with FTouchManager do
          if (GestureEngine <> nil) and (efMouseEvents in GestureEngine.Flags) then
            GestureEngine.Notification(Message);

ошибка возникает на второй строке, а проверка эта вызывается постоянно пока мышь над формой (с разными параметрами в зависимости от компонента под курсором)

[Arigato]

А если сначала удалить те события, из-за которых возникают ошибки, а после сам компонент?

[PTyTb32]

Arigato, телепортировать мышь в другое место? не уверен что такое решение правильно

[PTyTb32]

я это сделал так

uses
 . . .

 const
  WM_DELCONTROL=WM_USER+100;


type

 . . .
 public
     procedure WMDELCONTROL(var MSg: TMessage); message WM_DELCONTROL;

. . .

procedure TForm1.WMDELCONTROL(var MSg: TMessage);
begin
  TControl(Msg.WParam).Parent.RemoveControl(TControl(Msg.WParam));
  TObject(Msg.WParam).Free;
end;

procedure TForm1.btn_DeleteClick(Sender: TObject);
var
  ind: Integer;
begin
 if tpanel(tbutton(Sender).Parent).Hint = 'music' then
  begin
      ind := strtoint(tbutton(Sender).Hint);
      musics[ind].fName := 'nill';
      PostMessage(Form1.Handle,WM_DELCONTROL,Integer(musics[ind].myPanel as TControl),0);
  end;
end;

[Arigato]

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

телепортировать мышь в другое место?

Просто присвоить событиям nil. К примеру: Button1.OnClick := nil;