求助各位大侠,用actionlist添加打开文件的行为,
总是到了弹出打开文件的对话框后,让选择文件之后
点击文件,RICHEDIT上没有显示
无法实现打开。
但是添加复制粘贴等acion可以实现操作
感谢

解决方案 »

  1.   

    没编什么程序,因为这些都是定义好的标准行为。
    我只是奇怪,既然和复制粘贴一样,都是标准行为,为什么执行起来复制粘贴可以正常使用
    但是打开文件却不行unit Unit1;interfaceuses
      Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
      Dialogs, StdActns, ActnList, Menus, StdCtrls, ComCtrls;type
      TForm1 = class(TForm)
        MainMenu1: TMainMenu;
        ActionList1: TActionList;
        RichEdit1: TRichEdit;
        EditCut1: TEditCut;
        EditCopy1: TEditCopy;
        EditPaste1: TEditPaste;
        FileOpen1: TFileOpen;
        FileOpenWith1: TFileOpenWith;
        FileSaveAs1: TFileSaveAs;
        N1: TMenuItem;
        Open1: TMenuItem;
        Openwith1: TMenuItem;
        SaveAs1: TMenuItem;
        N2: TMenuItem;
        Copy1: TMenuItem;
        Cut1: TMenuItem;
        Paste1: TMenuItem;
      private
        { Private declarations }
      public
        { Public declarations }
      end;var
      Form1: TForm1;implementation{$R *.dfm}end.