delphi - 同步两个列表框的滚动条

Question

我正在 Delphi 7 中制作一个小项目，并且表单上有 2 个列表框。现在我需要同步这些列表框的滚动条。列表框保证具有相同数量的项目。当用户移动滚动条之一时应进行同步。我想它应该是“执行”方法的东西，但我对它很陌生。

Answer 1

要设置列表框的顶行，请使用TopIndex。

您可以创建一个 TListbox 后代来处理 WM_VSCROLL(如果需要，还可以处理 WM_HSCROLL)。然后您可以连接到此并更新第二个列表框。这是一个例子。我只以一种方式进行 Hook ，因此滚动 listbox2 不会滚动 listbox1。

您需要在表单声明之前将此 TListBox 覆盖添加到您的单元:

TListBox = class(Vcl.StdCtrls.TListBox)
private
  FOnScroll: TNotifyEvent;
protected
  procedure ListBoxScroll(var Message: TMessage); message WM_VSCROLL;
public
  property OnScroll: TNotifyEvent read FOnScroll write FOnScroll;
end;

这会将 OnScroll 事件添加到列表框中。该类的实现:

procedure TListBox.ListBoxScroll(var Message: TMessage);
begin
  inherited;
  if Assigned(FOnScroll) then
    FOnScroll(Self);
end;

然后您可以在代码中连接该事件:

procedure TMyForm.FormCreate(Sender: TObject);
begin
  listbox1.OnScroll := DoScrollListBox1;
end;

DoScrollListBox1 的代码非常简单:

procedure TMyForm.DoScrollListBox1(Sender: TObject);
begin
  listbox2.TopIndex := listbox1.TopIndex;
end;

这通过使用滚动条来处理滚动。您还需要将以下行添加到列表框的 OnClick 中，以便键盘操作也将触发滚动。

procedure TMyForm.ListBox1Click(Sender: TObject);
begin
  ...
  listbox2.TopIndex := listbox1.TopIndex;
  ...
end;