Access violation at address 73F0AC38 in module 'comctl32.dll'

[RIO]

Здравствуйте! При использовании компонента TTreeView и этого кода:

procedure ExchangeNodes(TreeView: TTreeView; Node1, Node2: TTreeNode);
var
  N1, N2: TTreeNode;
  M1, M2: TNodeAttachMode;
begin
  if (Node1 = nil) or (Node2 = nil) then
     Exit;
  M1 := NAInsert;
  N1 := Node2.GetNextSibling;
  if N1 = nil then
     if Node2.Parent <> nil then
     begin
        M1 := NAAddChild;
        N1 := Node2.Parent;
     end
     else
        M1 := NAAdd;
  M2 := NAInsert;
  N2 := Node1.GetNextSibling;
  if N2 = nil then
     if Node1.Parent <> nil then
     begin
        M2 := NAAddChild;
        N2 := Node1.Parent;
     end
     else
        M2 := NAAdd;
  Node1.MoveTo(N1, M1);
  Node2.MoveTo(N2, M2);
end;

procedure TBox.UpButtonClick(Sender: TObject);
var
  N1, N2: TTreeNode;
begin
  try
  if TreeView1.Selected.Index = -1 then
     Exit;
  N1 := TreeView1.Selected;
  N2 := TreeView1.Selected.GetPrevSibling;
  if N2 = nil then
     Exit;
  if N1.Parent = N2.Parent then
     ExchangeNodes(TreeView1, N1, N2);
  except
  end;
end;

Который перемещает узлы в дереве, иногда (не всегда) появляется данная ошибка, с чем это может быть связано ?

[artemavd]

Данная может означать, например, что происходит попытка обращения к несуществующему объекту, который быть может еще не создан. Такая шняга часто встречается при работе с такими компонентами как TreeView, ListBox, StatusBar. Если неправильно с ними работать.

[RIO]

А можно как-то эту ошибку перехватить ?

[artemavd]

Я через try...except on EAccessViolation do... делал

[Stilet]

Рекомендую:

procedure TBox.UpButtonClick(Sender: TObject);
var
  N1, N2: TTreeNode;
begin
 TreeView1.Selected=nil then exit;
...

Может у тебя ничего не выбрано

[RIO]

Спасибо Вам Думаю поможет

[artemavd]

Надеемся, что поможет . Ты не первый кто задает этот вопрос.