RichEdit

开发平台：

Delphi

Unit1.h：源码内容

							//---------------------------------------------------------------------------
#ifndef Unit1H
#define Unit1H
//---------------------------------------------------------------------------
#include <vclClasses.hpp>
#include <vclControls.hpp>
#include <vclStdCtrls.hpp>
#include <vclForms.hpp>
#include <vclExtCtrls.hpp>
#include "RichView.hpp"
#include "RVScroll.hpp"
#include "RVStyle.hpp"
//---------------------------------------------------------------------------
class TForm1 : public TForm
{
__published:	// IDE-managed Components
    TImage *Image1;
    TLabel *Label1;
    TLabel *Label2;
    TLabel *Label3;
    TRichView *RichView1;
    TPanel *panMouseDown;
    TPanel *panMouseUp;
    TPanel *panRightClick;
    TPanel *panDblClick;
    TRVStyle *RVStyle1;
    void __fastcall RichView1RVDblClick(TCustomRichView *Sender,
    AnsiString ClickedWord, int Style);
    void __fastcall FormCreate(TObject *Sender);
    void __fastcall RichView1RVMouseDown(TCustomRichView *Sender,
    TMouseButton Button, TShiftState Shift, int ItemNo, int X, int Y);
    void __fastcall RichView1RVMouseUp(TCustomRichView *Sender,
    TMouseButton Button, TShiftState Shift, int ItemNo, int X, int Y);
    void __fastcall RichView1RVRightClick(TCustomRichView *Sender,
    AnsiString ClickedWord, int Style, int X, int Y);
private:	// User declarations
    AnsiString MouseInfo(TMouseButton Button, TShiftState Shift, int ItemNo, int X, int Y);
public:		// User declarations
    __fastcall TForm1(TComponent* Owner);
};
//---------------------------------------------------------------------------
extern TForm1 *Form1;
//---------------------------------------------------------------------------
#endif

						