echmchild.pas

来自「帮助编写程序」· PAS 代码 · 共 44 行

unit EchmChild;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  StdCtrls, ComCtrls, cxPC, cxControls, OleCtrls, SHDocVw, 
  Menus, uHtmlEdit;

type
  TEchmChildForm = class(TFrame)
    cxPageControl1: TcxPageControl;
    cxTabSheet2: TcxTabSheet;
    Editor: TRichEdit;
    cxTabSheet3: TcxTabSheet;
    WebBrowser: TWebBrowser;
    cxTabSheet1: TcxTabSheet;
    WebDesign: THtmlEdit;
    procedure EditorMouseDown(Sender: TObject; Button: TMouseButton;
      Shift: TShiftState; X, Y: Integer);
  private

  end;

implementation

uses EchmMain;

{$R *.DFM}

procedure TEchmChildForm.EditorMouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
  if Button = mbRight then
    EchmForm.dxBarPopupMenu.PopupFromCursorPos;
end;



initialization
 RegisterClass(TEchmChildForm); 

end.