Динамическое создание компонентов

Версия 20:22, 26 марта 2007

...

Option Explicit
Sub Game15
  Dim St, A(0), F, Creator
  Set Creator = new TCreator
  A(0) = "" &_
    "object usrf_game15: TgdcCreateableForm" & vbCrLf &_
    "  BorderStyle = bsDialog" & vbCrLf &_
    "  ClientWidth = 136" & vbCrLf &_
    "  ClientHeight = 136" & vbCrLf &_
    "  Position = poScreenCenter" & vbCrLf &_
    "  object Field: TPanel" & vbCrLf &_
    "    Left = 4" & vbCrLf &_
    "    Top = 4" & vbCrLf &_
    "    Width = 128" & vbCrLf &_
    "    Height = 128" & vbCrLf &_
    "    BevelInner = bvNone" & vbCrLf &_
    "    BevelOuter = bvLowered" & vbCrLf &_
    "  end" & vbCrLf &_
    "end"
  Set St = Creator.GetObject(A, "TStringStream", "")

  GlobalStorage.WriteInteger "NewForm\usrf_game15", "InternalType", 1
  GlobalStorage.WriteString "NewForm\usrf_game15", "Class", "TgdcCreateableForm"
  GlobalStorage.WriteStream "NewForm\usrf_game15", "dfm", St

  Set F = Creator.GetObject(Application, "usrf_game15", "game15")
  F.ShowModal
End Sub