home *** CD-ROM | disk | FTP | other *** search
/ SuperHack / SuperHack CD.bin / CODING / DELPHI / GPCLIP.ZIP / SAMPLES.ZIP / FRAME / GPCLIP / SAMPLES / SDI1.PAS < prev    next >
Encoding:
Pascal/Delphi Source File  |  1996-07-30  |  2.0 KB  |  97 lines
  1. unit Sdi1;
  2.  
  3. interface
  4.  
  5. uses
  6.   SysUtils, WinTypes, WinProcs, Messages, Classes, Graphics, Controls,
  7.   Forms, Dialogs, Grids, StdCtrls, Mask, ExtCtrls, TabNotBk, Menus, Gpclip,
  8.   DB, DBTables, DBGrids, DBCtrls;
  9.  
  10. type
  11.   TForm1 = class(TForm)
  12.     TabbedNotebook1: TTabbedNotebook;
  13.     Panel1: TPanel;
  14.     Label2: TLabel;
  15.     Label3: TLabel;
  16.     Label4: TLabel;
  17.     Label5: TLabel;
  18.     Label6: TLabel;
  19.     Edit1: TEdit;
  20.     MaskEdit1: TMaskEdit;
  21.     ComboBox1: TComboBox;
  22.     Memo1: TMemo;
  23.     StringGrid1: TStringGrid;
  24.     gpClipboard: TgpClipboard;
  25.     MainMenu1: TMainMenu;
  26.     File1: TMenuItem;
  27.     Exit1: TMenuItem;
  28.     Edit2: TMenuItem;
  29.     Undo1: TMenuItem;
  30.     N1: TMenuItem;
  31.     Cut1: TMenuItem;
  32.     Copy1: TMenuItem;
  33.     Paste1: TMenuItem;
  34.     Table1: TTable;
  35.     DataSource1: TDataSource;
  36.     Panel2: TPanel;
  37.     Label1: TLabel;
  38.     Label8: TLabel;
  39.     Label9: TLabel;
  40.     Label10: TLabel;
  41.     DBEdit1: TDBEdit;
  42.     DBComboBox1: TDBComboBox;
  43.     DBMemo1: TDBMemo;
  44.     DBGrid1: TDBGrid;
  45.     procedure Exit1Click(Sender: TObject);
  46.     procedure Undo1Click(Sender: TObject);
  47.     procedure Cut1Click(Sender: TObject);
  48.     procedure Copy1Click(Sender: TObject);
  49.     procedure Paste1Click(Sender: TObject);
  50.     procedure FormCreate(Sender: TObject);
  51.   private
  52.     { Private declarations }
  53.   public
  54.     { Public declarations }
  55.   end;
  56.  
  57. var
  58.   Form1: TForm1;
  59.  
  60. implementation
  61.  
  62. {$R *.DFM}
  63.  
  64. procedure TForm1.Exit1Click(Sender: TObject);
  65. begin
  66.   Close;
  67. end;
  68.  
  69. procedure TForm1.Undo1Click(Sender: TObject);
  70. begin
  71.   gpClipboard.Undo;
  72. end;
  73.  
  74. procedure TForm1.Cut1Click(Sender: TObject);
  75. begin
  76.   gpClipboard.Cut;
  77. end;
  78.  
  79. procedure TForm1.Copy1Click(Sender: TObject);
  80. begin
  81.   gpClipboard.Copy;
  82. end;
  83.  
  84. procedure TForm1.Paste1Click(Sender: TObject);
  85. begin
  86.   gpClipboard.Paste;
  87. end;
  88.  
  89. procedure TForm1.FormCreate(Sender: TObject);
  90. begin
  91.   Table1.DatabaseName := ExtractFilePath( paramStr( 0 ) );
  92.   Table1.Open;
  93.   TabbedNotebook1.PageIndex := 0;
  94. end;
  95.  
  96. end.
  97.