关于两个Richedit控件同步的实现

最新推荐文章于 2024-09-23 09:41:36 发布

jayqiang

最新推荐文章于 2024-09-23 09:41:36 发布

阅读量1.1k

点赞数

分类专栏：技巧文章文章标签： integer action forms windows class

本文链接：https://blog.csdn.net/jayqiang/article/details/7062672

版权

本文介绍了如何在接收到WM_VSCROLL或WM_MOUSEWHEEL消息时，通过转发消息来实现两个RichEdit控件的同步滚动效果。

摘要由CSDN通过智能技术生成

现有RichEdit1和RichEdit2两个Richedit。当RichEdit1滚动时RichEdit2也跟着滚动。
而触发滚动事件的动作有：1、点击滚动条 2、鼠标滑轮
而我这里使用的办法是监听RichEdit1的消息。当RichEdit1触发

WM_VSCROLL或WM_MOUSEWHEEL消息时，把相同的消息转发给RichEdit2已达到效果

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, ComCtrls;

type
  TForm1 = class(TForm)
    RichEdit1: TRichEdit;
    RichEdit2: TRichEdit;
    procedure FormCreate(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
  private
    FRichEditNewWndProc, FRichEditOldWndProc: Pointer;
    procedure RichEditNewWndProc(var Msg: TMessage);
  public
    { Public declarations }
  end;