IsMasked:boolean

<шаблон>;<переключатель 0/1>;<символ-заполнитель>

L - буква;

l - может быть буква;

А - буква или цифра;

а - может буква или цифра;

С - любой символ;

с - может любой символ;

0 - цифра;

9 - может цифра;

# - может цифра или знаки +, -.

: - разделитель для часов, минут, секунд;

/ - разделитель полей даты;

; - разделитель частей шаблона;

! - подавляет все ведущие пробелы;

> - следующие за ним все буквы преобразуются в заглавные;

< - следующие за ним все буквы преобразуются в строчные;

<> - отменяются все преобразования букв.

ХХ-ХХ-ХХ

Text:string

EditText:string

78-15-64

781564

TStringGrid

Р

ис. 27

RowCount: integer ColCount: integer

FixedRows:integer FixedCols:integer

Height Width

DefaultColWidth 64

DefaultHeight 24

DefaultDrawing: boolean

Color

Cells[<столбец>, <строка>]

Form1.StringGrid1.Cells[StringGrid1.Col, StringGrid1.Row] := ‘стол’;

OnKeyDown

Form1.StringGrid1.Cells[StringGrid1.Col, StringGrid1.Row] := Form1.StringGrid1.Cells[StringGrid1.Col, StringGrid1.Row] + Chr(Key).

Selection

Selection.Left, Selection.Top, Selection.Right, Selection.Bottom

TImage

P

. . .

icture

Image1.Picture.LoadFromFile(‘ ‘);

Stretch:boolean

AutoSize:Boolean

Transparent:boolean

TShape

Shape := (stRectangle, stSquare, stRoundRect, stRoundSquare, stEllipse, stCircle)

Brush

Color

2²⁴

Style bsSolid bsClear

8 Вариантов

Pen

Mode pmBlack pmNotCopy

16 Вариантов

Style psClear psSolid psDash

Width

Листинг 33

procedure TForm1.Button1Click(Sender: TObject);

begin

Shape1.Left := Shape1.Left + 1;

end;

SendToBack

BringToFront

TPageControl

Win32

New Page

TabSheet -> Caption

TabIndex 0

begin

Edit1.Text := ‘переход’;

PageControl1.ActivePageIndex := 1;

end;

PageControl1.ActivePage := TabSheet2;

procedure SelectNextPage(GoForward: Boolean);

TabVisible: Boolean;

Run/Step over (F8)

Run/Trace into (F7)

Run/Run

Run/Run to cursor (F4)

Breakpoint

Run/Add Breakpoint/Add Source Breakpoint (F5)

Р ис. 28

Рис. 29