Android smartphone

2009-10-27

Create form template. And used.

Create form template. And used.

Author: Friend88


Open Delphi program Project1 and Form1 to create and then solve the Property name of Form1 and Form1 is Templete1 Save.
Unit file name is Templeteu.pas. Elements arranged on demand and then Save project as TestTempletep.dpr.
Form elements created by this photo below.

// Feature set as the value 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.

Will look similar to the Form Templete2.Templete we built.
***To note that the derivative TTemplete2 from Class TTemplete1.


No comments: