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

源码开发语言/平台
当前位置：首页 > 源码/资料 > Windows编程 > Internet/IE编程 > 查看源码
FormMain.pas
资源名称：__DCOM.rar　[点击查看]
上传用户：etonglee
上传日期：2014-03-01
资源大小：698k
文件大小：1k
源码类别：

Internet/IE编程

开发平台：

Delphi

FormMain.pas：源码内容
  1. unit FormMain;
  3. interface
  5. uses
  6.   Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  7.   Dialogs, Menus, ActnList, ComCtrls, StdActns;
  9. type
  10.   TFrmMain = class(TForm)
  11.     MainMenu: TMainMenu;
  12.     N1: TMenuItem;
  13.     ActionList: TActionList;
  14.     N2: TMenuItem;
  15.     StatusBar: TStatusBar;
  16.     MnWindows: TMenuItem;
  17.     N3: TMenuItem;
  18.     N4: TMenuItem;
  19.     WindowClose1: TWindowClose;
  20.     WindowCascade1: TWindowCascade;
  21.     WindowTileHorizontal1: TWindowTileHorizontal;
  22.     WindowTileVertical1: TWindowTileVertical;
  23.     WindowMinimizeAll1: TWindowMinimizeAll;
  24.     WindowArrange1: TWindowArrange;
  25.     Arrange1: TMenuItem;
  26.     Cascade1: TMenuItem;
  27.     Close1: TMenuItem;
  28.     MinimizeAll1: TMenuItem;
  29.     ileHorizontally1: TMenuItem;
  30.     ileVertically1: TMenuItem;
  31.     procedure N2Click(Sender: TObject);
  32.     procedure N3Click(Sender: TObject);
  33.   private
  34.     { Private declarations }
  35.   public
  36.     { Public declarations }
  37.   end;
  39. var
  40.   FrmMain: TFrmMain;
  42. implementation
  44. uses FormOrder;
  46. {$R *.dfm}
  48. procedure TFrmMain.N2Click(Sender: TObject);
  49. begin
  50.   Close();
  51. end;
  53. procedure TFrmMain.N3Click(Sender: TObject);
  54. begin
  55.   TFrmOrder.ShowOrder();
  56. end;
  58. end.