delphi ApplicationEvents1 获取鼠标点击状态

拖放一个 ApplicationEvents1 组件

procedure TForm1.ApplicationEvents1Message(var Msg: tagMSG; var Handled: Boolean);

begin

  if Msg.Message = WM_LBUTTONDOWN then

  begin

    Self.Caption := 'WM_LBUTTONDOWN';

  end

  else if Msg.Message = WM_LBUTTONUP then

  begin

    Self.Caption := 'WM_LBUTTONUP';

  end

end;

end.