home *** CD-ROM | disk | FTP | other *** search
/ Delphi Programming Unleashed / Delphi_Programming_Unleashed_SAMS_Publishing_1995.iso / chap20 / twoforms / main.txt < prev    next >
Encoding:
Text File  |  1995-03-21  |  1.8 KB  |  95 lines
  1. object Form1: TForm1
  2.   Left = 205
  3.   Top = 104
  4.   ActiveControl = DBEdit1
  5.   AutoScroll = False
  6.   Caption = 'Two Forms'
  7.   ClientHeight = 194
  8.   ClientWidth = 259
  9.   Font.Color = clWindowText
  10.   Font.Height = -13
  11.   Font.Name = 'System'
  12.   Font.Style = []
  13.   PixelsPerInch = 96
  14.   TextHeight = 16
  15.   object Label1: TLabel
  16.     Left = 48
  17.     Top = 48
  18.     Width = 38
  19.     Height = 16
  20.     Caption = 'Name'
  21.   end
  22.   object Label2: TLabel
  23.     Left = 40
  24.     Top = 80
  25.     Width = 45
  26.     Height = 16
  27.     Caption = 'Capital'
  28.   end
  29.   object Label3: TLabel
  30.     Left = 24
  31.     Top = 112
  32.     Width = 61
  33.     Height = 16
  34.     Caption = 'Continent'
  35.   end
  36.   object DBEdit1: TDBEdit
  37.     Left = 96
  38.     Top = 48
  39.     Width = 121
  40.     Height = 24
  41.     DataField = 'Name'
  42.     DataSource = DataSource1
  43.     MaxLength = 24
  44.     TabOrder = 0
  45.   end
  46.   object DBEdit2: TDBEdit
  47.     Left = 96
  48.     Top = 80
  49.     Width = 121
  50.     Height = 24
  51.     DataField = 'Capital'
  52.     DataSource = DataSource1
  53.     MaxLength = 24
  54.     TabOrder = 1
  55.   end
  56.   object DBEdit3: TDBEdit
  57.     Left = 96
  58.     Top = 112
  59.     Width = 121
  60.     Height = 24
  61.     DataField = 'Continent'
  62.     DataSource = DataSource1
  63.     MaxLength = 24
  64.     TabOrder = 2
  65.   end
  66.   object Detail: TButton
  67.     Left = 80
  68.     Top = 152
  69.     Width = 89
  70.     Height = 33
  71.     Caption = 'Detail'
  72.     TabOrder = 3
  73.     OnClick = DetailClick
  74.   end
  75.   object DBNavigator1: TDBNavigator
  76.     Left = 72
  77.     Top = 8
  78.     Width = 105
  79.     Height = 30
  80.     DataSource = DataSource1
  81.     VisibleButtons = [nbFirst, nbPrior, nbNext, nbLast]
  82.     TabOrder = 4
  83.   end
  84.   object Table1: TTable
  85.     Active = True
  86.     DatabaseName = 'dbdemos'
  87.     TableName = 'COUNTRY'
  88.     Top = 8
  89.   end
  90.   object DataSource1: TDataSource
  91.     DataSet = Table1
  92.     Top = 40
  93.   end
  94. end
  95.