frmmenu.pas

来自「你用过ExeScope吗？它是能够将Exe文件中的资源进行查看并修改的工具」· PAS 代码 · 共 58 行

{**************************************************************
*                                                             *
*  Copyright @2002-2003                                       *
*  Author: OuChengSong                                        *
*  Create Date:   2003-1-28                                   *
*                                                             *
*  Descript: 如果选择菜单资源，可将菜单内容模拟下来。         *
*                                                             *
**************************************************************}


unit FrmMenu;

interface

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

type
  TMenuForm = class(TForm)
    mainmenu: TMainMenu;
    N11: TMenuItem;
    N21: TMenuItem;
    N111: TMenuItem;
    N211: TMenuItem;
    procedure FormShow(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  MenuForm: TMenuForm;

implementation

uses
   FrmMain;
{$R *.dfm}

procedure TMenuForm.FormShow(Sender: TObject);
begin
  with MenuForm do
  begin
    SetWindowPos(Handle,HWND_TOPMOST,Left,Top,Width,Height,SWP_SHOWWINDOW);
  end;
end;

procedure TMenuForm.FormClose(Sender: TObject; var Action: TCloseAction);
begin
  MainForm.btnShowCtrl.Click;
end;

end.