Создаю свой VCL на базе TScrollBox для удобной работы с множеством последовательностей ДНК.
type
TSeqPanel = class (TPanel)
protected
editBtn, delBtn:TButton;
procedure Resize; override;
public
constructor Create(AOwner:TComponent); virtual;
destructor Destroy; override;
procedure Resort; virtual;
end;
TSeqBox = class(TScrollBox)
public
EditAction, DelAction:TNotifyEvent;
destructor Destroy; override;
constructor Create(AOwner:TComponent); virtual;
procedure AddPanel(name,hint:string; tag:integer);
procedure DeletePanel(tag:integer);
protected
private
panels:array of TSeqPanel;
end;
Фактически TSeqBox
- контейнер для панелей с кнопками, которые создаются динамически (используется массив panels для хранения объектов). Событию OnClick
кнопок editBtn, delBtn
также динамически присваиваются методы из основной формы:
panels[l].editBtn.OnClick:=EditAction;
panels[l].delBtn.OnClick:=DelAction;
В частности, DelAction
, это:
procedure TForm1.DelSequence(Sender: TObject);
var
l:integer;
begin
l:=(Sender as TButton).Tag;
//тут идёт удаление данных ДНК
seqBox.DeletePanel(l);
end;
Добавлю для полноты картины метод DeletePanel и деструктор TSeqPanel:
procedure TSeqBox.DeletePanel(tag: integer);
var
i:integer;
begin
panels[tag].Free;
if tag < high(panels) then
for I := tag to High(panels)-1 do
panels[i]:=panels[i+1];
SetLength(panels,high(panels));
// код для перерисовки панелей
end;
destructor TSeqPanel.Destroy;
begin
delBtn.Free;
editBtn.Free;
inherited;
end;
Проблема: если я из кода основной формы просто вызываю метод DeletePanel
, необходимая панель замечательно удаляется без ошибок. Если же посредством нажатия кнопки delBtn на панели через вызов события, то вылезает ошибка c0000005 Access violation. Как я понимаю, кнопка delBtn удаляется вместе с родительской панелью раньше, чем происходит какое-то обращение к какому-то методу этой кнопки или панели.
Как тогда правильно организовать передачу события на удвление?