Create form template. And used.
Author: Friend88
Open
Unit file name is Templeteu.pas. Elements arranged on demand and then Save project as TestTempletep.dpr.
Form elements created by this photo below.
object Templete1: TTemplete1
Left = 192
Top = 107
Width = 783
Height = 540
Caption = 'Templete1'
Color = clBtnFace
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -15
Font.Name = 'Tahoma'
Font.Style = [fsBold]
OldCreateOrder = False
DesignSize = (
775
513)
PixelsPerInch = 96
TextHeight = 18
object Panel1: TPanel
Left = 16
Top = 8
Width = 745
Height = 41
Anchors = [akLeft, akTop, akRight]
BevelOuter = bvLowered
Caption = 'Templete'
Color = clBackground
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindow
Font.Height = -15
Font.Name = 'Tahoma'
Font.Style = [fsBold]
ParentFont = False
TabOrder = 0
end
object Panel2: TPanel
Left = 16
Top = 56
Width = 169
Height = 441
Anchors = [akLeft, akTop, akBottom]
BevelInner = bvLowered
TabOrder = 1
object BitBtn1: TBitBtn
Left = 8
Top = 16
Width = 153
Height = 25
Caption = 'Function1'
TabOrder = 0
end
object BitBtn2: TBitBtn
Left = 8
Top = 48
Width = 153
Height = 25
Caption = 'Function2'
TabOrder = 1
end
end
object Memo1: TMemo
Left = 192
Top = 56
Width = 569
Height = 145
Anchors = [akLeft, akTop, akRight]
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -48
Font.Name = 'Tahoma'
Font.Style = [fsBold]
Lines.Strings = (
'Hello!'
'')
ParentFont = False
TabOrder = 2
end
end
//---------------------------------------------------------------------------------------------------
Form to create its next project, go to File -> New -> Other -> then select the page. TestTempletep.
***To note that the derivative TTemplete2 from Class TTemplete1.
No comments:
Post a Comment