调整列大小时的Delphi,TVirtualStringTree,WM_SIZE事件

时间:2019-04-29 20:05:44

标签: delphi tvirtualstringtree

我有一个TVirtualStringTree类的后代,它具有自己的自动大小调整列过程。为了使它在控件大小更改时都能正常工作,我已经覆盖了Resize过程:

type
  TMyVirtualStringTree = class(TVirtualStringTree)
  protected
    procedure Resize; override;
  end;
.....
procedure TMyVirtualStringTree.Resize;
var
  cb: Integer;
begin
  inherited;
  if Header.Columns.Count > 0 then
    for cb := 0 to Header.Columns.Count - 1 do
      Header.Columns[cb].Width := round((Width - 20) / Header.Columns.Count);
end;

一切工作正常,但有一件事情:在不更改控件实际大小的情况下手动调整列大小(通过鼠标在标题上)会导致生成具有不同LParam(控件大小)的不需要的WM_SIZE事件。因此,Resize被调用,并且列自动调整它们的宽度,而这并不是我想要的。如何仅在控件宽度实际更改时才能使自动调整大小起作用?

1 个答案:

答案 0 :(得分:3)

您可以添加布尔标志FColumnResize,您可以在True方法中将其设置为DoColumnResize

Resize方法中检查标志,即:

type
  TVirtualStringTree = class(VirtualTrees.TVirtualStringTree)
  protected
    FColumnResize: Boolean;
    procedure Resize; override;
    procedure DoColumnResize(Column: TColumnIndex); override;
  end;

...

procedure TVirtualStringTree.DoColumnResize(Column: TColumnIndex);
begin
  inherited;
  FColumnResize := True;
end;

procedure TVirtualStringTree.Resize;
var
  cb: Integer;
begin
  inherited;
  if not FColumnResize then
  begin 
    Header.Columns.BeginUpdate; { Important: do not trigger OnColumnResize }
    try
      if Header.Columns.Count > 0 then
        for cb := 0 to Header.Columns.Count - 1 do
          Header.Columns[cb].Width := round((Width - 20) / Header.Columns.Count);
    finally
      Header.Columns.EndUpdate;
    end;
  end;
  FColumnResize := False;
end;

除了覆盖DoColumnResize之外,另一个方法可能是覆盖FColumnResize中的TrueDoHeaderMouseDown,然后再回到{{ 1}}。在这种情况下,请在False方法中删除DoHeaderMouseUp