开通博客赚积分
发布资源赚积分
分类

源码开发语言/平台
当前位置：首页 > 电子书籍 > Delphi/CppBuilder > 查看源码
MainFrm.pas
资源名称：Delphi7经典问题解析源代码.rar　[点击查看]
上传用户：psxgmh
上传日期：2013-04-08
资源大小：15112k
文件大小：3k
源码类别：

Delphi/CppBuilder

开发平台：

Delphi

MainFrm.pas：源码内容
  1. unit MainFrm;
  3. interface
  5. uses
  6.   Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  7.   StdCtrls, ExtCtrls, FileMap;
  9. type
  10.   TfrmMain = class(TForm)
  11.     btnWriteMap: TButton;
  12.     btnReadMap: TButton;
  13.     btnClear: TButton;
  14.     chkExistsAlready: TCheckBox;
  15.     chkIsMapOpen: TCheckBox;
  16.     btnOpenMap: TButton;
  17.     btnCloseMap: TButton;
  18.     mmoCont: TMemo;
  19.     chkAutoSynchronize: TCheckBox;
  20.     Label5: TLabel;
  21.     lblHelp: TLabel;
  22.     procedure btnWriteMapClick(Sender: TObject);
  23.     procedure btnReadMapClick(Sender: TObject);
  24.     procedure btnClearClick(Sender: TObject);
  25.     procedure btnOpenMapClick(Sender: TObject);
  26.     procedure btnCloseMapClick(Sender: TObject);
  27.     procedure FormCreate(Sender: TObject);
  28.     procedure chkAutoSynchronizeClick(Sender: TObject);
  29.     procedure mmoContKeyDown(Sender: TObject; var Key: Word;
  30.       Shift: TShiftState);
  31.   private
  32.     //定义TFileMap的对象
  33.     FileMap: TFileMap;
  34.     //定义FileMapChange用于赋给FileMap的OnChange事件
  35.     procedure FileMapChange(Sender: TObject);
  36.     procedure Check;
  37.    { Private declarations }
  38.   public
  39.   { Public declarations }
  40.   end;
  42. var
  43.   frmMain: TfrmMain;
  44. implementation
  46. {$R *.DFM}
  48. //检查FileMap的ExistsAlready和IsMapOpen属性
  49. procedure TfrmMain.Check;
  50. begin
  51.   chkExistsAlready.Checked := FileMap.ExistsAlready;
  52.   chkIsMapOpen.Checked := FileMap.IsMapOpen;
  53. end;
  55. //在窗体创建时，初始化FileMap对象
  56. procedure TfrmMain.FormCreate(Sender: TObject);
  57. begin
  58.   //创建对象FileMap
  59.   FileMap := TFileMap.Create(self);
  60.   FileMap.OnChange := FileMapchange;
  61.   chkAutoSynchronize.Checked := FileMap.AutoSynchronize;
  62.   //如果内存对象还未创建，初始化FileMap里的内容
  63.   if not FileMap.ExistsAlready then
  64.   begin
  65.     MmoCont.Lines.LoadFromFile('Project1.dpr');
  66.     FileMap.MapStrings.Assign(MmoCont.Lines);
  67.   end;
  68.   lblHelp.Caption := '使用说明：运行两个或多个此应用程序，按下“打开内存映射”按钮，'
  69.     + #13 + '选中“是否同步”复选框，在备注框里改动，在另外的应用程序中将会'
  70.     + #13 + '该动后的信息，同时也可以读写数据按钮来获取共享信息'
  71. end;
  73. //写入内存文件映射的数据
  74. procedure TfrmMain.btnWriteMapClick(Sender: TObject);
  75. begin
  76.   FileMap.WriteMap;
  77. end;
  79. //读取内存文件映射的数据
  80. procedure TfrmMain.btnReadMapClick(Sender: TObject);
  81. begin
  82.   FileMap.ReadMap;
  83. end;
  85. //清除内存文件数据
  86. procedure TfrmMain.btnClearClick(Sender: TObject);
  87. begin
  88.   Mmocont.Clear;
  89.   FileMap.MapStrings.Clear;
  90.   check;
  91. end;
  93. //打开内存文件映射
  94. procedure TfrmMain.btnOpenMapClick(Sender: TObject);
  95. begin
  96.   FileMap.MapName := 'Delphi 6 ';
  97.   FileMap.OpenMap;
  98.   check;
  99. end;
  101. //关闭内存映射
  102. procedure TfrmMain.btnCloseMapClick(Sender: TObject);
  103. begin
  104.   FileMap.CloseMap;
  105.   Check;
  106. end;
  108. //当内存映射文件的数据改变时，显示最新数据
  109. procedure TfrmMain.FileMapChange(Sender: TObject);
  110. begin
  111.   Mmocont.Lines.Assign(FileMap.MapStrings);
  112.   Check;
  113. end;
  115. //设置是否同步显示
  116. procedure TfrmMain.chkAutoSynchronizeClick(Sender: TObject);
  117. begin
  118.   FileMap.AutoSynchronize := chkAutoSynchronize.Checked;
  119. end;
  121. //在备注框里写时，同时更新进内存映射文件
  122. procedure TfrmMain.mmoContKeyDown(Sender: TObject; var Key: Word;
  123.   Shift: TShiftState);
  124. begin
  125.   FileMap.MapStrings.Assign(MmoCont.Lines);
  126. end;
  128. end.