home *** CD-ROM | disk | FTP | other *** search
/ PC Format Collection 48 / SENT14D.ISO / tech / delphi / disk15 / textedit.pak / MDIFRAME.PAS < prev    next >
Encoding:
Pascal/Delphi Source File  |  1995-08-24  |  1.5 KB  |  79 lines
  1. unit MDIFrame;
  2.  
  3. interface
  4.  
  5. uses WinTypes, WinProcs, Classes, Graphics, Controls, Printers,
  6.   Menus, MDIEdit, Dialogs, Forms;
  7.  
  8. type
  9.   TFrameForm = class(TForm)
  10.     OpenFileDialog: TOpenDialog;
  11.     MainMenu1: TMainMenu;
  12.     Open1: TMenuItem;
  13.     Window1: TMenuItem;
  14.     Tile1: TMenuItem;
  15.     Cascade1: TMenuItem;
  16.     ArrangeIcons1: TMenuItem;
  17.     Separator3: TMenuItem;
  18.     procedure NewChild(Sender: TObject);
  19.     procedure OpenChild(Sender: TObject);
  20.     procedure Exit1Click(Sender: TObject);
  21.     procedure Tile1Click(Sender: TObject);
  22.     procedure Cascade1Click(Sender: TObject);
  23.     procedure ArrangeIcons1Click(Sender: TObject);
  24. end;
  25.  
  26. var
  27.   FrameForm: TFrameForm;
  28.  
  29. implementation
  30.  
  31. uses SysUtils;
  32.  
  33. {$R *.DFM}
  34.  
  35. procedure TFrameForm.NewChild(Sender: TObject);
  36. var
  37.   EditForm: TEditForm;
  38. begin
  39.   EditForm := TEditForm.Create(Application);
  40.   EditForm.Show;
  41. end;
  42.  
  43. procedure TFrameForm.OpenChild(Sender: TObject);
  44. var
  45.   EditForm: TEditForm;
  46. begin
  47.   if OpenFileDialog.Execute then
  48.   begin
  49.     EditForm := TEditForm.Create(Self);
  50.     EditForm.Open(OpenFileDialog.Filename);
  51.     EditForm.Show;
  52.   end;
  53. end;
  54.  
  55. procedure TFrameForm.Exit1Click(Sender: TObject);
  56. begin
  57.   Close;
  58. end;
  59.  
  60. procedure TFrameForm.Tile1Click(Sender: TObject);
  61. begin
  62.   Tile;
  63. end;
  64.  
  65. procedure TFrameForm.Cascade1Click(Sender: TObject);
  66. begin
  67.   Cascade;
  68. end;
  69.  
  70. procedure TFrameForm.ArrangeIcons1Click(Sender: TObject);
  71. begin
  72.   ArrangeIcons;
  73. end;
  74.  
  75. end.
  76.  
  77.  
  78. 
  79.