mainfrm.~dfm

Delphi面向对象编程思想附书源码 好用哦！

object Form1: TForm1
  Left = 313
  Top = 184
  Width = 579
  Height = 408
  Caption = 'TString'#21450#30456#20851#32452#20214#28436#31034
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  OldCreateOrder = False
  OnClose = FormClose
  OnCreate = FormCreate
  OnDestroy = FormDestroy
  PixelsPerInch = 96
  TextHeight = 13
  object ComboBox1: TComboBox
    Left = 16
    Top = 16
    Width = 193
    Height = 22
    Style = csOwnerDrawVariable
    ItemHeight = 16
    TabOrder = 0
    OnDrawItem = ComboBox1DrawItem
    OnMeasureItem = ComboBox1MeasureItem
  end
  object ListBox1: TListBox
    Left = 336
    Top = 16
    Width = 225
    Height = 345
    Style = lbOwnerDrawVariable
    ItemHeight = 16
    TabOrder = 1
    OnDrawItem = ListBox1DrawItem
    OnMeasureItem = ListBox1MeasureItem
  end
  object btnAdd: TButton
    Left = 232
    Top = 16
    Width = 75
    Height = 25
    Caption = #21152#20837' ->'
    TabOrder = 2
    OnClick = btnAddClick
  end
  object btnDelete: TButton
    Left = 232
    Top = 64
    Width = 75
    Height = 25
    Caption = '<- '#21024#38500
    TabOrder = 3
    OnClick = btnDeleteClick
  end
end