delphi - 如何在TListView.OnColumnDragged中找到哪一列被拖动？

Question

TListView 的

OnColumnDragged 事件有一个简单的 TNotifyEvent 类型，因此没有直接的方法可以找到哪一列实际被拖到了 View 中。新的位置。

如何找到哪一列被拖动了？

Answer 1

借助插入类，您可能会发现 HDN_ENDDRAG通知代码在 WM_NOTIFY消息处理程序。

HDN_ENDDRAG通知在 lParam 参数中返回NMHEADER包含有关被拖动的标题项的信息的结构。这是代码示例；您可以关注commented version以及该帖子的内容:

uses
  ComCtrls, CommCtrl;

type
  TListView = class(ComCtrls.TListView)
  private
    procedure WMNotify(var AMessage: TWMNotify); message WM_NOTIFY;
  end;

implementation

{ TListView }

procedure TListView.WMNotify(var AMessage: TWMNotify);
var
  HeaderHandle: HWND;
begin
  inherited;
  if (AMessage.NMHdr^.code = HDN_ENDDRAG) then
  begin
    HeaderHandle := ListView_GetHeader(Handle);
    if (AMessage.NMHdr^.hWndFrom = HeaderHandle) then
    ShowMessage(
      'The header with index ' +
      IntToStr(TWMNotifyHC(AMessage).HDNotify^.Item) + ' ' +
      'has been dragged to the position with index ' +
      IntToStr(TWMNotifyHC(AMessage).HDNotify^.PItem^.iOrder) + '. ' +
      'Columns are not updated yet!');
  end;
end;