شروع پروژه بازی آنلاین - Delphi XE5 & Intaweb 14.0.32 & TMS Intraweb Component & SQL Server - علاقمندان به ما بپیوندند

[مجید]

فرم پروفایل کاربر (UserProfileForm)
از منوی File گزینه New و سپس ...Other را انتخاب کنید. و مانند تصویر یک فرم جدید که از همان BaseForm ارث بری میکند ایجاد کنید.

[برای مشاهده لینک ها شما باید عضو سایت باشید برای عضویت در سایت بر روی اینجا کلیک بکنید]

نام فرم را به UserProfileForm تغییر داده و Unit آنرا با نام UserProfileUnit ذخیره کنید.
روی فرم 9 عدد TIWLabel قرار دهید و مشخصات آنها را به ترتیب زیر تغییر دهید :

  object IWLabelUsername: TIWLabel [0]
    Left = 40
    Top = 16
    Width = 114
    Height = 16
    Cursor = crAuto
    ParentShowHint = False
    ShowHint = True
    ZIndex = 0
    RenderSize = True
    Alignment = taLeftJustify
    BGColor = clNone
    Font.Color = clNone
    Font.Size = 10
    Font.Style = []
    NoWrap = False
    ConvertSpaces = False
    HasTabOrder = False
    FriendlyName = 'IWLabelUsername'
    Caption = 'IWLabelUsername'
    RawText = False
  end
  object IWLabelTotalPoint: TIWLabel [1]
    Left = 40
    Top = 48
    Width = 113
    Height = 16
    Cursor = crAuto
    ParentShowHint = False
    ShowHint = True
    ZIndex = 0
    RenderSize = True
    Alignment = taLeftJustify
    BGColor = clNone
    Font.Color = clNone
    Font.Size = 10
    Font.Style = []
    NoWrap = False
    ConvertSpaces = False
    HasTabOrder = False
    FriendlyName = 'IWLabelTotalPoint'
    Caption = 'IWLabelTotalPoint'
    RawText = False
  end
  object IWLabelEMail: TIWLabel [2]
    Left = 40
    Top = 32
    Width = 83
    Height = 16
    Cursor = crAuto
    ParentShowHint = False
    ShowHint = True
    ZIndex = 0
    RenderSize = True
    Alignment = taLeftJustify
    BGColor = clNone
    Font.Color = clNone
    Font.Size = 10
    Font.Style = []
    NoWrap = False
    ConvertSpaces = False
    HasTabOrder = False
    FriendlyName = 'IWLabelEMail'
    Caption = 'IWLabelEMail'
    RawText = False
  end
  object IWLabelPoint3: TIWLabel [3]
    Left = 40
    Top = 64
    Width = 89
    Height = 16
    Cursor = crAuto
    ParentShowHint = False
    ShowHint = True
    ZIndex = 0
    RenderSize = True
    Alignment = taLeftJustify
    BGColor = clNone
    Font.Color = clNone
    Font.Size = 10
    Font.Style = []
    NoWrap = False
    ConvertSpaces = False
    HasTabOrder = False
    FriendlyName = 'IWLabelPoint3'
    Caption = 'IWLabelPoint3'
    RawText = False
  end
  object IWLabelPoint4: TIWLabel [4]
    Left = 40
    Top = 80
    Width = 89
    Height = 16
    Cursor = crAuto
    ParentShowHint = False
    ShowHint = True
    ZIndex = 0
    RenderSize = True
    Alignment = taLeftJustify
    BGColor = clNone
    Font.Color = clNone
    Font.Size = 10
    Font.Style = []
    NoWrap = False
    ConvertSpaces = False
    HasTabOrder = False
    FriendlyName = 'IWLabelPoint4'
    Caption = 'IWLabelPoint4'
    RawText = False
  end
  object IWLabelPoint5: TIWLabel [5]
    Left = 40
    Top = 96
    Width = 89
    Height = 16
    Cursor = crAuto
    ParentShowHint = False
    ShowHint = True
    ZIndex = 0
    RenderSize = True
    Alignment = taLeftJustify
    BGColor = clNone
    Font.Color = clNone
    Font.Size = 10
    Font.Style = []
    NoWrap = False
    ConvertSpaces = False
    HasTabOrder = False
    FriendlyName = 'IWLabelPoint5'
    Caption = 'IWLabelPoint5'
    RawText = False
  end
  object IWLabelCount3: TIWLabel [6]
    Left = 40
    Top = 112
    Width = 94
    Height = 16
    Cursor = crAuto
    ParentShowHint = False
    ShowHint = True
    ZIndex = 0
    RenderSize = True
    Alignment = taLeftJustify
    BGColor = clNone
    Font.Color = clNone
    Font.Size = 10
    Font.Style = []
    NoWrap = False
    ConvertSpaces = False
    HasTabOrder = False
    FriendlyName = 'IWLabelCount3'
    Caption = 'IWLabelCount3'
    RawText = False
  end
  object IWLabelCount4: TIWLabel [7]
    Left = 40
    Top = 128
    Width = 94
    Height = 16
    Cursor = crAuto
    ParentShowHint = False
    ShowHint = True
    ZIndex = 0
    RenderSize = True
    Alignment = taLeftJustify
    BGColor = clNone
    Font.Color = clNone
    Font.Size = 10
    Font.Style = []
    NoWrap = False
    ConvertSpaces = False
    HasTabOrder = False
    FriendlyName = 'IWLabelCount4'
    Caption = 'IWLabelCount4'
    RawText = False
  end
  object IWLabelCount5: TIWLabel [8]
    Left = 40
    Top = 144
    Width = 94
    Height = 16
    Cursor = crAuto
    ParentShowHint = False
    ShowHint = True
    ZIndex = 0
    RenderSize = True
    Alignment = taLeftJustify
    BGColor = clNone
    Font.Color = clNone
    Font.Size = 10
    Font.Style = []
    NoWrap = False
    ConvertSpaces = False
    HasTabOrder = False
    FriendlyName = 'IWLabelCount5'
    Caption = 'IWLabelCount5'
    RawText = False
  end