Закрытие динамически созданной вкладки

[exyl]

Доброго вечера.
Есть динамически создаваемые вкладки типа TTabSheet на пэйджконтроле. На вкладках есть панелька, на ней несколько кнопок, все это тоже создается динамически. Одна из кнопок закрывает вкладку, на которой находится:

(((Sender as TButton).Owner as TPanel).Owner as TTabSheet).Free;

Все это работает вроде бы правильно, но уже после закрытия вылетает акцесс виолейшн.
Конкретно в Vcl.Controls на строке:

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

Это Делфи 10.2.

Т.е. теоретически можно код обработчика кнопки обернуть в try ... except ... end, и при эксепте просто пропускать этот эррор мимо ушей, но это тот еще костыль. Поэтому закономерный вопрос: а как правильно закрывать вкладку, чтоб ошибки такие не ловить?

[Аватар]

Parent сделай вместо Owner. А ваще не хорошо в том числе и себя убивать из своего же метода, я бы пользовательское сообщение послал и уже в нем уничтожил

[exyl]

Попробовал Parent. Та же самая история. А что там по сообщениям? Пример под рукой есть?

[min@y™]

Вместо

(((Sender as TButton).Owner as TPanel).Owner as TTabSheet).Free;

пиши

PageControl.ActivePage.Free();

[exyl]

Сообщение от min@y™

Вместо

(((Sender as TButton).Owner as TPanel).Owner as TTabSheet).Free;

пиши

PageControl.ActivePage.Free();

Не выйдет. Процедура клика по кнопке находится в модуле, который понятия не имеет что там за пейдж контрол и на какой он форме.

[min@y™]

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

Не выйдет. Процедура клика по кнопке находится в модуле, который понятия не имеет что там за пейдж контрол и на какой он форме.

Это чо, проблема? Сделай обаботчик клика кнопки методом формы, на которой PageControl находится. Или передавай указатель на PageControl в свойстве Tag кнопки.

procedure AnyClass.ButtonClick(Sender: TObject);
var
  cmp: TComponent absolute Sender;
  pc: TPageControl;
begin
  // может не работать в 64-битной версии проги, но это неточно.
  pc:= TPageControl(cmp.tag);
  pc.ActivePage.Free();
end;

Если кнопка 1хрен создаётся динамически, то можно вообще добавить в неё пару полей или методов.

Или ещё 100500 способов...

[Аватар]

const SX_MYMESSAGE = WM_USER + 100;
type
  TForm1 = class(TForm)
    PageControl1: TPageControl;
    TabSheet1: TTabSheet;
    TabSheet2: TTabSheet;
    Panel1: TPanel;
    Button1: TButton;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
    procedure SXMyMessage(var Msg: TMessage); message SX_MYMESSAGE;
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.SXMyMessage(var Msg: TMessage);
begin
  TTabSheet(Pointer(Msg.WParam)).Free;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
  PostMessage(Handle,SX_MYMESSAGE,DWORD((Sender as TButton).Parent.Parent),0);
end;

[exyl]

Сообщение от min@y™

Это чо, проблема? Сделай обаботчик клика кнопки методом формы, на которой PageControl находится. Или передавай указатель на PageControl в свойстве Tag кнопки.

procedure AnyClass.ButtonClick(Sender: TObject);
var
  cmp: TComponent absolute Sender;
  pc: TPageControl;
begin
  // может не работать в 64-битной версии проги, но это неточно.
  pc:= TPageControl(cmp.tag);
  pc.ActivePage.Free();
end;

Опять акцесс виолейшн. Добавить-то не проблема, проблема, видимо, в том, что в любом случае клик будет по кнопке, которая будет уничтожать своего родителя.
Вообще говоря, когда я работал в 2007 версии, подобного не было, код функционировал без ошибок.

Аватар, спасибо, буду разбираться.

[Аватар]

код функционировал без ошибок

Повезло, случайно

[min@y™]

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

Опять акцесс виолейшн. Добавить-то не проблема, проблема, видимо, в том, что в любом случае клик будет по кнопке, которая будет уничтожать своего родителя.

Не вижу связи.
Почему у меня-то работает? Что я делаю не так?