1

在我的应用程序中，我在主窗体上tc_main有TTabControl4 个选项卡和一个vt_mainasTVirtualStringTree停留在它上面。取决于选择的选项卡vt_main，里面可能有不同的标题和数据。对于每个选项卡，我定义了一个不同的数据处理程序。

Tvt_main = record
  column: array of String;
end;

Pvt_tab_equip = ^Tvt_main;
Pvt_tab_insp = ^Tvt_main;
Pvt_tab_certif = ^Tvt_main;
Pvt_tab_doc = ^Tvt_main;

const
  sz_vt_main = SizeOf(Tvt_main);

现在的问题是如何vt_main通过维护来自处理程序的数据在选项卡和刷新视图之间切换，而无需从 sql 重新加载数据。

在我尝试更新标头配置的那一刻，我得到了访问冲突。

我会放一些代码。我希望你明白这一点。

procedure Tform_main.tc_mainChange(Sender: TObject);
begin
  //draw/redraw `vt_main header` each time TabIndex is changed.
  draw_vt_main_header;

  //if content not loaded, then load data from sql.
  if not vt_loaded[tc_main.TabIndex] then draw_vt_main;

  //search for some text
  search;
end;

这是绘制/重绘 VT 标头程序

procedure Tform_main.draw_vt_main_header;
var
  tab_index, i: Word;
begin
  tab_index:= tc_main.TabIndex;

  vt_main.Header.SortColumn:= -1;
  vt_main.Header.Columns.Clear;

  if Length(vt_header[tab_index].column) > 0 then
    for i := 0 to High(vt_header[tab_index].column) do
      if vt_header[tab_index].column[i].position >= 0 then
        with vt_main.Header.Columns.Add do
          begin
            Text:= vt_header[tab_index].column[i].caption;
            Width:= vt_header[tab_index].column[i].width;
            Position:= vt_header[tab_index].column[i].position;

            if vt_header[tab_index].column[i].visible then
              Options:= Options + [coVisible]
            else
              Options:= Options - [coVisible];

            CaptionAlignment:= taCenter;
            Alignment:= vt_header[tab_index].column[i].alignement;
          end;
end;
4

0 回答 0