Developer’s Guide

Borland®
™
Delphi 7
for Windows™
Borland Software Corporation
100 Enterprise Way, Scotts Valley, CA 95066-3249
www.borland.com
Refer to the DEPLOY document located in the root directory of your Delphi 7 product for a complete list of files that
you can distribute in accordance with the Delphi 7 License Statement and Limited Warranty.
Borland Software Corporation may have patents and/or pending patent applications covering subject matter in this
document. Please refer to the product CD or the About dialog box for the list of applicable patents. The furnishing of
this document does not give you any license to these patents.
COPYRIGHT © 1983–2002 Borland Software Corporation. All rights reserved. All Borland brand and product names
are trademarks or registered trademarks of Borland Software Corporation in the United States and other countries.
All other marks are the property of their respective owners.
Printed in the U.S.A.
HDE1370WW21001 7E5R0802
0203040506-9 8 7 6 5 4 3 2 1
D3
 Contents
Chapter 1 Using object variables . . . . . . . . . . . . . . 4-7
Creating, instantiating, and destroying
Introduction 1-1 objects . . . . . . . . . . . . . . . . . . . . . . 4-8
What’s in this manual? . . . . . . . . . . . . . . 1-1
Components and ownership . . . . . . . . . 4-9
Manual conventions . . . . . . . . . . . . . . . . 1-2
Defining new classes . . . . . . . . . . . . . . . 4-9
Developer support services . . . . . . . . . . . . 1-3
Using interfaces . . . . . . . . . . . . . . . . . . 4-12
Part I Using interfaces across the hierarchy . . . . 4-13
Using interfaces with procedures . . . . . . 4-14
Programming with Delphi Implementing IInterface . . . . . . . . . . . 4-14
TInterfacedObject . . . . . . . . . . . . . . . 4-15
Chapter 2 Using the as operator with interfaces . . . . 4-16
Developing applications with Delphi 2-1 Reusing code and delegation. . . . . . . . . 4-16
Integrated development environment . . . . . . 2-1 Using implements for delegation . . . . 4-17
Designing applications . . . . . . . . . . . . . . 2-2 Aggregation . . . . . . . . . . . . . . . . 4-18
Creating projects . . . . . . . . . . . . . . . . . . 2-3 Memory management of interface
Editing code . . . . . . . . . . . . . . . . . . . . 2-4 objects. . . . . . . . . . . . . . . . . . . . . 4-18
Compiling applications . . . . . . . . . . . . . . 2-4 Using reference counting . . . . . . . . 4-19
Debugging applications . . . . . . . . . . . . . . 2-5 Not using reference counting . . . . . . 4-20
Deploying applications . . . . . . . . . . . . . . 2-5 Using interfaces in distributed
applications . . . . . . . . . . . . . . . . . 4-21
Chapter 3
Using the component library 3-1 Chapter 5
Understanding the component library . . . . . 3-1 Using BaseCLX 5-1
Properties, methods, and events . . . . . . . 3-3 Using streams . . . . . . . . . . . . . . . . . . . 5-2
Properties . . . . . . . . . . . . . . . . . . 3-3 Using streams to read or write data . . . . . 5-2
Methods . . . . . . . . . . . . . . . . . . 3-4 Stream methods for reading
Events . . . . . . . . . . . . . . . . . . . . 3-4 and writing . . . . . . . . . . . . . . . 5-2
User events . . . . . . . . . . . . . . . . . 3-4 Reading and writing components . . . 5-3
System events . . . . . . . . . . . . . . . 3-4 Reading and writing strings . . . . . . . 5-3
Internal events . . . . . . . . . . . . . . . 3-4 Copying data from one stream
Objects, components, and controls . . . . . . . . 3-5 to another. . . . . . . . . . . . . . . . . . . 5-4
TObject branch . . . . . . . . . . . . . . . . . 3-6 Specifying the stream position and size. . . 5-4
TPersistent branch . . . . . . . . . . . . . . . 3-7 Seeking to a specific position . . . . . . 5-4
TComponent branch . . . . . . . . . . . . . . 3-7 Using Position and Size properties . . . 5-5
TControl branch . . . . . . . . . . . . . . . . 3-9 Working with files . . . . . . . . . . . . . . . . 5-5
TWinControl/TWidgetControl branch . . . 3-10 Approaches to file I/O . . . . . . . . . . . . 5-6
Using file streams . . . . . . . . . . . . . . . 5-6
Chapter 4 Creating and opening files using
Using the object model 4-1 file streams . . . . . . . . . . . . . . . 5-7
What is an object? . . . . . . . . . . . . . . . . . 4-1 Using the file handle . . . . . . . . . . . 5-8
Examining a Delphi object . . . . . . . . . . 4-2 Manipulating files . . . . . . . . . . . . . . . 5-8
Changing the name of a component . . . . . 4-4 Deleting a file . . . . . . . . . . . . . . . 5-8
Inheriting data and code from an object. . . . . 4-5 Finding a file . . . . . . . . . . . . . . . 5-8
Scope and qualifiers . . . . . . . . . . . . . . . . 4-5 Renaming a file . . . . . . . . . . . . . . 5-10
Private, protected, public, and published File date-time routines . . . . . . . . . . 5-10
declarations . . . . . . . . . . . . . . . . . . 4-6 Copying a file . . . . . . . . . . . . . . . 5-11

iii
Working with ini files and the system Creating a simple conversion family
Registry . . . . . . . . . . . . . . . . . . . . . 5-11 and adding units. . . . . . . . . . . . . . . 5-34
Using TIniFile and TMemIniFile . . . . 5-12 Declare variables . . . . . . . . . . . . . 5-35
Using TRegistryIniFile . . . . . . . . . 5-13 Register the conversion family . . . . . 5-35
Using TRegistry . . . . . . . . . . . . . 5-13 Register measurement units . . . . . . . 5-35
Working with lists . . . . . . . . . . . . . . . . 5-14 Use the new units . . . . . . . . . . . . . 5-35
Common list operations . . . . . . . . . . . 5-15 Using a conversion function . . . . . . . . . 5-36
Adding list items . . . . . . . . . . . . 5-15 Declare variables . . . . . . . . . . . . . 5-36
Deleting list items . . . . . . . . . . . . 5-15 Register the conversion family . . . . . 5-36
Accessing list items . . . . . . . . . . . 5-16 Register the base unit . . . . . . . . . . 5-36
Rearranging list items . . . . . . . . . . 5-16 Write methods to convert to and
Persistent lists. . . . . . . . . . . . . . . . . 5-16 from the base unit . . . . . . . . . . . . 5-36
Working with string lists . . . . . . . . . . . . 5-17 Register the other units . . . . . . . . . 5-37
Loading and saving string lists . . . . . . . 5-17 Use the new units . . . . . . . . . . . . . 5-37
Creating a new string list . . . . . . . . . . 5-18 Using a class to manage conversions . . . . 5-37
Short-term string lists . . . . . . . . . . 5-18 Creating the conversion class . . . . . . 5-38
Long-term string lists . . . . . . . . . . 5-18 Declare variables . . . . . . . . . . . . . 5-39
Manipulating strings in a list . . . . . . . . 5-20 Register the conversion family and
Counting the strings in a list . . . . . . 5-20 the other units . . . . . . . . . . . . . . 5-39
Accessing a particular string . . . . . . 5-20 Use the new units . . . . . . . . . . . . . 5-40
Locating items in a string list . . . . . . 5-20 Defining custom variants . . . . . . . . . . . . 5-40
Iterating through strings in a list . . . . 5-20 Storing a custom variant type’s data . . . . 5-41
Adding a string to a list . . . . . . . . . 5-21 Creating a class to enable the
Moving a string within a list . . . . . . 5-21 custom variant type . . . . . . . . . . . . . 5-42
Deleting a string from a list . . . . . . . 5-21 Enabling casting . . . . . . . . . . . . . 5-42
Associating objects with a Implementing binary operations . . . . 5-44
string list . . . . . . . . . . . . . . . . 5-22 Implementing comparison
Working with strings . . . . . . . . . . . . . . 5-22 operations . . . . . . . . . . . . . . . . 5-46
Wide character routines . . . . . . . . . . . 5-22 Implementing unary operations . . . . 5-47
Commonly used long string routines . . . 5-23 Copying and clearing custom variants . . . 5-48
Commonly used routines for Loading and saving custom
null-terminated strings. . . . . . . . . . . 5-26 variant values . . . . . . . . . . . . . . 5-49
Declaring and initializing strings . . . . . . 5-27 Using the TCustomVariantType
Mixing and converting string types . . . . 5-28 descendant . . . . . . . . . . . . . . . . 5-50
String to PChar conversions. . . . . . . . . 5-28 Writing utilities to work with a
String dependencies . . . . . . . . . . . 5-29 custom variant type . . . . . . . . . . . . . 5-50
Returning a PChar local variable . . . 5-29 Supporting properties and methods
Passing a local variable as in custom variants . . . . . . . . . . . . . . 5-51
a PChar . . . . . . . . . . . . . . . . . 5-29 Using TInvokeableVariantType . . . . . 5-51
Compiler directives for strings . . . . . . . 5-30 Using TPublishableVariantType . . . . 5-53
Creating drawing spaces . . . . . . . . . . . . 5-31
Printing . . . . . . . . . . . . . . . . . . . . . . 5-32 Chapter 6
Converting measurements . . . . . . . . . . . 5-33 Working with components 6-1
Performing conversions . . . . . . . . . . . 5-33 Setting component properties . . . . . . . . . . 6-2
Performing simple conversions . . . . 5-33 Setting properties at design time . . . . . . 6-2
Performing complex conversions . . . 5-33 Using property editors . . . . . . . . . . 6-3
Adding new measurement types . . . . . . 5-34 Setting properties at runtime. . . . . . . . . 6-3
Calling methods. . . . . . . . . . . . . . . . . . 6-3

iv
Working with events and event handlers . . . . 6-3 Adding graphics to controls . . . . . . . . . . . 7-13
Generating a new event handler . . . . . . . 6-4 Indicating that a control is
Generating a handler for a owner-drawn. . . . . . . . . . . . . . . . . 7-13
component’s default event . . . . . . . . . 6-4 Adding graphical objects to
Locating event handlers . . . . . . . . . . . . 6-4 a string list . . . . . . . . . . . . . . . . . . 7-14
Associating an event with an existing Adding images to an application . . . . 7-14
event handler . . . . . . . . . . . . . . . . . 6-5 Adding images to a string list . . . . . . 7-14
Using the Sender parameter . . . . . . . 6-5 Drawing owner-drawn items . . . . . . 7-15
Displaying and coding shared Sizing owner-draw items . . . . . . . . . . . 7-16
events . . . . . . . . . . . . . . . . . . . 6-5 Drawing owner-draw items . . . . . . . . . 7-17
Associating menu events with
event handlers . . . . . . . . . . . . . . . . 6-6 Chapter 8
Deleting event handlers . . . . . . . . . . . . 6-6 Building applications, components,
Cross-platform and non-cross-platform
components . . . . . . . . . . . . . . . . . . . . 6-7
and libraries 8-1
Creating applications . . . . . . . . . . . . . . . 8-1
Adding custom components to the
GUI applications. . . . . . . . . . . . . . . . 8-2
Component palette . . . . . . . . . . . . . . 6-9
User interface models . . . . . . . . . . 8-2
SDI applications . . . . . . . . . . . . . 8-2
Chapter 7 MDI applications . . . . . . . . . . . . . 8-2
Working with controls 7-1 Setting IDE, project, and compiler
Implementing drag and drop in controls . . . . 7-1 options . . . . . . . . . . . . . . . . . . 8-3
Starting a drag operation . . . . . . . . . . . 7-1 Programming templates . . . . . . . . . . . 8-3
Accepting dragged items . . . . . . . . . . . 7-2 Console applications . . . . . . . . . . . . . 8-4
Dropping items . . . . . . . . . . . . . . . . . 7-3 Service applications . . . . . . . . . . . . . . 8-5
Ending a drag operation. . . . . . . . . . . . 7-3 Service threads . . . . . . . . . . . . . . 8-8
Customizing drag and drop with Service name properties . . . . . . . . . 8-9
a drag object. . . . . . . . . . . . . . . . . . 7-3 Debugging service applications . . . . . 8-10
Changing the drag mouse pointer . . . . . . 7-4 Creating packages and DLLs . . . . . . . . . . 8-11
Implementing drag and dock in controls . . . . 7-4 When to use packages and DLLs . . . . . . 8-11
Making a windowed control a Writing database applications . . . . . . . . . . 8-12
docking site . . . . . . . . . . . . . . . . . . 7-4 Distributing database applications . . . . . 8-13
Making a control a dockable child . . . . . . 7-5 Creating Web server applications . . . . . . . . 8-13
Controlling how child controls Creating Web Broker applications . . . . . . 8-14
are docked . . . . . . . . . . . . . . . . . . . 7-5 Creating WebSnap applications . . . . . . . 8-15
Controlling how child controls Creating Web Services applications . . . . . 8-15
are undocked . . . . . . . . . . . . . . . . . 7-6 Writing applications using COM . . . . . . . . 8-16
Controlling how child controls respond Using COM and DCOM . . . . . . . . . . . 8-16
to drag-and-dock operations . . . . . . . . 7-6 Using MTS and COM+ . . . . . . . . . . . . 8-16
Working with text in controls. . . . . . . . . . . 7-6 Using data modules . . . . . . . . . . . . . . . 8-17
Setting text alignment . . . . . . . . . . . . . 7-7 Creating and editing standard data
Adding scroll bars at runtime . . . . . . . . . 7-7 modules. . . . . . . . . . . . . . . . . . . . 8-17
Adding the clipboard object. . . . . . . . . . 7-8 Naming a data module and
Selecting text . . . . . . . . . . . . . . . . . . 7-9 its unit file . . . . . . . . . . . . . . . . 8-18
Selecting all text . . . . . . . . . . . . . . . . 7-9 Placing and naming components . . . . 8-19
Cutting, copying, and pasting text . . . . . 7-10 Using component properties and
Deleting selected text . . . . . . . . . . . . 7-10 events in a data module . . . . . . . . 8-19
Disabling menu items . . . . . . . . . . . . 7-11 Creating business rules in a
Providing a pop-up menu . . . . . . . . . . 7-11 data module . . . . . . . . . . . . . . . 8-20
Handling the OnPopup event. . . . . . . . 7-12

v
 Accessing a data module from a form . . . 8-20 Chapter 9
Adding a remote data module to an
application server project . . . . . . . . . 8-21
Developing the application
Using the Object Repository . . . . . . . . . . 8-21 user interface 9-1
Sharing items within a project . . . . . . . 8-21 Controlling application behavior . . . . . . . . 9-1
Adding items to the Object Working at the application level . . . . . . . 9-2
Repository . . . . . . . . . . . . . . . . . . 8-22 Handling the screen . . . . . . . . . . . . . . 9-2
Sharing objects in a team Setting up forms. . . . . . . . . . . . . . . . . . 9-3
environment. . . . . . . . . . . . . . . . . 8-22 Using the main form . . . . . . . . . . . . . 9-3
Using an Object Repository item in Hiding the main form. . . . . . . . . . . . . 9-3
a project . . . . . . . . . . . . . . . . . . . 8-22 Adding forms . . . . . . . . . . . . . . . . . 9-4
Copying an item . . . . . . . . . . . . . 8-22 Linking forms . . . . . . . . . . . . . . . 9-4
Inheriting an item . . . . . . . . . . . . 8-23 Avoiding circular unit references . . . . 9-4
Using an item . . . . . . . . . . . . . . 8-23 Managing layout . . . . . . . . . . . . . . . 9-5
Using project templates . . . . . . . . . . . 8-23 Using forms . . . . . . . . . . . . . . . . . . . . 9-6
Modifying shared items . . . . . . . . . . . 8-23 Controlling when forms reside
Specifying a default project, new form, in memory . . . . . . . . . . . . . . . . . . 9-6
and main form . . . . . . . . . . . . . . . 8-24 Displaying an auto-created form . . . . 9-6
Enabling Help in applications . . . . . . . . . 8-24 Creating forms dynamically . . . . . . . 9-7
Help system interfaces . . . . . . . . . . . . 8-25 Creating modeless forms such
Implementing ICustomHelpViewer . . . . 8-25 as windows . . . . . . . . . . . . . . . 9-8
Communicating with the Help Creating a form instance using
Manager . . . . . . . . . . . . . . . . . . . 8-26 a local variable . . . . . . . . . . . . . 9-8
Asking the Help Manager for Passing additional arguments to forms . . . 9-8
information . . . . . . . . . . . . . . . . . 8-26 Retrieving data from forms. . . . . . . . . . 9-9
Displaying keyword-based Help . . . . . . 8-27 Retrieving data from modeless
Displaying tables of contents . . . . . . . . 8-28 forms . . . . . . . . . . . . . . . . . . . 9-9
Implementing IExtendedHelpViewer . . . 8-28 Retrieving data from modal forms . . . 9-11
Implementing IHelpSelector . . . . . . . . 8-29 Reusing components and groups of
Registering Help system objects . . . . . . 8-30 components . . . . . . . . . . . . . . . . . . . 9-13
Registering Help viewers . . . . . . . . 8-30 Creating and using component
Registering Help selectors . . . . . . . 8-30 templates . . . . . . . . . . . . . . . . . . . . . 9-13
Using Help in a VCL application. . . . . . . . 8-31 Working with frames . . . . . . . . . . . . . . . 9-14
How TApplication processes Creating frames . . . . . . . . . . . . . . . . 9-14
VCL Help . . . . . . . . . . . . . . . . . . 8-31 Adding frames to the Component
How VCL controls process Help . . . . . . 8-31 palette . . . . . . . . . . . . . . . . . . . . . 9-15
Using Help in a CLX application. . . . . . . . 8-32 Using and modifying frames. . . . . . . . . 9-15
How TApplication processes Sharing frames. . . . . . . . . . . . . . . . . 9-16
CLX Help . . . . . . . . . . . . . . . . . . 8-32 Developing dialog boxes . . . . . . . . . . . . . 9-17
How CLX controls process Help . . . . . . 8-32 Using open dialog boxes . . . . . . . . . . . 9-17
Calling a Help system directly . . . . . . . . . 8-33 Organizing actions for toolbars
Using IHelpSystem . . . . . . . . . . . . . . . 8-33 and menus . . . . . . . . . . . . . . . . . . . . 9-18
Customizing the IDE Help system . . . . . . . 8-34 What is an action? . . . . . . . . . . . . . . . 9-19
Setting up action bands . . . . . . . . . . . . 9-20

vi
 Creating toolbars and menus . . . . . . . . 9-20 Manipulating menu items at runtime . . . . 9-44
Adding color, patterns, or pictures Merging menus . . . . . . . . . . . . . . . . 9-44
to menus, buttons, and toolbars . . . 9-22 Specifying the active menu: Menu
Adding icons to menus and property . . . . . . . . . . . . . . . . . 9-45
toolbars . . . . . . . . . . . . . . . . . 9-22 Determining the order of merged menu
Selecting menu and toolbar styles . . . 9-23 items: GroupIndex property . . . . . . 9-45
Creating dynamic menus . . . . . . . . 9-24 Importing resource files . . . . . . . . . . . 9-45
Creating toolbars and menus that Designing toolbars and cool bars . . . . . . . . 9-46
users can customize . . . . . . . . . . 9-24 Adding a toolbar using a panel
Hiding unused items and categories component . . . . . . . . . . . . . . . . . . 9-47
in action bands . . . . . . . . . . . . . 9-24 Adding a speed button to a panel . . . 9-47
Creating most recently used Assigning a speed button’s glyph . . . 9-48
(MRU) lists . . . . . . . . . . . . . . . 9-25 Setting the initial condition of a
Using action lists . . . . . . . . . . . . . . . . . 9-26 speed button . . . . . . . . . . . . . . . 9-48
Setting up action lists . . . . . . . . . . . . 9-26 Creating a group of speed buttons . . . 9-48
What happens when an action fires . . . . 9-27 Allowing toggle buttons . . . . . . . . . 9-49
Responding with events . . . . . . . . 9-27 Adding a toolbar using the toolbar
How actions find their targets . . . . . 9-29 component . . . . . . . . . . . . . . . . . . 9-49
Updating actions . . . . . . . . . . . . . . . 9-29 Adding a tool button . . . . . . . . . . . 9-49
Predefined action classes . . . . . . . . . . 9-30 Assigning images to tool buttons . . . . 9-50
Writing action components . . . . . . . . . 9-31 Setting tool button appearance and
Registering actions . . . . . . . . . . . . . . 9-31 initial conditions . . . . . . . . . . . . 9-50
Creating and managing menus. . . . . . . . . 9-32 Creating groups of tool buttons . . . . . 9-51
Opening the Menu Designer . . . . . . . . 9-33 Allowing toggled tool buttons . . . . . 9-51
Building menus . . . . . . . . . . . . . . . . 9-34 Adding a cool bar component . . . . . . . . 9-51
Naming menus . . . . . . . . . . . . . 9-34 Setting the appearance of the
Naming the menu items . . . . . . . . 9-34 cool bar . . . . . . . . . . . . . . . . . . 9-52
Adding, inserting, and deleting Responding to clicks . . . . . . . . . . . . . 9-52
menu items . . . . . . . . . . . . . . . 9-35 Assigning a menu to a tool button . . . 9-52
Adding separator bars . . . . . . . . . 9-36 Adding hidden toolbars . . . . . . . . . . . 9-53
Specifying accelerator keys and Hiding and showing toolbars . . . . . . . . 9-53
keyboard shortcuts . . . . . . . . . . 9-36 Demo programs . . . . . . . . . . . . . . . . 9-53
Creating submenus. . . . . . . . . . . . . . 9-37 Common controls and XP themes. . . . . . . . 9-54
Creating submenus by demoting
existing menus . . . . . . . . . . . . . 9-37 Chapter 10
Moving menu items . . . . . . . . . . . 9-38 Types of controls 10-1
Adding images to menu items . . . . . 9-38 Text controls . . . . . . . . . . . . . . . . . . . . 10-1
Viewing the menu . . . . . . . . . . . . 9-39 Edit controls . . . . . . . . . . . . . . . . . . 10-1
Editing menu items in the Object Memo and rich edit controls . . . . . . 10-2
Inspector . . . . . . . . . . . . . . . . . . . 9-39 Text viewing controls . . . . . . . . . . . . . 10-3
Using the Menu Designer context Labels . . . . . . . . . . . . . . . . . . . . . . 10-3
menu . . . . . . . . . . . . . . . . . . . . . 9-40 Specialized input controls . . . . . . . . . . . . 10-4
Commands on the context menu . . . 9-40 Scroll bars . . . . . . . . . . . . . . . . . . . 10-4
Switching between menus at Track bars. . . . . . . . . . . . . . . . . . . . 10-5
design time . . . . . . . . . . . . . . . 9-41 Up-down controls . . . . . . . . . . . . . . . 10-5
Using menu templates . . . . . . . . . . . . 9-41 Spin edit controls (CLX only) . . . . . . . . 10-5
Saving a menu as a template . . . . . . . . 9-43 Hot key controls (VCL only) . . . . . . . . . 10-6
Naming conventions for template Splitter controls . . . . . . . . . . . . . . . . 10-6
menu items and event handlers . . . 9-44

vii
Buttons and similar controls . . . . . . . . . . 10-6 Using ModelMaker views . . . . . . . . . . . . 11-4
Button controls . . . . . . . . . . . . . . . . 10-7 Collections pane . . . . . . . . . . . . . . . . 11-5
Bitmap buttons . . . . . . . . . . . . . . . . 10-7 Classes view . . . . . . . . . . . . . . . . 11-5
Speed buttons. . . . . . . . . . . . . . . . . 10-8 Units view . . . . . . . . . . . . . . . . . 11-5
Check boxes . . . . . . . . . . . . . . . . . . 10-8 Diagrams view . . . . . . . . . . . . . . 11-6
Radio buttons . . . . . . . . . . . . . . . . . 10-8 Members pane . . . . . . . . . . . . . . . . . 11-7
Toolbars . . . . . . . . . . . . . . . . . . . . 10-9 Editors pane . . . . . . . . . . . . . . . . . . 11-7
Cool bars (VCL only). . . . . . . . . . . . . 10-9 Implementation Editor . . . . . . . . . . 11-7
List controls. . . . . . . . . . . . . . . . . . . . 10-9 Unit Code Editor . . . . . . . . . . . . . 11-8
List boxes and check-list boxes . . . . . . . 10-10 Diagram Editor . . . . . . . . . . . . . . 11-9
Combo boxes . . . . . . . . . . . . . . . . . 10-11 Other Editors . . . . . . . . . . . . . . . 11-9
Tree views . . . . . . . . . . . . . . . . . . . 10-11 For more information. . . . . . . . . . . . . . 11-10
List views . . . . . . . . . . . . . . . . . . . 10-12
Icon views (CLX only) . . . . . . . . . . . . 10-12 Chapter 12
Date-time pickers and month Working with graphics and
calendars. . . . . . . . . . . . . . . . . . . 10-12
Grouping controls . . . . . . . . . . . . . . . . 10-12
multimedia 12-1
Overview of graphics programming . . . . . . 12-1
Group boxes and radio groups . . . . . . . 10-13
Refreshing the screen . . . . . . . . . . . . . 12-2
Panels . . . . . . . . . . . . . . . . . . . . . 10-13
Types of graphic objects . . . . . . . . . . . 12-3
Scroll boxes . . . . . . . . . . . . . . . . . . 10-13
Common properties and methods
Tab controls . . . . . . . . . . . . . . . . . . 10-14
of Canvas . . . . . . . . . . . . . . . . . . . 12-4
Page controls . . . . . . . . . . . . . . . . . 10-14
Using the properties of the Canvas
Header controls. . . . . . . . . . . . . . . . 10-14
object . . . . . . . . . . . . . . . . . . . . . 12-5
Display controls . . . . . . . . . . . . . . . . . 10-15
Using pens . . . . . . . . . . . . . . . . 12-5
Status bars. . . . . . . . . . . . . . . . . . . 10-15
Using brushes . . . . . . . . . . . . . . . 12-8
Progress bars . . . . . . . . . . . . . . . . . 10-15
Reading and setting pixels . . . . . . . 12-9
Help and hint properties . . . . . . . . . . 10-16
Using Canvas methods to draw
Grids. . . . . . . . . . . . . . . . . . . . . . . . 10-16
graphic objects . . . . . . . . . . . . . . . 12-10
Draw grids . . . . . . . . . . . . . . . . . . 10-16
Drawing lines and polylines . . . . . 12-10
String grids . . . . . . . . . . . . . . . . . . 10-16
Drawing shapes . . . . . . . . . . . . . 12-11
Value list editors (VCL only) . . . . . . . . . . 10-17
Handling multiple drawing objects
Graphic controls . . . . . . . . . . . . . . . . . 10-18
in your application . . . . . . . . . . . . 12-12
Images . . . . . . . . . . . . . . . . . . . . . 10-18
Keeping track of which drawing
Shapes . . . . . . . . . . . . . . . . . . . . . 10-18
tool to use . . . . . . . . . . . . . . . 12-12
Bevels . . . . . . . . . . . . . . . . . . . . . 10-18
Changing the tool with speed
Paint boxes . . . . . . . . . . . . . . . . . . 10-19
buttons . . . . . . . . . . . . . . . . . 12-13
Animation control . . . . . . . . . . . . . . 10-19
Using drawing tools . . . . . . . . . . 12-14
Drawing on a graphic . . . . . . . . . . . . 12-16
Chapter 11 Making scrollable graphics . . . . . . 12-17
Designing classes and Adding an image control . . . . . . . 12-17
components with ModelMaker 11-1 Loading and saving graphics files . . . . . 12-19
ModelMaker fundamentals . . . . . . . . . . . 11-2 Loading a picture from a file . . . . . 12-19
ModelMaker models . . . . . . . . . . . . . 11-2 Saving a picture to a file . . . . . . . . 12-20
Using ModelMaker with the IDE . . . . . . 11-2 Replacing the picture . . . . . . . . . . 12-20
Creating models . . . . . . . . . . . . . . . 11-3

viii
 Using the clipboard with graphics . . . . . 12-21 Executing thread objects . . . . . . . . . . . . 13-12
Copying graphics to the Overriding the default priority . . . . . . 13-12
clipboard . . . . . . . . . . . . . . . . 12-22 Starting and stopping threads . . . . . . . 13-12
Cutting graphics to the clipboard . . . 12-22 Debugging multi-threaded applications . . . 13-13
Pasting graphics from the Naming a thread. . . . . . . . . . . . . . . 13-13
clipboard . . . . . . . . . . . . . . . . 12-23 Converting an unnamed thread
Rubber banding example . . . . . . . . . . 12-24 to a named thread . . . . . . . . . . 13-13
Responding to the mouse . . . . . . . . 12-24 Assigning separate names to
Responding to a mouse-down similar threads . . . . . . . . . . . . 13-15
action . . . . . . . . . . . . . . . . . . 12-25
Adding a field to a form object to Chapter 14
track mouse actions . . . . . . . . . . 12-27 Exception handling 14-1
Refining line drawing . . . . . . . . . . 12-28 Defining protected blocks . . . . . . . . . . . . 14-2
Working with multimedia . . . . . . . . . . . 12-30 Writing the try block . . . . . . . . . . . . . 14-2
Adding silent video clips to an Raising an exception . . . . . . . . . . . 14-3
application. . . . . . . . . . . . . . . . . . 12-30 Writing exception handlers. . . . . . . . . . 14-4
Example of adding silent Exception-handling statements . . . . . 14-4
video clips . . . . . . . . . . . . . . . 12-31 Handling classes of exceptions . . . . . 14-6
Adding audio and/or video clips to Scope of exception handlers . . . . . . . 14-6
an application . . . . . . . . . . . . . . . . 12-32 Reraising exceptions . . . . . . . . . . . 14-7
Example of adding audio and/or Writing finally blocks . . . . . . . . . . . . . 14-8
video clips (VCL only) . . . . . . . . 12-33 Writing a finally block . . . . . . . . . . 14-9
Handling exceptions in VCL
Chapter 13 applications . . . . . . . . . . . . . . . . . . . 14-9
Writing multi-threaded applications 13-1 VCL exception classes . . . . . . . . . . . 14-10
Defining thread objects . . . . . . . . . . . . . 13-2 Default exception handling in VCL . . . . 14-11
Initializing the thread . . . . . . . . . . . . 13-3 Silent exceptions. . . . . . . . . . . . . . . 14-12
Assigning a default priority . . . . . . 13-3 Defining your own VCL exceptions. . . . 14-13
Indicating when threads are freed . . . 13-4
Writing the thread function . . . . . . . . . 13-4 Chapter 15
Using the main VCL/CLX thread . . . 13-4 Developing cross-platform
Using thread-local variables . . . . . . 13-6
Checking for termination by other
applications 15-1
Creating CLX applications . . . . . . . . . . . . 15-2
threads . . . . . . . . . . . . . . . . . 13-6
Porting VCL applications . . . . . . . . . . . . 15-2
Handling exceptions in the thread
Porting techniques . . . . . . . . . . . . . . 15-2
function . . . . . . . . . . . . . . . . . 13-6
Platform-specific ports . . . . . . . . . . 15-3
Writing clean-up code . . . . . . . . . . . . 13-7
Cross-platform ports . . . . . . . . . . . 15-3
Coordinating threads . . . . . . . . . . . . . . 13-7
Windows emulation ports . . . . . . . . 15-3
Avoiding simultaneous access . . . . . . . 13-7
Modifying VCL applications . . . . . . . . . 15-4
Locking objects . . . . . . . . . . . . . 13-8
WinCLX versus VisualCLX. . . . . . . . . . 15-5
Using critical sections . . . . . . . . . . 13-8
What VisualCLX does differently . . . . 15-6
Using the multi-read exclusive-write
Features that do not port directly
synchronizer . . . . . . . . . . . . . . 13-8
or are missing . . . . . . . . . . . . . . . . 15-7
Other techniques for sharing
Comparing WinCLX and
memory . . . . . . . . . . . . . . . . . 13-9
VisualCLX units . . . . . . . . . . . . . . . 15-8
Waiting for other threads . . . . . . . . . . 13-9
Differences in CLX object constructors . . 15-11
Waiting for a thread to finish
Handling system and widget events . . . 15-12
executing . . . . . . . . . . . . . . . . 13-10
Waiting for a task to be
completed . . . . . . . . . . . . . . . 13-10

ix
 Writing portable code . . . . . . . . . . . . 15-12 Editing package source files
Using conditional directives . . . . . . 15-13 manually . . . . . . . . . . . . . . . . . . 16-10
Terminating conditional Compiling packages . . . . . . . . . . . . 16-10
directives . . . . . . . . . . . . . . . . 15-14 Package-specific compiler
Including inline assembler code . . . . 15-15 directives . . . . . . . . . . . . . . . . 16-11
Programming differences on Linux . . . . 15-16 Compiling and linking from the
Transferring applications between command line . . . . . . . . . . . . . 16-13
Windows and Linux . . . . . . . . . . . . . . 15-17 Package files created when
Sharing source files between compiling . . . . . . . . . . . . . . . 16-13
Windows and Linux . . . . . . . . . . . . 15-17 Deploying packages . . . . . . . . . . . . . . 16-14
Environmental differences between Deploying applications that use
Windows and Linux . . . . . . . . . . . . 15-18 packages . . . . . . . . . . . . . . . . . . 16-14
Registry . . . . . . . . . . . . . . . . . . 15-20 Distributing packages to other
Look and feel . . . . . . . . . . . . . . . 15-20 developers . . . . . . . . . . . . . . . . . 16-14
Directory structure on Linux . . . . . . . . 15-20 Package collection files . . . . . . . . . . . 16-14
Cross-platform database applications . . . . . 15-21
dbExpress differences . . . . . . . . . . . . 15-22 Chapter 17
Component-level differences . . . . . . . . 15-22 Creating international applications 17-1
User interface-level differences . . . . . . . 15-23 Internationalization and localization . . . . . . 17-1
Porting database applications Internationalization . . . . . . . . . . . . . . 17-1
to Linux . . . . . . . . . . . . . . . . . . . 15-24 Localization . . . . . . . . . . . . . . . . . . 17-2
Updating data in dbExpress Internationalizing applications . . . . . . . . . 17-2
applications . . . . . . . . . . . . . . . . . 15-26 Enabling application code . . . . . . . . . . 17-2
Cross-platform Internet applications . . . . . 15-28 ~Character sets . . . . . . . . . . . . . . 17-2
Porting Internet applications OEM and ANSI character sets . . . . . 17-3
to Linux . . . . . . . . . . . . . . . . . . . 15-28 Multibyte character sets . . . . . . . . . 17-3
Wide characters . . . . . . . . . . . . . . 17-4
Chapter 16 Including bi-directional functionality
Working with packages and in applications . . . . . . . . . . . . . . 17-4
components 16-1 BiDiMode property . . . . . . . . . . . . 17-4
Why use packages? . . . . . . . . . . . . . . . 16-2 Locale-specific features . . . . . . . . . 17-7
Packages and standard DLLs . . . . . . . . 16-2 Designing the user interface . . . . . . . . . 17-7
Runtime packages . . . . . . . . . . . . . . . . 16-3 Text . . . . . . . . . . . . . . . . . . . . . 17-7
Loading packages in an application . . . . 16-3 Graphic images . . . . . . . . . . . . . . 17-8
Loading packages with the Formats and sort order . . . . . . . . . . 17-8
LoadPackage function . . . . . . . . . . 16-4 Keyboard mappings . . . . . . . . . . . 17-8
Deciding which runtime packages Isolating resources. . . . . . . . . . . . . . . 17-8
to use . . . . . . . . . . . . . . . . . . . . . 16-4 Creating resource DLLs. . . . . . . . . . . . 17-9
Custom packages . . . . . . . . . . . . . . . 16-5 Using resource DLLs . . . . . . . . . . . . 17-10
Design-time packages . . . . . . . . . . . . . . 16-5 Dynamic switching of resource DLLs . . . 17-11
Installing component packages . . . . . . . 16-6 Localizing applications . . . . . . . . . . . . . 17-12
Creating and editing packages . . . . . . . . . 16-7 Localizing resources. . . . . . . . . . . . . 17-12
Creating a package . . . . . . . . . . . . . . 16-7
Editing an existing package . . . . . . . . . 16-8
Understanding the structure of
a package . . . . . . . . . . . . . . . . . . 16-8
Naming packages . . . . . . . . . . . . 16-8
Requires clause . . . . . . . . . . . . . 16-9
Contains clause . . . . . . . . . . . . . 16-9

x
Chapter 18 Transactions . . . . . . . . . . . . . . . . . . 19-4
Referential integrity, stored procedures,
Deploying applications 18-1 and triggers. . . . . . . . . . . . . . . . . . 19-5
Deploying general applications . . . . . . . . 18-1
Database architecture. . . . . . . . . . . . . . . 19-6
Using installation programs. . . . . . . . . 18-2
General structure . . . . . . . . . . . . . . . 19-6
Identifying application files . . . . . . 18-2
The user interface form . . . . . . . . . 19-6
Application files . . . . . . . . . . . . . 18-3
The data module . . . . . . . . . . . . . 19-6
Package files . . . . . . . . . . . . . . . 18-3
Connecting directly to a database
Merge modules . . . . . . . . . . . . . 18-3
server . . . . . . . . . . . . . . . . . . . . . 19-8
ActiveX controls . . . . . . . . . . . . . 18-5
Using a dedicated file on disk . . . . . . . . 19-9
Helper applications . . . . . . . . . . . 18-5
Connecting to another dataset . . . . . . . 19-10
DLL locations . . . . . . . . . . . . . . 18-6
Connecting a client dataset to another
Deploying CLX applications . . . . . . . . . . 18-6
dataset in the same application . . . 19-12
Deploying database applications. . . . . . . . 18-6
Using a multi-tiered architecture . . . 19-13
Deploying dbExpress database
Combining approaches . . . . . . . . . . . 19-14
applications . . . . . . . . . . . . . . . . . 18-7
Designing the user interface . . . . . . . . . . 19-15
Deploying BDE applications . . . . . . . . 18-8
Analyzing data . . . . . . . . . . . . . . . 19-15
Borland Database Engine . . . . . . . . 18-8
Writing reports. . . . . . . . . . . . . . . . 19-16
Deploying multi-tiered database
applications (DataSnap) . . . . . . . . . . 18-9
Deploying Web applications . . . . . . . . . . 18-9
Chapter 20
Deploying on Apache servers . . . . . . . 18-10 Using data controls 20-1
Enabling modules . . . . . . . . . . . . 18-10 Using common data control features . . . . . . 20-2
CGI applications . . . . . . . . . . . . . 18-11 Associating a data control with
Programming for varying host a dataset . . . . . . . . . . . . . . . . . . . 20-3
environments . . . . . . . . . . . . . . . . . . 18-12 Changing the associated dataset
Screen resolutions and color depths . . . . 18-12 at runtime . . . . . . . . . . . . . . . . 20-4
Considerations when not Enabling and disabling the data
dynamically resizing . . . . . . . . . 18-12 source . . . . . . . . . . . . . . . . . . 20-4
Considerations when dynamically Responding to changes mediated
resizing forms and controls . . . . . . 18-13 by the data source . . . . . . . . . . . 20-4
Accommodating varying Editing and updating data . . . . . . . . . . 20-5
color depths . . . . . . . . . . . . . . 18-14 Enabling editing in controls on
Fonts . . . . . . . . . . . . . . . . . . . . . . 18-14 user entry . . . . . . . . . . . . . . . . 20-5
Operating systems versions . . . . . . . . . 18-15 Editing data in a control . . . . . . . . . 20-5
Software license requirements . . . . . . . . . 18-15 Disabling and enabling data display . . . . 20-6
DEPLOY . . . . . . . . . . . . . . . . . . . . 18-15 Refreshing data display. . . . . . . . . . . . 20-7
README . . . . . . . . . . . . . . . . . . . 18-16 Enabling mouse, keyboard, and
No-nonsense license agreement . . . . . . 18-16 timer events . . . . . . . . . . . . . . . . . 20-7
Third-party product documentation . . . . 18-16 Choosing how to organize the data . . . . . . . 20-7
Displaying a single record . . . . . . . . . . 20-7
Part II Displaying data as labels . . . . . . . . 20-8
Displaying and editing fields in
Developing database applications an edit box . . . . . . . . . . . . . . . . 20-8
Displaying and editing text in a
Chapter 19 memo control . . . . . . . . . . . . . . 20-9
Designing database applications 19-1 Displaying and editing text in a rich
Using databases . . . . . . . . . . . . . . . . . 19-1 edit memo control . . . . . . . . . . . 20-9
Types of databases . . . . . . . . . . . . . . 19-2 Displaying and editing graphics
Database security. . . . . . . . . . . . . . . 19-4 fields in an image control . . . . . . 20-10

xi
 Displaying and editing data in list Component overview . . . . . . . . . . . . . . 21-4
and combo boxes . . . . . . . . . . . 20-10 VCL/CLX components . . . . . . . . . . . . 21-4
Handling Boolean field values Engine components . . . . . . . . . . . 21-4
with check boxes . . . . . . . . . . . . 20-13 Render components . . . . . . . . . . . 21-4
Restricting field values with Data connection components . . . . . . 21-4
radio controls . . . . . . . . . . . . . . 20-14 Rave project component . . . . . . . . . 21-5
Displaying multiple records. . . . . . . . . 20-14 Reporting components . . . . . . . . . . . . 21-5
Viewing and editing data with TDBGrid . . . 20-15 Project components . . . . . . . . . . . . 21-5
Using a grid control in its default Data objects . . . . . . . . . . . . . . . . 21-5
state . . . . . . . . . . . . . . . . . . . . . 20-16 Standard components . . . . . . . . . . 21-5
Creating a customized grid . . . . . . . . . 20-17 Drawing components . . . . . . . . . . 21-5
Understanding persistent Report components . . . . . . . . . . . . 21-6
columns . . . . . . . . . . . . . . . . . 20-17 Bar code components . . . . . . . . . . 21-6
Creating persistent columns . . . . . . 20-18 Getting more information . . . . . . . . . . . . 21-6
Deleting persistent columns . . . . . . 20-19
Arranging the order of persistent Chapter 22
columns . . . . . . . . . . . . . . . . . 20-19 Using decision support
Setting column properties at
design time . . . . . . . . . . . . . . . 20-20
components 22-1
Overview . . . . . . . . . . . . . . . . . . . . . 22-1
Defining a lookup list column . . . . . 20-21
About crosstabs . . . . . . . . . . . . . . . . . . 22-2
Putting a button in a column . . . . . . 20-22
One-dimensional crosstabs. . . . . . . . . . 22-3
Restoring default values to
Multidimensional crosstabs . . . . . . . . . 22-3
a column . . . . . . . . . . . . . . . . 20-22
Guidelines for using decision support
Displaying ADT and array fields . . . . . . 20-22
components . . . . . . . . . . . . . . . . . . . 22-4
Setting grid options . . . . . . . . . . . . . 20-24
Using datasets with decision support
Editing in the grid . . . . . . . . . . . . . . 20-26
components . . . . . . . . . . . . . . . . . . . 22-5
Controlling grid drawing . . . . . . . . . . 20-26
Creating decision datasets with
Responding to user actions
TQuery or TTable . . . . . . . . . . . . . . 22-6
at runtime . . . . . . . . . . . . . . . . . . 20-27
Creating decision datasets with the
Creating a grid that contains other
Decision Query editor. . . . . . . . . . . . 22-6
data-aware controls . . . . . . . . . . . . . . 20-28
Using decision cubes . . . . . . . . . . . . . . . 22-7
Navigating and manipulating records. . . . . 20-29
Decision cube properties and events . . . . 22-7
Choosing navigator buttons to
Using the Decision Cube editor . . . . . . . 22-8
display . . . . . . . . . . . . . . . . . . . . 20-30
Viewing and changing dimension
Hiding and showing navigator
settings . . . . . . . . . . . . . . . . . . 22-8
buttons at design time . . . . . . . . . 20-30
Setting the maximum available
Hiding and showing navigator
dimensions and summaries . . . . . . 22-9
buttons at runtime . . . . . . . . . . . 20-31
Viewing and changing design
Displaying fly-over help. . . . . . . . . . . 20-31
options . . . . . . . . . . . . . . . . . . 22-9
Using a single navigator for multiple
Using decision sources . . . . . . . . . . . . . . 22-9
datasets . . . . . . . . . . . . . . . . . . . 20-32
Properties and events . . . . . . . . . . . . . 22-9
Using decision pivots. . . . . . . . . . . . . . 22-10
Chapter 21 Decision pivot properties. . . . . . . . . . 22-10
Creating reports with Rave Reports 21-1 Creating and using decision grids . . . . . . 22-11
Overview . . . . . . . . . . . . . . . . . . . . . 21-1 Creating decision grids . . . . . . . . . . . 22-11
Getting started . . . . . . . . . . . . . . . . . . 21-2 Using decision grids . . . . . . . . . . . . 22-11
The Rave Visual Designer. . . . . . . . . . . . 21-3 Opening and closing decision
grid fields . . . . . . . . . . . . . . . 22-11

xii
 Reorganizing rows and columns in Obtaining metadata. . . . . . . . . . . . . . . 23-13
decision grids . . . . . . . . . . . . . 22-12 Listing available tables . . . . . . . . . . . 23-14
Drilling down for detail in Listing the fields in a table . . . . . . . . . 23-14
decision grids . . . . . . . . . . . . . 22-12 Listing available stored procedures . . . . 23-14
Limiting dimension selection in Listing available indexes . . . . . . . . . . 23-14
decision grids . . . . . . . . . . . . . 22-12 Listing stored procedure parameters . . . 23-15
Decision grid properties . . . . . . . . . . . 22-12
Creating and using decision graphs . . . . . . 22-13 Chapter 24
Creating decision graphs . . . . . . . . . . 22-13 Understanding datasets 24-1
Using decision graphs . . . . . . . . . . . . 22-14 Using TDataSet descendants . . . . . . . . . . 24-2
The decision graph display . . . . . . . . . 22-15 Determining dataset states. . . . . . . . . . . . 24-3
Customizing decision graphs . . . . . . . . 22-16 Opening and closing datasets . . . . . . . . . . 24-4
Setting decision graph template Navigating datasets. . . . . . . . . . . . . . . . 24-5
defaults . . . . . . . . . . . . . . . . . 22-17 Using the First and Last methods . . . . . . 24-6
Customizing decision graph Using the Next and Prior methods . . . . . 24-7
series . . . . . . . . . . . . . . . . . . 22-18 Using the MoveBy method . . . . . . . . . . 24-7
Decision support components at Using the Eof and Bof properties . . . . . . 24-8
runtime . . . . . . . . . . . . . . . . . . . . . 22-19 Eof . . . . . . . . . . . . . . . . . . . . . 24-8
Decision pivots at runtime . . . . . . . . . 22-19 Bof . . . . . . . . . . . . . . . . . . . . . 24-9
Decision grids at runtime . . . . . . . . . . 22-19 Marking and returning to records . . . . . . 24-9
Decision graphs at runtime . . . . . . . . . 22-20 The Bookmark property . . . . . . . . . 24-9
Decision support components and The GetBookmark method . . . . . . 24-10
memory control . . . . . . . . . . . . . . . . 22-20 The GotoBookmark and
Setting maximum dimensions, BookmarkValid methods . . . . . . . 24-10
summaries, and cells . . . . . . . . . . . . 22-20 The CompareBookmarks method . . 24-10
Setting dimension state . . . . . . . . . . . 22-21 The FreeBookmark method . . . . . . 24-10
Using paged dimensions . . . . . . . . . . 22-21 A bookmarking example . . . . . . . 24-10
Searching datasets . . . . . . . . . . . . . . . 24-11
Chapter 23 Using Locate . . . . . . . . . . . . . . . . . 24-11
Connecting to databases 23-1 Using Lookup . . . . . . . . . . . . . . . . 24-12
Using implicit connections . . . . . . . . . . . 23-2 Displaying and editing a subset of data
Controlling connections . . . . . . . . . . . . . 23-3 using filters . . . . . . . . . . . . . . . . . . 24-13
Connecting to a database server . . . . . . 23-3 Enabling and disabling filtering . . . . . . 24-13
Disconnecting from a database server . . . 23-4 Creating filters . . . . . . . . . . . . . . . . 24-13
Controlling server login . . . . . . . . . . . . . 23-4 Setting the Filter property . . . . . . . 24-14
Managing transactions . . . . . . . . . . . . . 23-6 Writing an OnFilterRecord
Starting a transaction . . . . . . . . . . . . 23-7 event handler . . . . . . . . . . . . . 24-15
Ending a transaction . . . . . . . . . . . . . 23-8 Switching filter event handlers
Ending a successful transaction . . . . 23-8 at runtime . . . . . . . . . . . . . . . 24-16
Ending an unsuccessful Setting filter options. . . . . . . . . . . . . 24-16
transaction . . . . . . . . . . . . . . . 23-9 Navigating records in a filtered
Specifying the transaction dataset . . . . . . . . . . . . . . . . . . . 24-16
isolation level . . . . . . . . . . . . . . . . 23-9 Modifying data . . . . . . . . . . . . . . . . . 24-17
Sending commands to the server . . . . . . . 23-10 Editing records. . . . . . . . . . . . . . . . 24-18
Working with associated datasets . . . . . . . 23-12 Adding new records . . . . . . . . . . . . 24-19
Closing all datasets without Inserting records . . . . . . . . . . . . 24-19
disconnecting from the server. . . . . . . 23-12 Appending records . . . . . . . . . . . 24-20
Iterating through the associated Deleting records . . . . . . . . . . . . . . . 24-20
datasets . . . . . . . . . . . . . . . . . . . 23-13 Posting data . . . . . . . . . . . . . . . . . 24-21

xiii
 Canceling changes . . . . . . . . . . . . . . 24-21 Using parameters in queries . . . . . . . . 24-45
Modifying entire records . . . . . . . . . . 24-22 Supplying parameters at design
Calculating fields . . . . . . . . . . . . . . . . 24-23 time . . . . . . . . . . . . . . . . . . . 24-45
Types of datasets . . . . . . . . . . . . . . . . . 24-24 Supplying parameters at runtime . . 24-47
Using table type datasets . . . . . . . . . . . . 24-25 Establishing master/detail relationships
Advantages of using table type using parameters . . . . . . . . . . . . . 24-47
datasets . . . . . . . . . . . . . . . . . . . 24-26 Preparing queries . . . . . . . . . . . . . . 24-48
Sorting records with indexes . . . . . . . . 24-26 Executing queries that don’t return
Obtaining information about a result set . . . . . . . . . . . . . . . . . 24-49
indexes . . . . . . . . . . . . . . . . . 24-27 Using unidirectional result sets . . . . . . 24-49
Specifying an index with Using stored procedure-type datasets . . . . 24-50
IndexName . . . . . . . . . . . . . . . 24-27 Working with stored procedure
Creating an index with parameters . . . . . . . . . . . . . . . . . 24-51
IndexFieldNames . . . . . . . . . . . 24-28 Setting up parameters at
Using Indexes to search for records . . . . 24-28 design time . . . . . . . . . . . . . . 24-52
Executing a search with Goto Using parameters at runtime . . . . . 24-54
methods . . . . . . . . . . . . . . . . . 24-29 Preparing stored procedures . . . . . . . . 24-55
Executing a search with Find Executing stored procedures that don’t
methods . . . . . . . . . . . . . . . . . 24-30 return a result set . . . . . . . . . . . . . 24-55
Specifying the current record after Fetching multiple result sets . . . . . . . . 24-56
a successful search . . . . . . . . . . . 24-30
Searching on partial keys . . . . . . . . 24-30 Chapter 25
Repeating or extending a search . . . . 24-30 Working with field components 25-1
Limiting records with ranges . . . . . . . . 24-31 Dynamic field components . . . . . . . . . . . 25-2
Understanding the differences Persistent field components . . . . . . . . . . . 25-3
between ranges and filters . . . . . . 24-31 Creating persistent fields . . . . . . . . . . . 25-4
Specifying ranges . . . . . . . . . . . . 24-31 Arranging persistent fields . . . . . . . . . . 25-5
Modifying a range . . . . . . . . . . . . 24-34 Defining new persistent fields . . . . . . . . 25-5
Applying or canceling a range . . . . . 24-34 Defining a data field . . . . . . . . . . . 25-6
Creating master/detail relationships. . . . 24-35 Defining a calculated field . . . . . . . . 25-7
Making the table a detail of Programming a calculated field . . . . . 25-8
another dataset . . . . . . . . . . . . . 24-35 Defining a lookup field . . . . . . . . . 25-9
Using nested detail tables . . . . . . . 24-37 Defining an aggregate field . . . . . . 25-10
Controlling Read/write access Deleting persistent field components . . . 25-11
to tables . . . . . . . . . . . . . . . . . . . 24-38 Setting persistent field properties
Creating and deleting tables . . . . . . . . 24-38 and events . . . . . . . . . . . . . . . . . 25-11
Creating tables . . . . . . . . . . . . . . 24-38 Setting display and edit properties
Deleting tables . . . . . . . . . . . . . . 24-41 at design time . . . . . . . . . . . . . 25-11
Emptying tables . . . . . . . . . . . . . . . 24-41 Setting field component properties
Synchronizing tables . . . . . . . . . . . . . 24-42 at runtime . . . . . . . . . . . . . . . 25-13
Using query-type datasets . . . . . . . . . . . 24-42 Creating attribute sets for field
Specifying the query . . . . . . . . . . . . . 24-43 components . . . . . . . . . . . . . . 25-13
Specifying a query using the Associating attribute sets with field
SQL property . . . . . . . . . . . . . . 24-44 components . . . . . . . . . . . . . . 25-14
Specifying a query using the Removing attribute associations . . . 25-14
CommandText property . . . . . . . 24-44 Controlling and masking
user input . . . . . . . . . . . . . . . 25-15

xiv
 Using default formatting for numeric, Chapter 26
date, and time fields . . . . . . . . . . 25-15
Handling events . . . . . . . . . . . . . 25-16
Using the Borland Database Engine 26-1
BDE-based architecture. . . . . . . . . . . . . . 26-1
Working with field component methods
Using BDE-enabled datasets . . . . . . . . . 26-2
at runtime . . . . . . . . . . . . . . . . . . . . 25-17
Associating a dataset with database
Displaying, converting, and accessing
and session connections . . . . . . . . 26-3
field values . . . . . . . . . . . . . . . . . . . 25-18
Caching BLOBs . . . . . . . . . . . . . . 26-4
Displaying field component values in
Obtaining a BDE handle . . . . . . . . . 26-4
standard controls . . . . . . . . . . . . . . 25-18
Using TTable . . . . . . . . . . . . . . . . . . 26-5
Converting field values . . . . . . . . . . . 25-19
Specifying the table type for local
Accessing field values with the default
tables . . . . . . . . . . . . . . . . . . . 26-5
dataset property . . . . . . . . . . . . . . 25-20
Controlling read/write access to
Accessing field values with a dataset’s
local tables . . . . . . . . . . . . . . . . 26-6
Fields property . . . . . . . . . . . . . . . 25-21
Specifying a dBASE index file . . . . . . 26-6
Accessing field values with a dataset’s
Renaming local tables . . . . . . . . . . 26-8
FieldByName method . . . . . . . . . . . 25-21
Importing data from another table . . . 26-8
Setting a default value for a field. . . . . . . . 25-22
Using TQuery . . . . . . . . . . . . . . . . . 26-9
Working with constraints . . . . . . . . . . . . 25-22
Creating heterogeneous queries . . . . 26-9
Creating a custom constraint . . . . . . . . 25-22
Obtaining an editable result set . . . . 26-10
Using server constraints . . . . . . . . . . . 25-23
Updating read-only result sets . . . . 26-11
Using object fields . . . . . . . . . . . . . . . . 25-23
Using TStoredProc . . . . . . . . . . . . . 26-11
Displaying ADT and array fields . . . . . . 25-24
Binding parameters . . . . . . . . . . 26-12
Working with ADT fields . . . . . . . . . . 25-25
Working with Oracle overloaded
Using persistent field
stored procedures . . . . . . . . . . . 26-12
components . . . . . . . . . . . . . . 25-25
Connecting to databases with
Using the dataset’s FieldByName
TDatabase . . . . . . . . . . . . . . . . . 26-12
method . . . . . . . . . . . . . . . . . 25-25
Associating a database component
Using the dateset’s FieldValues
with a session . . . . . . . . . . . . . 26-13
property . . . . . . . . . . . . . . . . . 25-25
Understanding database and session
Using the ADT field’s FieldValues
component interactions . . . . . . . 26-13
property . . . . . . . . . . . . . . . . . 25-26
Identifying the database . . . . . . . . 26-14
Using the ADT field’s Fields
Opening a connection using
property . . . . . . . . . . . . . . . . . 25-26
TDatabase . . . . . . . . . . . . . . . 26-15
Working with array fields . . . . . . . . . . 25-26
Using database components in data
Using persistent fields . . . . . . . . . 25-26
modules . . . . . . . . . . . . . . . . 26-16
Using the array field’s FieldValues
Managing database sessions . . . . . . . . 26-16
property . . . . . . . . . . . . . . . . . 25-27
Activating a session . . . . . . . . . . 26-18
Using the array field’s Fields
Specifying default database
property . . . . . . . . . . . . . . . . . 25-27
connection behavior . . . . . . . . . 26-18
Working with dataset fields . . . . . . . . . 25-27
Managing database connections . . . 26-19
Displaying dataset fields . . . . . . . . 25-27
Working with password-protected
Accessing data in a nested dataset . . . 25-28
Paradox and dBASE tables . . . . . 26-21
Working with reference fields. . . . . . . . 25-28
Specifying Paradox directory
Displaying reference fields . . . . . . . 25-28
locations . . . . . . . . . . . . . . . . 26-24
Accessing data in a reference field . . . 25-29
Working with BDE aliases . . . . . . . 26-25
Retrieving information about
a session . . . . . . . . . . . . . . . . 26-27

xv
 Creating additional sessions . . . . . . 26-28 Indicating the types of operations
Naming a session . . . . . . . . . . . . 26-29 the connection supports . . . . . . . . 27-6
Managing multiple sessions . . . . . . 26-29 Specifying whether the connection
Using transactions with the BDE . . . . . . . . 26-31 automatically initiates
Using passthrough SQL . . . . . . . . . . . 26-32 transactions . . . . . . . . . . . . . . . 27-7
Using local transactions . . . . . . . . . . . 26-32 Accessing the connection’s
Using the BDE to cache updates . . . . . . . . 26-33 commands . . . . . . . . . . . . . . . . . . 27-7
Enabling BDE-based cached updates . . . 26-34 ADO connection events. . . . . . . . . . . . 27-8
Applying BDE-based cached updates . . . 26-35 Events when establishing a
Applying cached updates using connection . . . . . . . . . . . . . . . . 27-8
a database . . . . . . . . . . . . . . . . 26-36 Events when disconnecting . . . . . . . 27-8
Applying cached updates with dataset Events when managing
component methods . . . . . . . . . . 26-36 transactions . . . . . . . . . . . . . . . 27-9
Creating an OnUpdateRecord Other events . . . . . . . . . . . . . . . . 27-9
event handler . . . . . . . . . . . . . . 26-37 Using ADO datasets . . . . . . . . . . . . . . . 27-9
Handling cached update errors . . . . 26-38 Connecting an ADO dataset to
Using update objects to update a data store . . . . . . . . . . . . . . 27-10
a dataset . . . . . . . . . . . . . . . . . . . 26-40 Working with record sets . . . . . . . 27-11
Creating SQL statements for update Filtering records based on
components . . . . . . . . . . . . . . 26-41 bookmarks . . . . . . . . . . . . . . . 27-11
Using multiple update objects . . . . . 26-45 Fetching records asynchronously . . . 27-12
Executing the SQL statements . . . . . 26-46 Using batch updates . . . . . . . . . . 27-13
Using TBatchMove. . . . . . . . . . . . . . . . 26-49 Loading data from and saving
Creating a batch move component . . . . . 26-49 data to files . . . . . . . . . . . . . . 27-15
Specifying a batch move mode . . . . . . . 26-50 Using TADODataSet . . . . . . . . . . . . 27-16
Appending records . . . . . . . . . . . 26-50 Using Command objects . . . . . . . . . . . . 27-18
Updating records . . . . . . . . . . . . 26-50 Specifying the command . . . . . . . . . . 27-18
Appending and updating Using the Execute method . . . . . . . . . 27-19
records . . . . . . . . . . . . . . . . . 26-51 Canceling commands . . . . . . . . . . . . 27-19
Copying datasets . . . . . . . . . . . . 26-51 Retrieving result sets with commands . . 27-20
Deleting records . . . . . . . . . . . . . 26-51 Handling command parameters . . . . . . 27-20
Mapping data types . . . . . . . . . . . . . 26-51
Executing a batch move . . . . . . . . . . . 26-52 Chapter 28
Handling batch move errors . . . . . . . . 26-52 Using unidirectional datasets 28-1
The Data Dictionary . . . . . . . . . . . . . . . 26-53 Types of unidirectional datasets . . . . . . . . . 28-2
Tools for working with the BDE . . . . . . . . 26-55 Connecting to the database server . . . . . . . 28-2
Setting up TSQLConnection . . . . . . . . . 28-3
Chapter 27 Identifying the driver . . . . . . . . . . 28-3
Working with ADO components 27-1 Specifying connection parameters . . . 28-4
Overview of ADO components . . . . . . . . 27-2 Naming a connection description . . . . 28-4
Connecting to ADO data stores . . . . . . . . 27-3 Using the Connection Editor . . . . . . 28-5
Connecting to a data store using Specifying what data to display . . . . . . . . . 28-6
TADOConnection. . . . . . . . . . . . . . 27-3 Representing the results of a query . . . . . 28-6
Accessing the connection object . . . . 27-5 Representing the records in a table . . . . . 28-7
Fine-tuning a connection . . . . . . . . . . 27-5 Representing a table using
Forcing asynchronous TSQLDataSet . . . . . . . . . . . . . . 28-7
connections . . . . . . . . . . . . . . . 27-5 Representing a table using
Controlling time-outs . . . . . . . . . . 27-6 TSQLTable . . . . . . . . . . . . . . . . 28-7

xvi
 Representing the results of a Copying data from another dataset . . . . 29-14
stored procedure . . . . . . . . . . . . . . 28-8 Assigning data directly . . . . . . . . 29-14
Fetching the data. . . . . . . . . . . . . . . . . 28-8 Cloning a client dataset cursor . . . . 29-15
Preparing the dataset . . . . . . . . . . . . 28-9 Adding application-specific information
Fetching multiple datasets . . . . . . . . . 28-9 to the data . . . . . . . . . . . . . . . . . 29-15
Executing commands that do not Using a client dataset to cache updates. . . . 29-16
return records. . . . . . . . . . . . . . . . . . 28-10 Overview of using cached updates . . . . 29-17
Specifying the command to execute . . . . 28-10 Choosing the type of dataset for caching
Executing the command . . . . . . . . . . . 28-11 updates . . . . . . . . . . . . . . . . . . . 29-18
Creating and modifying server Indicating what records are modified . . . 29-19
metadata . . . . . . . . . . . . . . . . . . . 28-11 Updating records . . . . . . . . . . . . . . 29-20
Setting up master/detail linked cursors. . . . 28-12 Applying updates . . . . . . . . . . . 29-20
Accessing schema information . . . . . . . . . 28-13 Intervening as updates are
Fetching metadata into a unidirectional applied . . . . . . . . . . . . . . . . . 29-21
dataset . . . . . . . . . . . . . . . . . . . . 28-13 Reconciling update errors . . . . . . . 29-23
Fetching data after using the dataset Using a client dataset with a provider . . . . 29-24
for metadata . . . . . . . . . . . . . . 28-14 Specifying a provider . . . . . . . . . . . . 29-25
The structure of metadata Requesting data from the source dataset
datasets . . . . . . . . . . . . . . . . . 28-14 or document . . . . . . . . . . . . . . . . 29-26
Debugging dbExpress applications . . . . . . 28-19 Incremental fetching . . . . . . . . . . 29-26
Using TSQLMonitor to monitor Fetch-on-demand . . . . . . . . . . . . 29-27
SQL commands . . . . . . . . . . . . . . . 28-19 Getting parameters from the source
Using a callback to monitor dataset . . . . . . . . . . . . . . . . . . . 29-27
SQL commands . . . . . . . . . . . . . . . 28-20 Passing parameters to the source
dataset . . . . . . . . . . . . . . . . . . . 29-28
Chapter 29 Sending query or stored procedure
Using client datasets 29-1 parameters . . . . . . . . . . . . . . . 29-29
Working with data using a client dataset . . . 29-2 Limiting records with parameters . . 29-29
Navigating data in client datasets . . . . . 29-2 Handling constraints from the server . . . 29-30
Limiting what records appear. . . . . . . . 29-2 Refreshing records. . . . . . . . . . . . . . 29-31
Editing data . . . . . . . . . . . . . . . . . . 29-5 Communicating with providers using
Undoing changes . . . . . . . . . . . . 29-5 custom events . . . . . . . . . . . . . . . 29-31
Saving changes . . . . . . . . . . . . . 29-6 Overriding the source dataset . . . . . . . 29-32
Constraining data values . . . . . . . . . . 29-7 Using a client dataset with file-based
Specifying custom constraints . . . . . 29-7 data . . . . . . . . . . . . . . . . . . . . . . . 29-33
Sorting and indexing. . . . . . . . . . . . . 29-8 Creating a new dataset . . . . . . . . . . . 29-33
Adding a new index . . . . . . . . . . . 29-8 Loading data from a file or stream . . . . 29-34
Deleting and switching indexes . . . . 29-9 Merging changes into data . . . . . . . . . 29-34
Using indexes to group data . . . . . . 29-9 Saving data to a file or stream . . . . . . . 29-35
Representing calculated values . . . . . . . 29-10 Using a simple dataset . . . . . . . . . . . . . 29-35
Using internally calculated fields When to use TSimpleDataSet . . . . . . . 29-36
in client datasets . . . . . . . . . . . . 29-11 Setting up a simple dataset . . . . . . . . . 29-36
Using maintained aggregates . . . . . . . . 29-11
Specifying aggregates . . . . . . . . . 29-12
Aggregating over groups of
records . . . . . . . . . . . . . . . . . 29-13
Obtaining aggregate values . . . . . . 29-14

xvii
Chapter 30 Building a multi-tiered application . . . . . . 31-11
Creating the application server . . . . . . . . 31-12
Using provider components 30-1 Setting up the remote data module . . . . 31-13
Determining the source of data. . . . . . . . . 30-2
Configuring
Using a dataset as the source
TRemoteDataModule . . . . . . . . 31-13
of the data . . . . . . . . . . . . . . . . . . 30-2
Configuring TMTSDataModule . . . 31-15
Using an XML document as the source
Configuring TSoapDataModule . . . 31-16
of the data . . . . . . . . . . . . . . . . . . 30-2
Extending the application server’s
Communicating with the client dataset . . . . 30-3
interface. . . . . . . . . . . . . . . . . . . 31-16
Choosing how to apply updates using
Adding callbacks to the application
a dataset provider . . . . . . . . . . . . . . . 30-4
server’s interface . . . . . . . . . . . 31-17
Controlling what information is included
Extending a transactional application
in data packets . . . . . . . . . . . . . . . . . 30-4
server’s interface . . . . . . . . . . . 31-17
Specifying what fields appear in
Managing transactions in multi-tiered
data packets . . . . . . . . . . . . . . . . . 30-4
applications . . . . . . . . . . . . . . . . 31-17
Setting options that influence the
Supporting master/detail
data packets . . . . . . . . . . . . . . . . . 30-5
relationships . . . . . . . . . . . . . . . . 31-18
Adding custom information to
Supporting state information in remote
data packets . . . . . . . . . . . . . . . . . 30-6
data modules. . . . . . . . . . . . . . . . 31-19
Responding to client data requests. . . . . . . 30-7
Using multiple remote data modules . . . 31-21
Responding to client update requests . . . . . 30-8
Registering the application server . . . . . . 31-22
Editing delta packets before updating
Creating the client application. . . . . . . . . 31-22
the database . . . . . . . . . . . . . . . . . 30-9
Connecting to the application server . . . 31-23
Influencing how updates are applied . . . 30-10
Specifying a connection
Screening individual updates . . . . . . . . 30-11
using DCOM . . . . . . . . . . . . . 31-24
Resolving update errors on
Specifying a connection
the provider . . . . . . . . . . . . . . . . . 30-11
using sockets . . . . . . . . . . . . . 31-24
Applying updates to datasets that do
Specifying a connection
not represent a single table . . . . . . . . 30-12
using HTTP . . . . . . . . . . . . . . 31-25
Responding to client-generated events . . . . 30-12
Specifying a connection
Handling server constraints . . . . . . . . . . 30-13
using SOAP . . . . . . . . . . . . . . 31-26
Chapter 31 Brokering connections . . . . . . . . . 31-27
Managing server connections . . . . . . . 31-27
Creating multi-tiered applications 31-1 Connecting to the server . . . . . . . . 31-27
Advantages of the multi-tiered Dropping or changing a server
database model . . . . . . . . . . . . . . . . . 31-2 connection . . . . . . . . . . . . . . . 31-28
Understanding multi-tiered database Calling server interfaces . . . . . . . . . . 31-28
applications . . . . . . . . . . . . . . . . . . . 31-2 Using early binding with DCOM . . . 31-29
Overview of a three-tiered application. . . 31-3 Using dispatch interfaces with
The structure of the client application . . . 31-4 TCP/IP or HTTP . . . . . . . . . . . 31-29
The structure of the application server. . . 31-5 Calling the interface of a SOAP-based
The contents of the remote server . . . . . . . . . . . . . . . . . . 31-30
data module . . . . . . . . . . . . . . 31-6 Connecting to an application server that
Using transactional data modules . . . 31-7 uses multiple data modules . . . . . . . 31-30
Pooling remote data modules . . . . . 31-8 Writing Web-based client applications . . . . 31-31
Choosing a connection protocol . . . . . . 31-9 Distributing a client application as an
Using DCOM connections . . . . . . . 31-9 ActiveX control . . . . . . . . . . . . . . 31-32
Using Socket connections . . . . . . . . 31-9 Creating an Active Form for the client
Using Web connections . . . . . . . . . 31-10 application . . . . . . . . . . . . . . . 31-33
Using SOAP connections . . . . . . . . 31-11

xviii
 Building Web applications using Part III
InternetExpress . . . . . . . . . . . . . . . 31-33
Building an InternetExpress
Writing Internet applications
application. . . . . . . . . . . . . . . . . . 31-34
Using the javascript libraries . . . . . . 31-35 Chapter 33
Granting permission to access and Creating Internet server
launch the application server . . . . . 31-36 applications 33-1
Using an XML broker . . . . . . . . . . . . 31-36 About Web Broker and WebSnap . . . . . . . . 33-1
Fetching XML data packets . . . . . . . 31-36 Terminology and standards . . . . . . . . . . . 33-3
Applying updates from XML Parts of a Uniform Resource Locator . . . . 33-3
delta packets . . . . . . . . . . . . . . 31-37 URI vs. URL . . . . . . . . . . . . . . . . 33-4
Creating Web pages with an HTTP request header information. . . . . . 33-4
InternetExpress page producer . . . . . . 31-39 HTTP server activity . . . . . . . . . . . . . . . 33-5
Using the Web page editor . . . . . . . 31-39 Composing client requests . . . . . . . . . . 33-5
Setting Web item properties . . . . . . 31-40 Serving client requests . . . . . . . . . . . . 33-5
Customizing the InternetExpress Responding to client requests . . . . . . . . 33-6
page producer template . . . . . . . . 31-41 Types of Web server applications . . . . . . . . 33-6
ISAPI and NSAPI . . . . . . . . . . . . . 33-6
Chapter 32 CGI stand-alone . . . . . . . . . . . . . 33-6
Using XML in database Apache . . . . . . . . . . . . . . . . . . . 33-7
applications 32-1 Web App Debugger . . . . . . . . . . . 33-7
Defining transformations . . . . . . . . . . . . 32-1 Converting Web server application
Mapping between XML nodes and target types . . . . . . . . . . . . . . . . . . 33-8
data packet fields . . . . . . . . . . . . . . 32-2 Debugging server applications . . . . . . . . . 33-9
Using XMLMapper. . . . . . . . . . . . . . 32-4 Using the Web Application Debugger . . . 33-9
Loading an XML schema or Launching your application with
data packet . . . . . . . . . . . . . . . 32-4 the Web Application Debugger . . . . 33-9
Defining mappings . . . . . . . . . . . 32-5 Converting your application to
Generating transformation files . . . . 32-6 another type of Web server
Converting XML documents into application . . . . . . . . . . . . . . . 33-10
data packets. . . . . . . . . . . . . . . . . . . 32-6 Debugging Web applications
Specifying the source XML document . . . 32-6 that are DLLs. . . . . . . . . . . . . . . . 33-10
Specifying the transformation . . . . . . . 32-7 User rights necessary for
Obtaining the resulting data packet . . . . 32-7 DLL debugging . . . . . . . . . . . . 33-10
Converting user-defined nodes . . . . . . . 32-7
Using an XML document as the source Chapter 34
for a provider . . . . . . . . . . . . . . . . . . 32-8 Using Web Broker 34-1
Using an XML document as the client Creating Web server applications with
of a provider . . . . . . . . . . . . . . . . . . 32-9 Web Broker. . . . . . . . . . . . . . . . . . . . 34-1
Fetching an XML document from The Web module. . . . . . . . . . . . . . . . 34-2
a provider . . . . . . . . . . . . . . . . . . 32-9 The Web Application object . . . . . . . . . 34-3
Applying updates from an XML The structure of a Web Broker
document to a provider . . . . . . . . . . 32-11 application . . . . . . . . . . . . . . . . . . . . 34-3
The Web dispatcher. . . . . . . . . . . . . . . . 34-5
Adding actions to the dispatcher . . . . . . 34-5
Dispatching request messages . . . . . . . . 34-5

xix
Action items . . . . . . . . . . . . . . . . . . . 34-6 Representing database information
Determining when action items fire . . . . 34-6 in HTML . . . . . . . . . . . . . . . . . . 34-19
The target URL . . . . . . . . . . . . . . 34-6 Using dataset page producers . . . . . 34-19
The request method type . . . . . . . . 34-7 Using table producers . . . . . . . . . 34-20
Enabling and disabling action Specifying the table attributes . . . . . 34-20
items . . . . . . . . . . . . . . . . . . . 34-7 Specifying the row attributes . . . . . 34-20
Choosing a default action item . . . . . 34-7 Specifying the columns . . . . . . . . 34-20
Responding to request messages with Embedding tables in HTML
action items . . . . . . . . . . . . . . . . . 34-8 documents . . . . . . . . . . . . . . . 34-21
Sending the response . . . . . . . . . . 34-8 Setting up a dataset table
Using multiple action items . . . . . . 34-9 producer . . . . . . . . . . . . . . . . 34-21
Accessing client request information . . . . . 34-9 Setting up a query table
Properties that contain request header producer . . . . . . . . . . . . . . . . 34-21
information . . . . . . . . . . . . . . . . . 34-9
Properties that identify the target . . . 34-9 Chapter 35
Properties that describe the Creating Web Server applications
Web client . . . . . . . . . . . . . . . . 34-10
Properties that identify the purpose
using WebSnap 35-1
Fundamental WebSnap components . . . . . . 35-2
of the request . . . . . . . . . . . . . . 34-10
Web modules. . . . . . . . . . . . . . . . . . 35-2
Properties that describe the expected
Web application module types . . . . . 35-3
response . . . . . . . . . . . . . . . . 34-10
Web page modules . . . . . . . . . . . . 35-4
Properties that describe the
Web data modules . . . . . . . . . . . . 35-5
content . . . . . . . . . . . . . . . . . 34-11
Adapters . . . . . . . . . . . . . . . . . . . . 35-5
The content of HTTP request
Fields . . . . . . . . . . . . . . . . . . . . 35-6
messages. . . . . . . . . . . . . . . . . . . 34-11
Actions . . . . . . . . . . . . . . . . . . . 35-6
Creating HTTP response messages . . . . . . 34-11
Errors . . . . . . . . . . . . . . . . . . . 35-6
Filling in the response header. . . . . . . . 34-11
Records . . . . . . . . . . . . . . . . . . 35-6
Indicating the response status . . . . . 34-12
Page producers . . . . . . . . . . . . . . . . 35-6
Indicating the need for client
Creating Web server applications
action . . . . . . . . . . . . . . . . . . 34-12
with WebSnap . . . . . . . . . . . . . . . . . . 35-7
Describing the server application . . . 34-12
Selecting a server type . . . . . . . . . . . . 35-8
Describing the content . . . . . . . . . 34-12
Specifying application module
Setting the response content . . . . . . . . 34-13
components . . . . . . . . . . . . . . . . . 35-9
Sending the response . . . . . . . . . . . . 34-13
Selecting Web application module
Generating the content of response
options . . . . . . . . . . . . . . . . . . . 35-10
messages . . . . . . . . . . . . . . . . . . . . 34-13
Advanced HTML design. . . . . . . . . . . . 35-11
Using page producer components . . . . . 34-14
Manipulating server-side script in
HTML templates . . . . . . . . . . . . . 34-14
HTML files . . . . . . . . . . . . . . . . . 35-12
Specifying the HTML template . . . . 34-15
Login support . . . . . . . . . . . . . . . . . . 35-13
Converting HTML-transparent
Adding login support. . . . . . . . . . . . 35-13
tags . . . . . . . . . . . . . . . . . . . 34-16
Using the sessions service . . . . . . . . . 35-14
Using page producers from an
Login pages . . . . . . . . . . . . . . . . . 35-15
action item . . . . . . . . . . . . . . . 34-16
Setting pages to require logins . . . . . . . 35-17
Chaining page producers
User access rights . . . . . . . . . . . . . . 35-17
together . . . . . . . . . . . . . . . . . 34-17
Dynamically displaying fields as
Using database information in
edit or text boxes . . . . . . . . . . . 35-18
responses . . . . . . . . . . . . . . . . . . . . 34-18
Hiding fields and their contents . . . 35-18
Adding a session to the Web module . . . 34-18
Preventing page access . . . . . . . . . 35-19

xx
Server-side scripting in WebSnap . . . . . . . 35-19 Abstracting XML documents with the
Active scripting . . . . . . . . . . . . . . . . 35-20 Data Binding wizard . . . . . . . . . . . . . . 37-6
Script engine . . . . . . . . . . . . . . . . . 35-20 Using the XML Data Binding wizard . . . . 37-8
Script blocks. . . . . . . . . . . . . . . . . . 35-20 Using code that the XML Data
Creating script . . . . . . . . . . . . . . . . 35-21 Binding wizard generates. . . . . . . . . . 37-9
Wizard templates . . . . . . . . . . . . 35-21
TAdapterPageProducer . . . . . . . . . 35-21 Chapter 38
Editing and viewing script . . . . . . . . . 35-21 Using Web Services 38-1
Including script in a page . . . . . . . . . . 35-21 Understanding invokable interfaces . . . . . . 38-2
Script objects . . . . . . . . . . . . . . . . . 35-22 Using nonscalar types in invokable
Dispatching requests and responses . . . . . . 35-22 interfaces . . . . . . . . . . . . . . . . . . . 38-4
Dispatcher components . . . . . . . . . . . 35-23 Registering nonscalar types . . . . . . . 38-5
Adapter dispatcher operation. . . . . . . . 35-23 Using remotable objects . . . . . . . . . 38-6
Using adapter components to Representing attachments . . . . . . . . 38-7
generate content . . . . . . . . . . . . 35-23 Managing the lifetime of remotable
Receiving adapter requests and objects . . . . . . . . . . . . . . . . . . 38-7
generating responses . . . . . . . . . 35-25 Remotable object example . . . . . . . . 38-7
Image request . . . . . . . . . . . . . . 35-26 Writing servers that support Web Services. . . 38-9
Image response . . . . . . . . . . . . . 35-27 Building a Web Service server . . . . . . . . 38-9
Dispatching action items . . . . . . . . . . 35-27 Using the SOAP application wizard . . . 38-10
Page dispatcher operation . . . . . . . . . . 35-28 Adding new Web Services . . . . . . . . . 38-11
Editing the generated code . . . . . . 38-12
Chapter 36 Using a different base class . . . . . . 38-12
Creating Web server applications Using the WSDL importer . . . . . . . . . 38-13
using IntraWeb 36-1 Browsing for Business services . . . . . . 38-14
Using IntraWeb components . . . . . . . . . . 36-2 Understanding UDDI . . . . . . . . . 38-15
Getting started with IntraWeb . . . . . . . . . 36-3 Using the UDDI browser . . . . . . . 38-15
Creating a new IntraWeb application . . . 36-4 Defining and using SOAP headers . . . . 38-16
Editing the main form . . . . . . . . . . . . 36-4 Defining header classes . . . . . . . . 38-16
Writing an event handler for Sending and receiving headers . . . . 38-16
the button . . . . . . . . . . . . . . . . . . 36-5 Handling scalar-type headers . . . . . 38-17
Running the completed application . . . . 36-6 Communicating the structure of your
Using IntraWeb with Web Broker headers to other applications . . . . 38-18
and WebSnap . . . . . . . . . . . . . . . . . . 36-7 Creating custom exception classes for
For more information . . . . . . . . . . . . . . 36-8 Web Services . . . . . . . . . . . . . . . . 38-18
Generating WSDL documents for
Chapter 37 a Web Service application. . . . . . . . . 38-19
Writing clients for Web Services. . . . . . . . 38-20
Working with XML documents 37-1 Importing WSDL documents . . . . . . . 38-20
Using the Document Object Model . . . . . . 37-2
Calling invokable interfaces . . . . . . . . 38-20
Working with XML components . . . . . . . . 37-4
Obtaining an invokable interface
Using TXMLDocument . . . . . . . . . . . 37-4
from the generated function . . . . . 38-21
Working with XML nodes . . . . . . . . . . 37-4
Using a remote interfaced object . . . 38-21
Working with a node’s value . . . . . . 37-5
Processing headers in client
Working with a node’s attributes . . . 37-5
applications . . . . . . . . . . . . . . . . 38-23
Adding and deleting child nodes . . . 37-6

xxi
Chapter 39 Part IV
Working with sockets 39-1 Developing COM-based applications
Implementing services . . . . . . . . . . . . . 39-1
Understanding service protocols . . . . . . 39-2 Chapter 40
Communicating with
applications . . . . . . . . . . . . . . . 39-2
Overview of COM technologies 40-1
COM as a specification and
Services and ports . . . . . . . . . . . . . . 39-2
implementation . . . . . . . . . . . . . 40-2
Types of socket connections. . . . . . . . . . . 39-3
COM extensions . . . . . . . . . . . . . 40-2
Client connections . . . . . . . . . . . . . . 39-3
Parts of a COM application . . . . . . . . . . . 40-3
Listening connections . . . . . . . . . . . . 39-3
COM interfaces . . . . . . . . . . . . . . . . 40-3
Server connections . . . . . . . . . . . . . . 39-3
The fundamental COM interface,
Describing sockets . . . . . . . . . . . . . . . . 39-4
IUnknown . . . . . . . . . . . . . . . . 40-4
Describing the host . . . . . . . . . . . . . . 39-4
COM interface pointers . . . . . . . . . 40-5
Choosing between a host name
COM servers . . . . . . . . . . . . . . . . . . 40-5
and an IP address . . . . . . . . . . . 39-5
CoClasses and class factories . . . . . . 40-6
Using ports . . . . . . . . . . . . . . . . . . 39-5
In-process, out-of-process, and
Using socket components . . . . . . . . . . . . 39-6
remote servers . . . . . . . . . . . . . . 40-7
Getting information about the
The marshaling mechanism . . . . . . . 40-8
connection . . . . . . . . . . . . . . . . . . 39-6
Aggregation . . . . . . . . . . . . . . . . 40-9
Using client sockets . . . . . . . . . . . . . 39-6
COM clients . . . . . . . . . . . . . . . . . 40-10
Specifying the desired server . . . . . . 39-7
COM extensions. . . . . . . . . . . . . . . . . 40-10
Forming the connection . . . . . . . . . 39-7
Automation servers . . . . . . . . . . . . . 40-12
Getting information about the
Active Server Pages . . . . . . . . . . . . . 40-13
connection . . . . . . . . . . . . . . . 39-7
ActiveX controls . . . . . . . . . . . . . . . 40-13
Closing the connection . . . . . . . . . 39-7
Active Documents. . . . . . . . . . . . . . 40-14
Using server sockets . . . . . . . . . . . . . 39-7
Transactional objects . . . . . . . . . . . . 40-15
Specifying the port . . . . . . . . . . . 39-8
Type libraries. . . . . . . . . . . . . . . . . 40-16
Listening for client requests . . . . . . 39-8
The content of type libraries . . . . . . 40-16
Connecting to clients . . . . . . . . . . 39-8
Creating type libraries . . . . . . . . . 40-17
Closing server connections . . . . . . . 39-8
When to use type libraries . . . . . . . 40-17
Responding to socket events . . . . . . . . . . 39-8
Accessing type libraries . . . . . . . . 40-18
Error events . . . . . . . . . . . . . . . . . . 39-9
Benefits of using type libraries . . . . 40-18
Client events . . . . . . . . . . . . . . . . . 39-9
Using type library tools . . . . . . . . 40-19
Server events . . . . . . . . . . . . . . . . . 39-9
Implementing COM objects
Events when listening . . . . . . . . . . 39-9
with wizards . . . . . . . . . . . . . . . . . . 40-19
Events with client connections . . . . . 39-10
Code generated by wizards . . . . . . . . 40-22
Reading and writing over socket
connections . . . . . . . . . . . . . . . . . . . 39-10
Non-blocking connections. . . . . . . . . . 39-10
Reading and writing events . . . . . . 39-11
Blocking connections. . . . . . . . . . . . . 39-11

xxii
Chapter 41 Chapter 42
Working with type libraries 41-1 Creating COM clients 42-1
Type Library editor . . . . . . . . . . . . . . . 41-2 Importing type library information . . . . . . . 42-2
Parts of the Type Library editor. . . . . . . 41-3 Using the Import Type Library dialog . . . 42-3
Toolbar . . . . . . . . . . . . . . . . . . 41-3 Using the Import ActiveX dialog . . . . . . 42-4
Object list pane . . . . . . . . . . . . . . 41-5 Code generated when you import
Status bar . . . . . . . . . . . . . . . . . 41-5 type library information . . . . . . . . . . 42-5
Pages of type information . . . . . . . 41-6 Controlling an imported object . . . . . . . . . 42-6
Type library elements . . . . . . . . . . . . 41-8 Using component wrappers . . . . . . . . . 42-6
Interfaces . . . . . . . . . . . . . . . . . 41-9 ActiveX wrappers . . . . . . . . . . . . 42-6
Dispinterfaces . . . . . . . . . . . . . . 41-9 Automation object wrappers . . . . . . 42-7
CoClasses . . . . . . . . . . . . . . . . . 41-10 Using data-aware ActiveX controls . . . . . 42-8
Type definitions . . . . . . . . . . . . . 41-10 Example: Printing a document with
Modules . . . . . . . . . . . . . . . . . 41-11 Microsoft Word . . . . . . . . . . . . . . . 42-9
Using the Type Library editor. . . . . . . . 41-11 Preparing Delphi for this example . . 42-10
Valid types . . . . . . . . . . . . . . . . 41-12 Importing the Word type library . . . 42-10
Using Delphi or IDL syntax . . . . . . 41-13 Using a VTable or dispatch
Creating a new type library . . . . . . 41-19 interface object to control
Opening an existing type library . . . 41-20 Microsoft Word . . . . . . . . . . . . 42-11
Adding an interface to the type Cleaning up the example . . . . . . . 42-12
library . . . . . . . . . . . . . . . . . . 41-21 Writing client code based on type
Modifying an interface using the library definitions . . . . . . . . . . . . . 42-13
type library . . . . . . . . . . . . . . . 41-21 Connecting to a server . . . . . . . . . 42-13
Adding properties and methods to Controlling an Automation server
an interface or dispinterface . . . . . 41-22 using a dual interface . . . . . . . . 42-13
Adding a CoClass to the type Controlling an Automation server
library . . . . . . . . . . . . . . . . . . 41-23 using a dispatch interface . . . . . . 42-14
Adding an interface to a CoClass . . . 41-23 Handling events in an automation
Adding an enumeration to the controller . . . . . . . . . . . . . . . . 42-14
type library . . . . . . . . . . . . . . . 41-24 Creating clients for servers that do not
Adding an alias to the type have a type library . . . . . . . . . . . . . . 42-16
library . . . . . . . . . . . . . . . . . . 41-24 Using .NET assemblies with Delphi . . . . . 42-17
Adding a record or union to the Requirements for COM
type library . . . . . . . . . . . . . . . 41-24 interoperability . . . . . . . . . . . . . . 42-17
Adding a module to the type .NET components and type libraries . . . 42-18
library . . . . . . . . . . . . . . . . . . 41-25 Accessing user-defined .NET
Saving and registering type library components . . . . . . . . . . . . . . . . 42-20
information . . . . . . . . . . . . . . . 41-25
Apply Updates dialog . . . . . . . . . 41-26
Saving a type library . . . . . . . . . . 41-26
Refreshing the type library . . . . . . . 41-26
Registering the type library . . . . . . 41-27
Exporting an IDL file . . . . . . . . . . 41-27
Deploying type libraries . . . . . . . . . . . . 41-27

xxiii
Chapter 43 Registering an Active Server Object . . . . . . 44-8
Registering an in-process server . . . . . . . 44-8
Creating simple COM servers 43-1 Registering an out-of-process server . . . . 44-8
Overview of creating a COM object . . . . . . 43-2
Testing and debugging the Active Server
Designing a COM object . . . . . . . . . . . . 43-2
Page application. . . . . . . . . . . . . . . . . 44-8
Using the COM object wizard . . . . . . . . . 43-3
Using the Automation object wizard . . . . . 43-5
COM object instancing types . . . . . . . . 43-6
Chapter 45
Choosing a threading model . . . . . . . . 43-6 Creating an ActiveX control 45-1
Writing an object that supports the Overview of ActiveX control creation . . . . . 45-2
free threading model . . . . . . . . . 43-8 Elements of an ActiveX control . . . . . . . 45-2
Writing an object that supports the VCL control . . . . . . . . . . . . . . . . 45-3
apartment threading model . . . . . 43-9 ActiveX wrapper . . . . . . . . . . . . . 45-3
Writing an object that supports the Type library . . . . . . . . . . . . . . . . 45-3
neutral threading model . . . . . . . 43-9 Property page . . . . . . . . . . . . . . . 45-3
Defining a COM object’s interface . . . . . . . 43-9 Designing an ActiveX control . . . . . . . . . . 45-4
Adding a property to the object’s Generating an ActiveX control from a
interface . . . . . . . . . . . . . . . . . . . 43-10 VCL control . . . . . . . . . . . . . . . . . . . 45-4
Adding a method to the object’s Generating an ActiveX control based on
interface . . . . . . . . . . . . . . . . . . . 43-10 a VCL form. . . . . . . . . . . . . . . . . . . . 45-6
Exposing events to clients . . . . . . . . . . 43-11 Licensing ActiveX controls. . . . . . . . . . . . 45-7
Managing events in your Customizing the ActiveX control’s
Automation object . . . . . . . . . . . 43-12 interface . . . . . . . . . . . . . . . . . . . . . 45-8
Automation interfaces . . . . . . . . . . . . . . 43-13 Adding additional properties,
Dual interfaces . . . . . . . . . . . . . . . . 43-13 methods, and events . . . . . . . . . . . . 45-9
Dispatch interfaces . . . . . . . . . . . . . . 43-14 Adding properties and methods . . . . 45-9
Custom interfaces . . . . . . . . . . . . . . 43-15 Adding events . . . . . . . . . . . . . 45-10
Marshaling data . . . . . . . . . . . . . . . . . 43-15 Enabling simple data binding with
Automation compatible types . . . . . . . 43-16 the type library. . . . . . . . . . . . . . . 45-11
Type restrictions for automatic Creating a property page for an
marshaling . . . . . . . . . . . . . . . . . 43-16 ActiveX control . . . . . . . . . . . . . . . . 45-12
Custom marshaling . . . . . . . . . . . . . 43-17 Creating a new property page . . . . . . . 45-13
Registering a COM object . . . . . . . . . . . . 43-17 Adding controls to a property page . . . . 45-13
Registering an in-process server . . . . . . 43-17 Associating property page controls
Registering an out-of-process server . . . . 43-17 with ActiveX control properties . . . . . 45-13
Testing and debugging the application . . . . 43-18 Updating the property page . . . . . . 45-13
Updating the object . . . . . . . . . . 45-14
Chapter 44 Connecting a property page to an
ActiveX control . . . . . . . . . . . . . . 45-14
Creating an Active Server Page 44-1 Registering an ActiveX control . . . . . . . . 45-15
Creating an Active Server Object. . . . . . . . 44-2
Testing an ActiveX control . . . . . . . . . . . 45-15
Using the ASP intrinsics . . . . . . . . . . . 44-3
Deploying an ActiveX control
Application . . . . . . . . . . . . . . . . 44-4
on the Web . . . . . . . . . . . . . . . . . . . 45-15
Request . . . . . . . . . . . . . . . . . . 44-4
Setting options . . . . . . . . . . . . . . . . 45-16
Response . . . . . . . . . . . . . . . . . 44-5
Session . . . . . . . . . . . . . . . . . . 44-6
Server . . . . . . . . . . . . . . . . . . . 44-6
Creating ASPs for in-process or
out-of-process servers . . . . . . . . . . . 44-7

xxiv
Chapter 46 Role-based security . . . . . . . . . . . . . . . 46-15
Overview of creating transactional
Creating MTS or COM+ objects 46-1 objects . . . . . . . . . . . . . . . . . . . . . 46-15
Understanding transactional objects. . . . . . 46-2
Using the Transactional Object wizard . . . . 46-16
Requirements for a transactional
Choosing a threading model for a
object . . . . . . . . . . . . . . . . . . . . . 46-3
transactional object . . . . . . . . . . . . 46-17
Managing resources . . . . . . . . . . . . . . . 46-3
Activities . . . . . . . . . . . . . . . . 46-18
Accessing the object context. . . . . . . . . 46-4
Generating events under COM+ . . . . . . . 46-19
Just-in-time activation . . . . . . . . . . . . 46-4
Using the Event Object wizard. . . . . . . 46-21
Resource pooling . . . . . . . . . . . . . . . 46-5
Using the COM+ Event Subscription
Database resource dispensers . . . . . 46-6
object wizard . . . . . . . . . . . . . . . . 46-22
Shared property manager . . . . . . . 46-6
Firing events using a COM+ event
Releasing resources . . . . . . . . . . . 46-8
object . . . . . . . . . . . . . . . . . . . . 46-23
Object pooling . . . . . . . . . . . . . . . . 46-8
Passing object references . . . . . . . . . . . . 46-23
MTS and COM+ transaction support . . . . . 46-9
Using the SafeRef method . . . . . . . 46-24
Transaction attributes . . . . . . . . . . . . 46-10
Callbacks . . . . . . . . . . . . . . . . 46-25
Setting the transaction attribute . . . . 46-11
Debugging and testing transactional
Stateful and stateless objects . . . . . . . . 46-11
objects . . . . . . . . . . . . . . . . . . . . . 46-25
Influencing how transactions end . . . . . 46-12
Installing transactional objects . . . . . . . . 46-26
Initiating transactions . . . . . . . . . . . . 46-12
Administering transactional objects . . . . . 46-27
Setting up a transaction object
on the client side . . . . . . . . . . . . 46-13
Setting up a transaction object on
Index I-1
the server side . . . . . . . . . . . . . 46-14
Transaction time-out . . . . . . . . . . . . . 46-14

xxv
 Tables
1.1 Typefaces and symbols . . . . . . . . . . . 1-2 10.1 Edit control properties . . . . . . . . . . . 10-2
3.1 Component sublibraries . . . . . . . . . . 3-1 12.1 Graphic object types . . . . . . . . . . . . 12-3
3.2 Important base classes . . . . . . . . . . . 3-5 12.2 Common properties of the Canvas
5.1 Values for the Origin parameter . . . . . . 5-5 object . . . . . . . . . . . . . . . . . . . . . 12-4
5.2 Open modes . . . . . . . . . . . . . . . . . 5-7 12.3 Common methods of the Canvas
5.3 Share modes . . . . . . . . . . . . . . . . . 5-7 object . . . . . . . . . . . . . . . . . . . . . 12-4
5.4 Shared modes available for each 12.4 CLX MIME types and constants . . . . 12-22
open mode . . . . . . . . . . . . . . . . . . 5-7 12.5 Mouse events . . . . . . . . . . . . . . . 12-24
5.5 Attribute constants and values . . . . . . . 5-9 12.6 Mouse-event parameters. . . . . . . . . 12-25
5.6 Classes for managing lists . . . . . . . . . 5-14 12.7 Multimedia device types and their
5.7 String comparison routines . . . . . . . . . 5-24 functions . . . . . . . . . . . . . . . . . . 12-33
5.8 Case conversion routines . . . . . . . . . . 5-25 13.1 Thread priorities . . . . . . . . . . . . . . 13-3
5.9 String modification routines . . . . . . . . 5-25 13.2 WaitFor return values . . . . . . . . . . .13-11
5.10 Sub-string routines . . . . . . . . . . . . . 5-25 14.1 Selected exception classes . . . . . . . . 14-10
5.11 Null-terminated string comparison 15.1 Porting techniques . . . . . . . . . . . . . 15-2
routines . . . . . . . . . . . . . . . . . . . . 5-26 15.2 Changed or different features . . . . . . . 15-7
5.12 Case conversion routines for 15.3 WinCLX-only and equivalent
null-terminated strings . . . . . . . . . . . 5-26 VisualCLX units. . . . . . . . . . . . . . . 15-8
5.13 String modification routines . . . . . . . . 5-26 15.4 VisualCLX-only units . . . . . . . . . . . 15-9
5.14 Sub-string routines . . . . . . . . . . . . . 5-26 15.5 WinCLX-only units . . . . . . . . . . . . . 15-9
5.15 String copying routines . . . . . . . . . . . 5-27 15.6 Differences in the Linux and Windows
5.16 Compiler directives for strings . . . . . . . 5-30 operating environments . . . . . . . . . 15-18
6.1 Component palette pages . . . . . . . . . 6-7 15.7 Common Linux directories . . . . . . . 15-20
7.1 Properties of selected text. . . . . . . . . . 7-9 15.8 Comparable data-access
7.2 Fixed vs. variable owner-draw styles . . . 7-13 components . . . . . . . . . . . . . . . . 15-23
8.1 Compiler directives for libraries . . . . . . 8-11 15.9 Properties, methods, and events
8.2 Database pages on the Component for cached updates . . . . . . . . . . . . 15-27
palette . . . . . . . . . . . . . . . . . . . . . 8-12 16.1 Package files. . . . . . . . . . . . . . . . . 16-2
8.3 Web server applications. . . . . . . . . . . 8-14 16.2 Package-specific compiler directives . . .16-11
8.4 Context menu options for data 16.3 Package-specific command-line
modules. . . . . . . . . . . . . . . . . . . . 8-18 compiler switches. . . . . . . . . . . . . 16-13
8.5 Help methods in TApplication . . . . . . . 8-31 17.1 Runtime library functions . . . . . . . . . 17-3
9.1 Action setup terminology. . . . . . . . . . 9-18 17.2 VCL methods that support BiDi . . . . . 17-6
9.2 Default values of the action manager’s 17.3 Estimating string lengths . . . . . . . . . 17-7
PrioritySchedule property . . . . . . . . . 9-25 18.1 Application files . . . . . . . . . . . . . . 18-3
9.3 Action classes . . . . . . . . . . . . . . . . 9-30 18.2 Merge modules and their
9.4 Methods overriden by base classes dependencies . . . . . . . . . . . . . . . . 18-4
of specific actions . . . . . . . . . . . . . . 9-31 18.3 dbExpress deployment as stand-alone
9.5 Sample captions and their derived executable . . . . . . . . . . . . . . . . . . 18-7
names . . . . . . . . . . . . . . . . . . . . . 9-34 18.4 dbExpress deployment with
9.6 Menu Designer context menu driver DLLs . . . . . . . . . . . . . . . . . 18-8
commands . . . . . . . . . . . . . . . . . . 9-40 20.1 Data controls . . . . . . . . . . . . . . . . 20-2
9.7 Setting speed buttons’ appearance. . . . . 9-48 20.2 Column properties . . . . . . . . . . . . 20-20
9.8 Setting tool buttons’ appearance . . . . . . 9-50 20.3 Expanded TColumn Title
9.9 Setting a cool button’s appearance. . . . . 9-52 properties . . . . . . . . . . . . . . . . . 20-21

xxvi
20.4 Properties that affect the way 27.1 ADO components. . . . . . . . . . . . . . 27-2
composite fields appear . . . . . . . . . . 20-24 27.2 Connection parameters . . . . . . . . . . 27-4
20.5 Expanded TDBGrid Options 27.3 ADO connection modes . . . . . . . . . . 27-6
properties . . . . . . . . . . . . . . . . . . 20-25 27.4 Execution options for ADO
20.6 Grid control events . . . . . . . . . . . . 20-27 datasets . . . . . . . . . . . . . . . . . . 27-12
20.7 Selected database control grid 27.5 Comparison of ADO and client dataset
properties . . . . . . . . . . . . . . . . . . 20-29 cached updates . . . . . . . . . . . . . . 27-13
20.8 TDBNavigator buttons . . . . . . . . . . 20-30 28.1 Columns in tables of metadata
21.1 Rave Reports documentation. . . . . . . . 21-6 listing tables . . . . . . . . . . . . . . . . 28-15
23.1 Database connection components . . . . . 23-1 28.2 Columns in tables of metadata
24.1 Values for the dataset State property . . . 24-3 listing stored procedures. . . . . . . . . 28-15
24.2 Navigational methods of datasets . . . . . 24-5 28.3 Columns in tables of metadata
24.3 Navigational properties of datasets . . . . 24-6 listing fields . . . . . . . . . . . . . . . . 28-16
24.4 Comparison and logical operators 28.4 Columns in tables of metadata
that can appear in a filter . . . . . . . . . 24-14 listing indexes . . . . . . . . . . . . . . . 28-17
24.5 FilterOptions values . . . . . . . . . . . . 24-16 28.5 Columns in tables of metadata listing
24.6 Filtered dataset navigational parameters. . . . . . . . . . . . . . . . . 28-18
methods. . . . . . . . . . . . . . . . . . . 24-16 29.1 Filter support in client datasets . . . . . . 29-3
24.7 Dataset methods for inserting, 29.2 Summary operators for maintained
updating, and deleting data . . . . . . . 24-17 aggregates . . . . . . . . . . . . . . . . . 29-12
24.8 Methods that work with entire 29.3 Specialized client datasets for
records . . . . . . . . . . . . . . . . . . . 24-22 caching updates. . . . . . . . . . . . . . 29-18
24.9 Index-based search methods . . . . . . . 24-28 30.1 AppServer interface members. . . . . . . 30-3
25.1 TFloatField properties that affect 30.2 Provider options . . . . . . . . . . . . . . 30-5
data display . . . . . . . . . . . . . . . . . 25-1 30.3 UpdateStatus values . . . . . . . . . . . . 30-9
25.2 Special persistent field kinds . . . . . . . . 25-6 30.4 UpdateMode values . . . . . . . . . . . 30-10
25.3 Field component properties . . . . . . . 25-11 30.5 ProviderFlags values . . . . . . . . . . . 30-10
25.4 Field component formatting 31.1 Components used in multi-tiered
routines . . . . . . . . . . . . . . . . . . . 25-15 applications . . . . . . . . . . . . . . . . . 31-3
25.5 Field component events. . . . . . . . . . 25-16 31.2 Connection components . . . . . . . . . . 31-5
25.6 Selected field component methods . . . 25-17 31.3 Javascript libraries . . . . . . . . . . . . 31-35
25.7 Special conversion results . . . . . . . . 25-20 33.1 Web Broker versus WebSnap . . . . . . . 33-2
25.8 Types of object field components . . . . 25-24 34.1 MethodType values. . . . . . . . . . . . . 34-7
25.9 Common object field descendant 34.2 Predefined tag names . . . . . . . . . . 34-10
properties . . . . . . . . . . . . . . . . . . 25-24 35.1 Web application module types . . . . . . 35-3
26.1 Table types recognized by the BDE 35.2 Web server application types . . . . . . . 35-8
based on file extension . . . . . . . . . . . 26-5 35.3 Web application components . . . . . . . 35-9
26.2 TableType values. . . . . . . . . . . . . . . 26-6 35.4 Script objects . . . . . . . . . . . . . . . 35-22
26.3 BatchMove import modes . . . . . . . . . 26-8 35.5 Request information found in
26.4 Database-related informational action requests . . . . . . . . . . . . . . 35-25
methods for session components . . . . 26-27 36.1 VCL/CLX and IntraWeb
26.5 TSessionList properties and components . . . . . . . . . . . . . . . . . 36-2
methods. . . . . . . . . . . . . . . . . . . 26-30 38.1 Remotable classes. . . . . . . . . . . . . . 38-6
26.6 Properties, methods, and events 40.1 COM object requirements . . . . . . . . 40-12
for cached updates. . . . . . . . . . . . . 26-33 40.2 Delphi wizards for implementing COM,
26.7 UpdateKind values . . . . . . . . . . . . 26-39 Automation, and ActiveX objects . . . . 40-21
26.8 Batch move modes. . . . . . . . . . . . . 26-50 40.3 DAX Base classes for generated
26.9 Data Dictionary interface . . . . . . . . . 26-54 implementation classes . . . . . . . . . 40-23

xxvii
41.1 Type Library editor files . . . . . . . . . . 41-2 44.4 ISessionObject interface members . . . . 44-6
41.2 Type Library editor parts . . . . . . . . . . 41-3 44.5 IServer interface members . . . . . . . . . 44-6
41.3 Attribute syntax . . . . . . . . . . . . . . 41-14 46.1 IObjectContext methods for
43.1 Threading models for COM objects . . . . 43-7 transaction support . . . . . . . . . . . . 46-12
44.1 IApplicationObject interface 46.2 Threading models for transactional
members . . . . . . . . . . . . . . . . . . . 44-4 objects . . . . . . . . . . . . . . . . . . . 46-17
44.2 IRequest interface members . . . . . . . . 44-4 46.3 Call synchronization options . . . . . . 46-19
44.3 IResponse interface members . . . . . . . 44-5 46.4 Event publisher return codes . . . . . . 46-23

xxviii
 Figures
3.1 A simplified hierarchy diagram . . . . . . 3-5 20.5 TDBCtrlGrid at design time . . . . . . . 20-28
4.1 A simple form . . . . . . . . . . . . . . . . 4-3 20.6 Buttons on the TDBNavigator
9.1 A frame with data-aware controls control . . . . . . . . . . . . . . . . . . . 20-29
and a data source component . . . . . . . 9-16 22.1 Decision support components
9.3 Menu terminology. . . . . . . . . . . . . . 9-32 at design time . . . . . . . . . . . . . . . . 22-2
9.4 MainMenu and PopupMenu 22.2 One-dimensional crosstab . . . . . . . . . 22-3
components . . . . . . . . . . . . . . . . . 9-33 22.3 Three-dimensional crosstab . . . . . . . . 22-3
9.6 Adding menu items to a main menu . . . 9-36 22.4 Decision graphs bound to different
9.7 Nested menu structures. . . . . . . . . . . 9-37 decision sources. . . . . . . . . . . . . . 22-15
10.2 A progress bar . . . . . . . . . . . . . . . 10-15 26.1 Components in a BDE-based
11.1 Part of the ModelMaker toolbar . . . . . . 11-3 application. . . . . . . . . . . . . . . . . . 26-2
11.2 ModelMaker showing a sample 31.1 Web-based multi-tiered database
model . . . . . . . . . . . . . . . . . . . . . 11-4 application. . . . . . . . . . . . . . . . . 31-31
11.3 The Classes view. . . . . . . . . . . . . . . 11-5 33.1 Parts of a Uniform Resource Locator . . . 33-3
11.4 The Units view . . . . . . . . . . . . . . . . 11-5 34.1 Structure of a Server Application . . . . . 34-4
11.5 The Diagrams view . . . . . . . . . . . . . 11-6 35.2 Web App Components dialog . . . . . . . 35-9
11.6 The Members view . . . . . . . . . . . . . 11-7 35.3 Web App Components dialog with
11.7 The Implementation Editor view . . . . . 11-8 options for login support selected . . . 35-14
11.8 The Unit Code Editor . . . . . . . . . . . . 11-8 35.4 An example of a login page as seen
11.9 The Diagram Editor . . . . . . . . . . . . . 11-9 from a Web page editor . . . . . . . . . 35-16
12.1 Bitmap-dimension dialog box from 35.5 Generating content flow . . . . . . . . . 35-24
the BMPDlg unit . . . . . . . . . . . . . . 12-21 35.6 Action request and response . . . . . . 35-26
17.1 TListBox set to bdLeftToRight . . . . . . . 17-5 35.7 Image response to a request . . . . . . . 35-27
17.2 TListBox set to bdRightToLeft . . . . . . . 17-5 35.8 Dispatching a page . . . . . . . . . . . . 35-28
17.3 TListBox set to 36.2 The main form of the IntraWeb
bdRightToLeftNoAlign . . . . . . . . . . . 17-5 application. . . . . . . . . . . . . . . . . . 36-5
17.4 TListBox set to 40.1 A COM interface . . . . . . . . . . . . . . 40-3
bdRightToLeftReadingOnly . . . . . . . . 17-5 40.2 Interface vtable . . . . . . . . . . . . . . . 40-5
19.1 Generic Database Architecture . . . . . . . 19-6 40.3 In-process server . . . . . . . . . . . . . . 40-7
19.2 Connecting directly to the 40.4 Out-of-process and remote servers . . . . 40-8
database server. . . . . . . . . . . . . . . . 19-8 40.5 COM-based technologies . . . . . . . . .40-11
19.3 A file-based database application . . . . . 19-9 40.6 Simple COM object interface . . . . . . 40-20
19.4 Architecture combining a client 40.7 Automation object interface . . . . . . . 40-20
dataset and another dataset . . . . . . . 19-12 40.8 ActiveX object interface . . . . . . . . . 40-20
19.5 Multi-tiered database architecture . . . . 19-13 40.9 Delphi ActiveX framework . . . . . . . 40-23
20.1 TDBGrid control . . . . . . . . . . . . . . 20-15 41.1 Type Library editor . . . . . . . . . . . . . 41-3
20.2 TDBGrid control with ObjectView 41.2 Object list pane . . . . . . . . . . . . . . . 41-5
set to False . . . . . . . . . . . . . . . . . 20-23 43.1 Dual interface VTable . . . . . . . . . . 43-14
20.3 TDBGrid control with Expanded 45.1 Mask Edit property page in
set to False . . . . . . . . . . . . . . . . . 20-23 design mode. . . . . . . . . . . . . . . . 45-13
20.4 TDBGrid control with Expanded 46.1 The COM+ Events system . . . . . . . . 46-21
set to True. . . . . . . . . . . . . . . . . . 20-24

xxix
xxx
 Chapter

1
Introduction
Chapter1

The Developer’s Guide describes intermediate and advanced development topics, such
as building client/server database applications, creating Internet Web server
applications, and writing custom components. It allows you to build applications
that meet many industry-standard specifications such as SOAP, TCP/IP, COM+, and
ActiveX. Many of the advanced features that support Web development, advanced
XML technologies, and database development require components or wizards that
are not available in all editions of Delphi.
The Developer’s Guide assumes you are familiar with using Delphi and understand
fundamental Delphi programming techniques. For an introduction to Delphi
programming and the integrated development environment (IDE), see the Quick
Start manual or the online Help.

What’s in this manual?

This manual contains five parts, as follows:
• Part I, “Programming with Delphi,” describes how to build general-purpose
Delphi applications. This part provides details on programming techniques you
can use in any Delphi application. For example, it describes how to use common
objects that make user interface programming easy. Objects are available for
handling strings, manipulating text, implementing common dialogs, and so on.
This section also includes chapters on working with graphics, error and exception
handling, using DLLs, OLE automation, and writing international applications.
A chapter describes how to develop cross-platform applications that can be
compiled and run on either Windows or Linux platforms.
The chapter on deployment details the tasks involved in deploying your
application to your application users. For example, it includes information on
effective compiler options, using InstallShield Express, licensing issues, and how

Introduction 1-1
Manual conventions

to determine which packages, DLLs, and other libraries to use when building the
production-quality version of your application.
• Part II, “Developing database applications,” describes how to build database
applications using database tools and components. You can access several types of
databases, including local databases such as Paradox and dBASE, and network
SQL server databases such as InterBase, Oracle, and Sybase. You can choose from
a variety of data access mechanisms, including dbExpress, InterbaseExpress, and
ADO. To implement the more advanced database applications, you need the
features that are not available in all editions.
• Part III, “Writing Internet applications,” describes how to create applications that
are distributed over the Internet. Delphi includes a wide array of tools for writing
Web server applications, including: the Web Broker architecture, with which you
can create cross-platform server applications; WebSnap, with which you can
design Web pages in a GUI environment; support for working with XML
documents; and BizSnap, an architecture for using SOAP-based Web Services. For
lower-level support that underlies much of the messaging in Internet applications,
this section also describes how to work with socket components. The components
that implement many of these features are not available in all editions.
• Part IV, “Developing COM-based applications,” describes how to build
applications that can interoperate with other COM-based API objects on the
system such as Windows Shell extensions or multimedia applications. Delphi
contains components that support the ActiveX, COM+, and a COM-based library
for COM controls that can be used for general-purpose and Web-based
applications. A Type Library editor simplifies the development of COM servers.
Support for COM controls and ActiveX controls is not available in all editions of
Delphi.

Manual conventions
This manual uses the typefaces and symbols described in Table 1.1 to indicate special
text.

Table 1.1 Typefaces and symbols

Typeface or symbol Meaning
Monospace type Monospaced text represents text as it appears on screen or in Delphi code.
It also represents anything you must type.
[] Square brackets in text or syntax listings enclose optional items. Text of this
sort should not be typed verbatim.
Boldface Boldfaced words in text or code listings represent Delphi keywords or
compiler options. Boldface is also used to emphasize certain words, such as
new terms.
Italics Italicized words in text represent Delphi identifiers, such as variable or
type names.
Keycaps This typeface indicates a key on your keyboard. For example, “Press Esc to
exit a menu.”

1-2 Developer’s Guide

 Developer support services

Developer support services

Borland offers a variety of support options, including free services on the Internet,
where you can search our extensive information base and connect with other users of
Borland products, technical support, and fee-based consultant-level support.
For more information about Borland’s developer support services, please see our
Web site at http://www.borland.com/devsupport/delphi, call Borland Assist at
(800) 523-7070, or contact our Sales Department at (831) 431-1064. For customers
outside of the United States of America, see our Web site at
http://www.borland.com/bww.
From the Web site, you can access many newsgroups where Delphi developers
exchange information, tips, and techniques. The site also includes a list of books
about Delphi.
When contacting support, be prepared to provide complete information about your
environment, the version and edition of the product you are using, and a detailed
description of the problem.

Introduction 1-3
1-4 Developer’s Guide
 Part

I
Programming with Delphi
Part I

The chapters in “Programming with Delphi” introduce concepts and skills necessary
for creating applications using any edition of Delphi.

Programming with Delphi

 Chapter

Developing applications with Delphi

Chapter2
2
Borland Delphi is an object-oriented, visual programming environment to develop
32-bit applications for deployment on Windows and Linux. Using Delphi, you can
create highly efficient applications with a minimum of manual coding.
Delphi provides a suite of Rapid Application Development (RAD) design tools,
including programming wizards and application and form templates, and supports
object-oriented programming with a comprehensive class library that includes:
• The Visual Component Library (VCL), which includes objects that encapsulate the
Windows API as well as other useful programming techniques (Windows).
• The Borland Component Library for Cross-Platform (CLX), which includes objects that
encapsulate the Qt library (Windows or Linux).
This chapter briefly describes the Delphi development environment and how it fits
into the development life cycle. The rest of this manual provides technical details on
developing general-purpose, database, Internet and Intranet applications, creating
ActiveX and COM controls, and writing your own components.

Integrated development environment

When you start Delphi, you are immediately placed within the integrated
development environment, also called the IDE. This IDE provides all the tools you
need to design, develop, test, debug, and deploy applications, allowing rapid
prototyping and a shorter development time.
The IDE includes all the tools necessary to start designing applications, such as the:
• Form Designer, or form, a blank window on which to design the user interface (UI)
for your application.
• Component palette for displaying visual and nonvisual components you can use
to design your user interface.

Developing applications with Delphi 2-1

Designing applications

• Object Inspector for examining and changing an object’s properties and events.
• Object TreeView for displaying and changing a components’ logical relationships.
• Code editor for writing and editing the underlying program logic.
• Project Manager for managing the files that make up one or more projects.
• Integrated debugger for finding and fixing errors in your code.
• Many other tools such as property editors to change the values for an object’s
property.
• Command-line tools including compilers, linkers, and other utilities.
• Extensive class libraries with many reusable objects. Many of the objects provided
in the class library are accessible in the IDE from the Component palette. By
convention, the names of objects in the class library begin with a T, such as
TStatusBar. Names of objects that begin with a Q are based on the Qt library and
are used for cross-platform applications.
Some tools may not be included in all editions of the product.
A more complete overview of the development environment is presented in the
Quick Start manual included with the product. In addition, the online Help system
provides help on all menus, dialog boxes, and windows.

Designing applications
You can design any kind of 32-bit application—from general-purpose utilities to
sophisticated data access programs or distributed applications.
As you visually design the user interface for your application, the Form Designer
generates the underlying Delphi code to support the application. As you select and
modify the properties of components and forms, the results of those changes appear
automatically in the source code, and vice versa. You can modify the source files
directly with any text editor, including the built-in Code editor. The changes you
make are immediately reflected in the visual environment.
You can create your own components using the Delphi language. Most of the
components provided are written in Delphi. You can add components that you write
to the Component palette and customize the palette for your use by including new
tabs if needed.
You can also design applications that run on both Linux and Windows by using CLX
components. CLX contains a set of classes that, if used instead of those in the VCL,
allows your program to port between Windows and Linux. Refer to Chapter 15,
“Developing cross-platform applications” for details about cross-platform
programming and the differences between the Windows and Linux environments. If
you are using Kylix while developing cross-platform applications, Kylix also

2-2 Developer’s Guide

 Creating projects

includes a Developer’s Guide that is tailored for the Linux environment. You can refer
to the manual both in the Kylix online Help or the printed manual provided with the
Kylix product.
Chapter 8, “Building applications, components, and libraries,” introduces support
for different types of applications.

Creating projects
All application development revolves around projects. When you create an
application in Delphi you are creating a project. A project is a collection of files that
make up an application. Some of these files are created at design time. Others are
generated automatically when you compile the project source code.
You can view the contents of a project in a project management tool called the Project
Manager. The Project Manager lists, in a hierarchical view, the unit names, the forms
contained in the unit (if there is one), and shows the paths to the files in the project.
Although you can edit many of these files directly, it is often easier and more reliable
to use the visual tools.
At the top of the project hierarchy is a group file. You can combine multiple projects
into a project group. This allows you to open more than one project at a time in the
Project Manager. Project groups let you organize and work on related projects, such
as applications that function together or parts of a multi-tiered application. If you are
only working on one project, you do not need a project group file to create an
application.
Project files, which describe individual projects, files, and associated options, have a
.dpr extension. Project files contain directions for building an application or shared
object. When you add and remove files using the Project Manager, the project file is
updated. You specify project options using a Project Options dialog which has tabs
for various aspects of your project such as forms, application, and compiler. These
project options are stored in the project file with the project.
Units and forms are the basic building blocks of an application. A project can share
any existing form and unit file including those that reside outside the project
directory tree. This includes custom procedures and functions that have been written
as standalone routines.
If you add a shared file to a project, realize that the file is not copied into the current
project directory; it remains in its current location. Adding the shared file to the
current project registers the file name and path in the uses clause of the project file.
Delphi automatically handles this as you add units to a project.
When you compile a project, it does not matter where the files that make up the
project reside. The compiler treats shared files the same as those created by the
project itself.

Developing applications with Delphi 2-3

Editing code

Editing code
The Code editor is a full-featured ASCII editor. If using the visual programming
environment, a form is automatically displayed as part of a new project. You can start
designing your application interface by placing objects on the form and modifying
how they work in the Object Inspector. But other programming tasks, such as writing
event handlers for objects, must be done by typing the code.
The contents of the form, all of its properties, its components, and their properties
can be viewed and edited as text in the Code editor. You can adjust the generated
code in the Code editor and add more components within the editor by typing code.
As you type code into the editor, the compiler is constantly scanning for changes and
updating the form with the new layout. You can then go back to the form, view and
test the changes you made in the editor, and continue adjusting the form from there.
The code generation and property streaming systems are completely open to
inspection. The source code for everything that is included in your final executable
file—all of the VCL objects, CLX objects, RTL sources, and project files—can be
viewed and edited in the Code editor.

Compiling applications
When you have finished designing your application interface on the form and
writing additional code so it does what you want, you can compile the project from
the IDE or from the command line.
All projects have as a target a single distributable executable file. You can view or test
your application at various stages of development by compiling, building, or
running it:
• When you compile, only units that have changed since the last compile are
recompiled.
• When you build, all units in the project are compiled, regardless of whether they
have changed since the last compile. This technique is useful when you are unsure
of exactly which files have or have not been changed, or when you simply want to
ensure that all files are current and synchronized. It's also important to build when
you've changed global compiler directives to ensure that all code compiles in the
proper state.You can also test the validity of your source code without attempting
to compile the project.
• When you run, you compile and then execute your application. If you modified
the source code since the last compilation, the compiler recompiles those changed
modules and relinks your application.
If you have grouped several projects together, you can compile or build all projects in
a single project group at once. Choose Project|Compile All Projects or Project|Build
All Projects with the project group selected in the Project Manager.
Note To compile a CLX application on Linux, you need Kylix.

2-4 Developer’s Guide

 Debugging applications

Debugging applications
With the integrated debugger, you can find and fix errors in your applications. The
integrated debugger lets you control program execution, monitor variable values and
items in data structures, and modify data values while debugging.
The integrated debugger can track down both runtime errors and logic errors. By
running to specific program locations and viewing the variable values, the functions
on the call stack, and the program output, you can monitor how your program
behaves and find the areas where it is not behaving as designed. The debugger is
described in online Help.
You can also use exception handling to recognize, locate, and deal with errors.
Exceptions are classes, like other classes in Delphi, except, by convention, they begin
with an initial E rather than a T.

Deploying applications
Delphi includes add-on tools to help with application deployment. For example,
InstallShield Express (not available in all editions) helps you to create an installation
package for your application that includes all of the files needed for running a
distributed application. TeamSource software (not available in all editions) is also
available for tracking application updates.
To deploy a CLX application on Linux, you need Kylix.
Note Not all editions have deployment capabilities.
Refer to Chapter 18, “Deploying applications,” for specific information on
deployment.

Developing applications with Delphi 2-5

2-6 Developer’s Guide
 Chapter

Using the component library

Chapter3
3
This chapter presents an overview of the component library that you use while
developing applications. The component library includes the Visual Component
Library (VCL) and the Borland Component Library for Cross-Platform (CLX). The
VCL is for Windows-only development and CLX is for cross-platform development
on both Windows and Linux. The component library is extensive, containing both
components that you can work with in the IDE and classes that you create and use in
runtime code. Some of the classes can be used in any application, while others can
only appear in certain types of applications.

Understanding the component library

The component library is made up of objects separated into several sublibraries, each
of which serves a different purpose. These sublibraries are listed in Table 3.1:

Table 3.1 Component sublibraries

Part Description
BaseCLX Low-level classes and routines available for all CLX applications. BaseCLX includes
the runtime library (RTL) up to and including the Classes unit.
DataCLX Client data-access components. The components in DataCLX are a subset of the total
available set of components for working with databases. These components are used
in cross-platform applications that access databases. They can access data from a file
on disk or from a database server using dbExpress.
NetCLX Components for building Web Server applications. These include support for
applications that use Apache or CGI Web Servers.

Using the component library 3-1

Understanding the component library

Table 3.1 Component sublibraries

Part Description
VisualCLX Cross-platform GUI components and graphics classes. VisualCLX classes make use
of an underlying cross-platform widget library (Qt).
WinCLX Classes that are available only on the Windows platform. These include controls that
are wrappers for native Windows controls, database access components that use
mechanisms (such as the Borland Database Engine or ADO) that are not available on
Linux, and components that support Windows-only technologies (such as COM, NT
Services, or control panel applets).

The VCL and CLX contain many of the same sublibraries. They both include
BaseCLX, DataCLX, NetCLX. The VCL also includes WinCLX while CLX includes
VisualCLX instead. Use the VCL when you want to use native Windows controls,
Windows-specific features, or extend an existing VCL application. Use CLX when
you want to write a cross-platform application or use controls that are available in
CLX applications, such as TLCDNumber. For more information on writing cross-
platform applications, see Chapter 15, “Developing cross-platform applications.”
All classes descend from TObject. TObject introduces methods that implement
fundamental behavior like construction, destruction, and message handling.
Components are a subset of the component library that descend from the class
TComponent. You can place components on a form or data module and manipulate
them at design time. Using the Object Inspector, you can assign property values
without writing code. Most components are either visual or nonvisual, depending on
whether they are visible at runtime. Some components appear on the Component
palette.
Visual components, such as TForm and TSpeedButton, are called controls and descend
from TControl. Controls are used in GUI applications, and appear to the user at
runtime. TControl provides properties that specify the visual attributes of controls,
such as their height and width.
Nonvisual components are used for a variety of tasks. For example, if you are writing
an application that connects to a database, you can place a TDataSource component
on a form to connect a control and a dataset used by the control. This connection is
not visible to the user, so TDataSource is nonvisual. At design time, nonvisual
components are represented by an icon. This allows you to manipulate their
properties and events just as you would a visual control.
Classes that are not components (that is, classes that descend from TObject but not
TComponent) are also used for a variety of tasks. Typically, these classes are used for
accessing system objects (such as a file or the clipboard) or for transient tasks (such as
storing data in a list). You can’t create instances of these classes at design time,
although they are sometimes created by the components that you add in the Form
Designer.

3-2 Developer’s Guide

 Understanding the component library

Detailed reference material on all VCL and CLX objects is accessible through online
Help while you are programming. In the Code editor, place the cursor anywhere on
the object and press F1 to display the Help topic. Objects, properties, methods, and
events that are in the VCL are marked “VCL Reference” and those in CLX are
marked “CLX Reference.”

Properties, methods, and events

Both the VCL and CLX form hierarchies of classes that are tied to the IDE, where you
can develop applications quickly. The classes in both component libraries are based
on properties, methods, and events. Each class includes data members (properties),
functions that operate on the data (methods), and a way to interact with users of the
class (events). The component library is written in the Delphi language, although the
VCL is based on the Windows API and CLX is based on the Qt widget library.

Properties
Properties are characteristics of an object that influence either the visible behavior or
the operations of the object. For example, the Visible property determines whether an
object can be seen in an application interface. Well-designed properties make your
components easier for others to use and easier for you to maintain.
Here are some of the useful features of properties:
• Unlike methods, which are only available at runtime, you can see and change
some properties at design time and get immediate feedback as the components
change in the IDE.
• You can access some properties in the Object Inspector, where you can modify the
values of your object visually. Setting properties at design time is easier than
writing code and makes your code easier to maintain.
• Because the data is encapsulated, it is protected and private to the actual object.
• The calls to get and set the values of properties can be methods, so special
processing can be done that is invisible to the user of the object. For example, data
could reside in a table, but could appear as a normal data member to the
programmer.
• You can implement logic that triggers events or modifies other data during the
access of a property. For example, changing the value of one property may require
you to modify another. You can change the methods created for the property.
• Properties can be virtual.
• A property is not restricted to a single object. Changing one property on one object
can affect several objects. For example, setting the Checked property on a radio
button affects all of the radio buttons in the group.

Using the component library 3-3

Understanding the component library

Methods
A method is a procedure that is always associated with a class. Methods define the
behavior of an object. Class methods can access all the public, protected, and
privateproperties and fields of the class and are commonly referred to as member
functions. See “Controlling access” on page 2-6 of the Component Writer’s Guide.
Although most methods belong to an instance of a class, some methods belong
instead to the class type. These are called class methods.

Events
An event is an action or occurrence detected by a program. Most modern applications
are said to be event-driven, because they are designed to respond to events. In a
program, the programmer has no way of predicting the exact sequence of actions a
user will perform. For example, the user may choose a menu item, click a button, or
mark some text. You can write code to handle the events in which you are interested,
rather than writing code that always executes in the same restricted order.
Regardless of how an event is triggered, VCL objects look to see if you have written
any code to handle that event. If you have, that code is executed; otherwise, the
default event handling behavior takes place.
The kinds of events that can occur can be divided into two main categories:
• User events
• System events
• Internal events

User events
User events are actions that the user initiates. Examples of user events are OnClick
(the user clicked the mouse), OnKeyPress (the user pressed a key on the keyboard),
and OnDblClick (the user double-clicked a mouse button).

System events
System events are events that the operating system fires for you. For example, the
OnTimer event (which the Timer component issues whenever a predefined interval
has elapsed), the OnPaint event (a component or window needs to be redrawn), and
so on. Usually, system events are not directly initiated by a user action.

Internal events
Internal events are events that are generated by the objects in your application. An
example of an internal event is the OnPost event that a dataset generates when your
application tells it to post the current record.

3-4 Developer’s Guide

 Objects, components, and controls

Objects, components, and controls

Figure 3.2 is a greatly simplified view of the inheritance hierarchy that illustrates the
relationship between objects, components, and controls.
Figure 3.1 A simplified hierarchy diagram

TObject TPersistent TComponent TControl TWinControl*

[Objects]
[Objects] [Objects] TGraphicControl [Objects]

[Objects]

Exception * TWidgetControl in cross-platform applications.

[Objects]

Every object (class) inherits from TObject. Objects that can appear in the Form
Designer inherit from TPersistent or TComponent. Controls, which appear to the user
at runtime, inherit from TControl. There are two types of controls, graphic controls,
which inherit from TGraphicControl, and windowed controls, which inherit from
TWinControl or TWidgetControl. A control like TCheckBox inherits all the functionality
of TObject, TPersistent, TComponent, TControl, and TWinControl or TWidgetControl,
and adds specialized capabilities of its own.
The figure shows several important base classes, which are described in the
following table:

Table 3.2 Important base classes

Class Description
TObject Signifies the base class and ultimate ancestor of everything in the VCL or
CLX. TObject encapsulates the fundamental behavior common to all VCL/
CLX objects by introducing methods that perform basic functions such as
creating, maintaining, and destroying an instance of an object.
Exception Specifies the base class of all classes that relate to VCL exceptions. Exception
provides a consistent interface for error conditions, and enables applications
to handle error conditions gracefully.
TPersistent Specifies the base class for all objects that implement publishable properties.
Classes under TPersistent deal with sending data to streams and allow for the
assignment of classes.
TComponent Specifies the base class for all components. Components can be added to the
Component palette and manipulated at design time. Components can own
other components.

Using the component library 3-5

Objects, components, and controls

Table 3.2 Important base classes (continued)

Class Description
TControl Represents the base class for all controls that are visible at runtime. TControl
is the common ancestor of all visual components and provides standard
visual controls like position and cursor. This class also provides events that
respond to mouse actions.
TWinControl or Specifies the base class of all controls that can have keyboard focus. Controls
TWidgetControl under TWinControl are called windowed controls while those under
TWidgetControl are called widgets.

The next few sections present a general description of the types of classes that each
branch contains. For a complete overview of the VCL and CLX object hierarchies,
refer to the VCL Object Hierarchy and CLX Object Hierarchy wall charts included
with this product.

TObject branch
The TObject branch includes all VCL and CLX classes that descend from TObject but
not from TPersistent. Much of the powerful capability of the component library is
established by the methods that TObject introduces. TObject encapsulates the
fundamental behavior common to all classes in the component library by introducing
methods that provide:
• The ability to respond when object instances are created or destroyed.
• Class type and instance information on an object, and runtime type information
(RTTI) about its published properties.
• Support for handling messages (VCL applications) or handling notifications (CLX
applications).
TObject is the immediate ancestor of many simple classes. Classes in the TObject
branch have one common, important characteristic: they are transitory. This means
that these classes do not have a method to save the state that they are in prior to
destruction; they are not persistent.
One of the main groups of classes in this branch is the Exception class. This class
provides a large set of built-in exception classes for automatically handling divide-
by-zero errors, file I/O errors, invalid typecasts, and many other exception
conditions.
Another group in the TObject branch is classes that encapsulate data structures, such
as:
• TBits, a class that stores an “array” of Boolean values.
• TList, a linked list class.
• TStack, a class that maintains a last-in first-out array of pointers.
• TQueue, a class that maintains a first-in first-out array of pointers.
Another group in the TObject branch are wrappers for external objects like TPrinter,
which encapsulates a printer interface, and TIniFile, which lets a program read from
or write to an ini file.

3-6 Developer’s Guide

 Objects, components, and controls

TStream is a good example of another type of class in this branch. TStream is the base
class type for stream objects that can read from or write to various kinds of storage
media, such as disk files, dynamic memory, and so on (see “Using streams” on
page 5-2 for information on streams).
See Chapter 5, “Using BaseCLX,” for information on many of the classes in the
TObject branch (as well as on many global routines in the Delphi Runtime Library).

TPersistent branch
The TPersistent branch includes all VCL and CLX classes that descend from
TPersistent but not from TComponent. Persistence determines what gets saved with a
form file or data module and what gets loaded into the form or data module when it
is retrieved from memory.
Because of their persistence, objects from this branch can appear at design time.
However, they can’t exist independently. Rather, they implement properties for
components. Properties are only loaded and saved with a form if they have an
owner. The owner must be some component. TPersistent introduces the GetOwner
method, which lets the Form Designer determine the owner of the object.
Classes in this branch are also the first to include a published section where
properties can be automatically loaded and saved. A DefineProperties method lets
each class indicate how to load and save properties.
Following are some of the classes in the TPersistent branch of the hierarchy:
• Graphics such as: TBrush, TFont, and TPen.
• Classes such as TBitmap and TIcon, which store and display visual images, and
TClipboard, which contains text or graphics that have been cut or copied from an
application.
• String lists, such as TStringList, which represent text or lists of strings that can be
assigned at design time.
• Collections and collection items, which descend from TCollection or
TCollectionItem. These classes maintain indexed collections of specially defined
items that belong to a component. Examples include THeaderSections and
THeaderSection or TListColumns and TListColumn.

TComponent branch
The TComponent branch contains classes that descend from TComponent but not
TControl. Objects in this branch are components that you can manipulate on forms at
design time but which do not appear to the user at runtime. They are persistent
objects that can do the following:
• Appear on the Component palette and be changed on the form.
• Own and manage other components.
• Load and save themselves.

Using the component library 3-7

Objects, components, and controls

Several methods introduced by TComponent dictate how components act during

design time and what information gets saved with the component. Streaming (the
saving and loading of form files, which store information about the property values
of objects on a form) is introduced in this branch. Properties are persistent if they are
published and published properties are automatically streamed.
The TComponent branch also introduces the concept of ownership that is propagated
throughout the component library. Two properties support ownership: Owner and
Components. Every component has an Owner property that references another
component as its owner. A component may own other components. In this case, all
owned components are referenced in the component’s Components property.
The constructor for every component takes a parameter that specifies the new
component's owner. If the passed-in owner exists, the new component is added to
that owner's Components list. Aside from using the Components list to reference
owned components, this property also provides for the automatic destruction of
owned components. As long as the component has an owner, it will be destroyed
when the owner is destroyed. For example, since TForm is a descendant of
TComponent, all components owned by a form are destroyed and their memory freed
when the form is destroyed. (Assuming, of course, that the components have
properly designed destructors that clean them up correctly.)
If a property type is a TComponent or a descendant, the streaming system creates an
instance of that type when reading it in. If a property type is TPersistent but not
TComponent, the streaming system uses the existing instance available through the
property and reads values for that instance’s properties.
Some of the classes in the TComponent branch include:
• TActionList, a class that maintains a list of actions, which provides an abstraction
of the responses your program can make to user input.
• TMainMenu, a class that provides a menu bar and its accompanying drop-down
menus for a form.
• TOpenDialog, TSaveDialog, TFontDialog, TFindDialog, TColorDialog, and so on,
classes that display and gather information from commonly used dialog boxes.
• TScreen, a class that keeps track of the forms and data modules that an application
creates, the active form, the active control within that form, the size and resolution
of the screen, and the cursors and fonts available for the application to use.
Components that do not need a visual interface can be derived directly from
TComponent. To make a tool such as a TTimer device, you can derive from
TComponent. This type of component resides on the Component palette but performs
internal functions that are accessed through code rather than appearing in the user
interface at runtime.
See Chapter 6, “Working with components,” for details on setting properties, calling
methods, and working with events for components.

3-8 Developer’s Guide

 Objects, components, and controls

TControl branch
The TControl branch consists of components that descend from TControl but not
TWinControl (TWidgetControl in CLX applications). Classes in this branch are
controls: visual objects that the user can see and manipulate at runtime. All controls
have properties, methods, and events in common that relate to how the control looks,
such as its position, the cursor associated with the control’s window, methods to
paint or move the control, and events to respond to mouse actions. Controls in this
branch, however, can never receive keyboard input.
Whereas TComponent defines behavior for all components, TControl defines behavior
for all visual controls. This includes drawing routines, standard events, and
containership.
TControl introduces many visual properties that all controls inherit. These include the
Caption, Color, Font, and HelpContext or HelpKeyword. While these properties inherited
from TControl, they are only published—and hence appear in the Object Inspector—
for controls to which they are applicable. For example, TImage does not publish the
Color property, since its color is determined by the graphic it displays. TControl also
introduces the Parent property, which specifies another control that visually contains
the control.
Classes in the TControl branch often called graphic controls, because they all descend
from TGraphicControl, which is an immediate descendant of TControl. Although these
controls appear to the user at runtime, graphic controls do not have their own
underlying window or widget. Instead, they use their parent’s window or widget. It
is because of this limitation that graphic controls cant receive keyboard input or act
as a parent to other controls. However, because they do not have their own window
or widget, graphic controls use fewer system resources. For details on many of the
classes in the TControl branch, see “Graphic controls” on page 10-18.
There are two versions of TControl, one for VCL (Windows-only) applications and
one for CLX (cross-platform) applications. Most controls have two versions as well, a
Windows-only version that descends from the Windows-only version of TControl,
and a cross-platform version that descends from the cross-platform version of
TControl. The Windows-only controls use native Windows APIs in their
implementations, while the cross-platform versions sit on top of the Qt cross-
platform widget library.

Using the component library 3-9

Objects, components, and controls

See Chapter 7, “Working with controls,” for details on how to interact with controls
at runtime.

TWinControl/TWidgetControl branch
Most controls fall into the TWinControl/ TWidgetControl branch. Unlike graphic
controls, controls in this branch have their own associated window or widget.
Because of this, they are sometimes called windowed controls or widget controls.
Windowed controls all descend from TWinControl, which descends from the
windows-only version of TControl. Widget controls all descend from TWidgetControl,
which descends from the CLX version of TControl.
Controls in the TWinControl/TWidgetControl branch:
• Can receive focus while an application is running, which means they can receive
keyboard input from the application user. In comparison, graphic controls can
only display data and respond to the mouse.
• Can be the parent of one or more child controls.
• Have a handle, or unique identifier, that allows them to access the underlying
window or widget.
The TWinControl/TWidgetControl branch includes both controls that are drawn
automatically (such as TEdit, TListBox, TComboBox, TPageControl, and so on) and
custom controls that do not correspond directly to a single underlying Windows
control or widget. Controls in this latter category, which includes classes like
TStringGrid and TDBNavigator, must handle the details of painting themselves.
Because of this, they descend from TCustomControl, which introduces a Canvas
property on which they can paint themselves.
For details on many of the controls in the TWinControl/TWidgetControl branch, see
Chapter 10, “Types of controls.”

3-10 Developer’s Guide

 Chapter

Using the object model

Chapter4
4
The Delphi language is a set of object-oriented extensions to standard Pascal. Object-
oriented programming is an extension of structured programming that emphasizes
code reuse and encapsulation of data with functionality. Once you define a class, you
and other programmers can use it in different applications, thus reducing
development time and increasing productivity.
This chapter is a brief introduction of object-oriented concepts for programmers who
are just starting out with the Delphi language. For more details on object-oriented
programming for programmers who want to write components that can be installed
on the Component palette, see Chapter 1, “Overview of component creation,” of the
Component Writer’s Guide.

What is an object?
A class is a data type that encapsulates data and operations on data in a single unit.
Before object-oriented programming, data and operations (functions) were treated as
separate elements. An object is an instance of a class. That is, it is a value whose type
is a class. The term object is often used more loosely in this documentation and where
the distinction between a class and an instance of the class is not important, the term
“object” may also refer to a class.
You can begin to understand objects if you understand Pascal records or structures in
C. Records are made of up fields that contain data, where each field has its own type.
Records make it easy to refer to a collection of varied data elements.
Objects are also collections of data elements. But objects—unlike records—contain
procedures and functions that operate on their data. These procedures and functions
are called methods.

Using the object model 4-1

What is an object?

An object’s data elements are accessed through properties. The properties of many
Delphi objects have values that you can change at design time without writing code.
If you want a property value to change at runtime, you need to write only a small
amount of code.
The combination of data and functionality in a single unit is called encapsulation. In
addition to encapsulation, object-oriented programming is characterized by
inheritance and polymorphism. Inheritance means that objects derive functionality from
other objects (called ancestors); objects can modify their inherited behavior.
Polymorphism means that different objects derived from the same ancestor support
the same method and property interfaces, which often can be called interchangeably.

Examining a Delphi object

When you create a new project, the IDE displays a new form for you to customize. In
the Code editor, the automatically generated unit declares a new class type for the
form and includes the code that creates the new form instance. The generated code
for a new Windows application looks like this:
unit Unit1;
interface
uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs;
type
TForm1 = class(TForm){ The type declaration of the form begins here }
private
{ Private declarations }
public
{ Public declarations }
end;{ The type declaration of the form ends here }
var
Form1: TForm1;
implementation{ Beginning of implementation part }
{$R *.dfm}
end.{ End of implementation part and unit}
The new class type is TForm1, and it is derived from type TForm, which is also a class.
A class is like a record in that they both contain data fields, but a class also contains
methods—code that acts on the object’s data. So far, TForm1 appears to contain no
fields or methods, because you haven’t added any components (the fields of the new
object) to the form and you haven’t created any event handlers (the methods of the
new object). TForm1 does contain inherited fields and methods, even though you
don’t see them in the type declaration.
This variable declaration declares a variable named Form1 of the new type TForm1.
var
Form1: TForm1;

4-2 Developer’s Guide

 What is an object?

Form1 represents an instance, or object, of the class type TForm1. You can declare
more than one instance of a class type; you might want to do this, for example, to
create multiple child windows in a Multiple Document Interface (MDI) application.
Each instance maintains its own data, but all instances use the same code to execute
methods.
Although you haven’t added any components to the form or written any code, you
already have a complete GUI application that you can compile and run. All it does is
display a blank form.
Suppose you add a button component to this form and write an OnClick event
handler that changes the color of the form when the user clicks the button. The result
might look like this:
Figure 4.1 A simple form

When the user clicks the button, the form’s color changes to green. This is the event-
handler code for the button’s OnClick event:
procedure TForm1.Button1Click(Sender: TObject);
begin
Form1.Color := clGreen;
end;
Objects can contain other objects as data fields. Each time you place a component on
a form, a new field appears in the form’s type declaration. If you create the
application described above and look at the code in the Code editor, this is what you
see:
unit Unit1;
interface
uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs;
type
TForm1 = class(TForm)
Button1: TButton;{ New data field }
procedure Button1Click(Sender: TObject);{ New method declaration }
private
{ Private declarations }
public
{ Public declarations }
end;

Using the object model 4-3

What is an object?

var
Form1: TForm1;
implementation
{$R *.dfm}
procedure TForm1.Button1Click(Sender: TObject);{ The code of the new method }
begin
Form1.Color := clGreen;
end;
end.
TForm1 has a Button1 field that corresponds to the button you added to the form.
TButton is a class type, so Button1 refers to an object.
All the event handlers you write using the IDE are methods of the form object. Each
time you create an event handler, a method is declared in the form object type. The
TForm1 type now contains a new method, the Button1Click procedure, declared in the
TForm1 type declaration. The code that implements the Button1Click method appears
in the implementation part of the unit.

Changing the name of a component

You should always use the Object Inspector to change the name of a component. For
example, suppose you want to change a form’s name from the default Form1 to a
more descriptive name, such as ColorWindow. When you change the form’s Name
property in the Object Inspector, the new name is automatically reflected in the
form’s .dfm or .xfm file (which you usually don’t edit manually) and in the source
code that the IDE generates:
unit Unit1;
interface
uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs;
type
TColorWindow = class(TForm){ Changed from TForm1 to TColorWindow }
Button1: TButton;
procedure Button1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
ColorWindow: TColorWindow;{ Changed from Form1 to ColorWindow }
implementation
{$R *.dfm}
procedure TColorWindow.Button1Click(Sender: TObject);
begin
Form1.Color := clGreen;{ The reference to Form1 didn't change! }
end;
end.

4-4 Developer’s Guide

 Inheriting data and code from an object

Note that the code in the OnClick event handler for the button hasn’t changed.
Because you wrote the code, you have to update it yourself and correct any
references to the form:
procedure TColorWindow.Button1Click(Sender: TObject);
begin
ColorWindow.Color := clGreen;
end;

Inheriting data and code from an object

The TForm1 object seems simple. TForm1 appears to contain one field (Button1), one
method (Button1Click), and no properties. Yet you can show, hide, or resize of the
form, add or delete standard border icons, and set up the form to become part of a
Multiple Document Interface (MDI) application. You can do these things because the
form has inherited all the properties and methods of the component TForm. When you
add a new form to your project, you start with TForm and customize it by adding
components, changing property values, and writing event handlers. To customize
any object, you first derive a new object from the existing one; when you add a new
form to your project, the IDE automatically derives a new form from the TForm type:
TForm1 = class(TForm)
A derived class inherits all the properties, events, and methods of the class from
which it derives. The derived class is called a descendant and the class from which it
derives is called an ancestor. If you look up TForm in the online Help, you’ll see lists of
its properties, events, and methods, including the ones that TForm inherits from its
ancestors. A Delphi class can have only one immediate ancestor, but it can have
many direct descendants.

Scope and qualifiers

Scope determines the accessibility of an object’s fields, properties, and methods. All
members declared in a class are available to that class and, as is discussed later, often
to its descendants. Although a method’s implementation code appears outside of the
class declaration, the method is still within the scope of the class because it is
declared in the class declaration.
When you write code to implement a method that refers to properties, methods, or
fields of the class where the method is declared, you don’t need to preface those
identifiers with the name of the class. For example, if you put a button on a new form,
you could write this event handler for the button’s OnClick event:
procedure TForm1.Button1Click(Sender: TObject);
begin
Color := clFuchsia;
Button1.Color := clLime;
end;

Using the object model 4-5

Scope and qualifiers

The first statement is equivalent to

Form1.Color := clFuchsia
You don’t need to qualify Color with Form1 because the Button1Click method is part of
TForm1; identifiers in the method body therefore fall within the scope of the TForm1
instance where the method is called. The second statement, in contrast, refers to the
color of the button object (not of the form where the event handler is declared), so it
requires qualification.
The IDE creates a separate unit (source code) file for each form. If you want to access
one form’s components from another form’s unit file, you need to qualify the
component names, like this:
Form2.Edit1.Color := clLime;
In the same way, you can access a component’s methods from another form. For
example,
Form2.Edit1.Clear;
To access Form2’s components from Form1’s unit file, you must also add Form2’s unit
to the uses clause of Form1’s unit.
The scope of a class extends to its descendants. You can, however, redeclare a field,
property, or method in a descendant class. Such redeclarations either hide or
override the inherited member.
For more information about scope, inheritance, and the uses clause, see the Delphi
Language Guide.

Private, protected, public, and published declarations

A class type declaration contains three or four possible sections that control the
accessibility of its fields and methods:
Type
TClassName = Class(TObject)
public
{public fields}
{public methods}
protected
{protected fields}
{protected methods}
private
{private fields}
{private methods}
end;
• The public section declares fields and methods with no access restrictions. Class
instances and descendant classes can access these fields and methods. A public
member is accessible from wherever the class it belongs to is accessible—that is,
from the unit where the class is declared and from any unit that uses that unit.

4-6 Developer’s Guide

 Using object variables

• The protected section includes fields and methods with some access restrictions. A
protected member is accessible within the unit where its class is declared and by
any descendant class, regardless of the descendant class’s unit.
• The private section declares fields and methods that have rigorous access
restrictions. A private member is accessible only within the unit where it is
declared. Private members are often used in a class to implement other (public or
published) methods and properties.
• For classes that descend from TPersistent, a published section declares properties
and events that are available at design time. A published member has the same
visibility as a public member, but the compiler generates runtime type information
for published members. Published properties appear in the Object Inspector at
design time.
When you declare a field, property, or method, the new member is added to one of
these four sections, which gives it its visibility: private, protected, public, or
published.
For more information about visibility, see the Delphi Language Guide.

Using object variables

You can assign one object variable to another object variable if the variables are of the
same type or are assignment compatible. In particular, you can assign an object
variable to another object variable if the type of the variable to which you are
assigning is an ancestor of the type of the variable being assigned. For example, here
is a TSimpleForm type declaration and a variable declaration section declaring two
variables, AForm and Simple:
type
TSimpleForm = class(TForm)
Button1: TButton;
Edit1: TEdit;
private
{ Private declarations }
public
{ Public declarations }
end;
var
AForm: TForm;
SimpleForm: TSimpleForm;

Using the object model 4-7

Creating, instantiating, and destroying objects

AForm is of type TForm, and SimpleForm is of type TSimpleForm. Because TSimpleForm

is a descendant of TForm, this assignment statement is legal:
AForm := SimpleForm;
Suppose you write an event handler for the OnClick event of a button. When the
button is clicked, the event handler for the OnClick event is called. Each event handler
has a Sender parameter of type TObject:
procedure TForm1.Button1Click(Sender: TObject);
begin
ƒ
end;
Because Sender is of type TObject, any object can be assigned to Sender. The value of
Sender is always the control or component that responds to the event. You can test
Sender to find the type of component or control that called the event handler using
the reserved word is. For example,
if Sender is TEdit then
DoSomething
else
DoSomethingElse;

Creating, instantiating, and destroying objects

Many of the objects you use in the Form Designer, such as buttons and edit boxes, are
visible at both design time and runtime. Some, such as common dialog boxes, appear
only at runtime. Still others, such as timers and data source components, have no
visual representation at runtime.
You may want to create your own classes. For example, you could create a TEmployee
class that contains Name, Title, and HourlyPayRate properties. You could then add a
CalculatePay method that uses the data in HourlyPayRate to compute a paycheck
amount. The TEmployee type declaration might look like this:
type
TEmployee = class(TObject)
private
FName: string;
FTitle: string;
FHourlyPayRate: Double;
public
property Name: string read FName write FName;
property Title: string read FTitle write FTitle;
property HourlyPayRate: Double read FHourlyPayRate write FHourlyPayRate;
function CalculatePay: Double;
end;

4-8 Developer’s Guide

 Defining new classes

In addition to the fields, properties, and methods you’ve defined, TEmployee inherits
all the methods of TObject. You can place a type declaration like this one in either the
interface or implementation part of a unit, and then create instances of the new class
by calling the Create method that TEmployee inherits from TObject:
var
Employee: TEmployee;
begin
Employee := TEmployee.Create;
end;
The Create method is called a constructor. It allocates memory for a new instance
object and returns a reference to the object.
Components on a form are created and destroyed automatically. However, if you
write your own code to instantiate objects, you are responsible for disposing of them
as well. Every object inherits a Destroy method (called a destructor) from TObject. To
destroy an object, however, you should call the Free method (also inherited from
TObject), because Free checks for a nil reference before calling Destroy. For example,
Employee.Free;
destroys the Employee object and deallocates its memory.

Components and ownership

Delphi components have a built-in memory-management mechanism that allows one
component to assume responsibility for freeing another. The former component is
said to own the latter. The memory for an owned component is automatically freed
when its owner's memory is freed. The owner of a component—the value of its
Owner property—is determined by a parameter passed to the constructor when the
component is created. By default, a form owns all components on it and is in turn
owned by the application. Thus, when the application shuts down, the memory for
all forms and the components on them is freed.
Ownership applies only to TComponent and its descendants. If you create, for
example, a TStringList or TCollection object (even if it is associated with a form), you
are responsible for freeing the object.

Defining new classes

Although there are many classes in the object hierarchy, you are likely to need to
create additional classes if you are writing object-oriented programs. The classes you
write must descend from TObject or one of its descendants.
The advantage of using classes comes from being able to create new classes as
descendants of existing ones. Each descendant class inherits the fields and methods
of its parent and ancestor classes. You can also declare methods in the new class that
override inherited ones, introducing new, more specialized behavior.

Using the object model 4-9

Defining new classes

The general syntax of a descendant class is as follows:

Type
TClassName = Class (TParentClass)
public
{public fields}
{public methods}
protected
{protected fields}
{protected methods}
private
{private fields}
{private methods}
end;
If no parent class name is specified, the class inherits directly from TObject. TObject
defines only a handful of methods, including a basic constructor and destructor.
To define a class:
1 In the IDE, start with a project open and choose File|New|Unit to create a new
unit where you can define the new class.
2 Add the uses clause and type section to the interface section.
3 In the type section, write the class declaration. You need to declare all the member
variables, properties, methods, and events.
TMyClass = class; {This implicitly descends from TObject}
public
ƒ
private
ƒ
published {If descended from TPersistent or below}
ƒ
If you want the class to descend from a specific class, you need to indicate that
class in the definition:
TMyClass = class(TParentClass); {This descends from TParentClass}
For example:
type TMyButton = class(TButton)
property Size: Integer;
procedure DoSomething;
end;
4 Some editions of the IDE include a feature called class completion that simplifies
the work of defining and implementing new classes by generating skeleton code
for the class members you declare. If you have code completion, invoke it to finish
the class declaration: place the cursor within a method definition in the interface
section and press Ctrl+Shift+C (or right-click and select Complete Class at Cursor).
Any unfinished property declarations are completed, and for any methods that
require an implementation, empty methods are added to the implementation
section.

4-10 Developer’s Guide

 Defining new classes

If you do not have class completion, you need to write the code yourself,
completing property declarations and writing the methods.
Given the example above, if you have class completion, read and write specifiers
are added to your declaration, including any supporting fields or methods:
type TMyButton = class(TButton)
property Size: Integer read FSize write SetSize;
procedure DoSomething;
private
FSize: Integer;
procedure SetSize(const Value: Integer);
The following code is also added to the implementation section of the unit.
{ TMyButton }
procedure TMyButton.DoSomething;
begin
end;
procedure TMyButton.SetSize(const Value: Integer);
begin
FSize := Value;
end;
5 Fill in the methods. For example, to make it so the button beeps when you call the
DoSomething method, add the Beep between begin and end.
{ TMyButton }
procedure TMyButton.DoSomething;
begin
Beep;
end;
procedure TMyButton.SetSize(const Value: Integer);
begin
if fsize < > value then
begin
FSize := Value;
DoSomething;
end;
end;
Note that the button also beeps when you call SetSize to change the size of the
button.
For more information about the syntax, language definitions, and rules for classes,
see the Delphi Language Guide.

Using the object model 4-11

Using interfaces

Using interfaces
Delphi is a single-inheritance language. That means that any class has only a single
direct ancestor. However, there are times you want a new class to inherit properties
and methods from more than one base class so that you can use it sometimes like one
and sometimes like the other. Interfaces let you achieve something like this effect.
An interface is like a class that contains only abstract methods (methods with no
implementation) and a clear definition of their functionality. Interface method
definitions include the number and types of their parameters, their return type, and
their expected behavior. By convention, interfaces are named according to their
behavior and prefaced with a capital I. For example, an IMalloc interface would
allocate, free, and manage memory. Similarly, an IPersist interface could be used as a
general base interface for descendants, each of which defines specific method
prototypes for loading and saving the state of an object to a storage, stream, or file.
An interface has the following syntax:
IMyObject = interface
procedure MyProcedure;
end;
A simple example of an interface declaration is:
type
IEdit = interface
procedure Copy;
procedure Cut;
procedure Paste;
function Undo: Boolean;
end;
Interfaces can never be instantiated. To use an interface, you need to obtain it from an
implementing class.
To implement an interface, define a class that declares the interface in its ancestor list,
indicating that it will implement all of the methods of that interface:
TEditor = class(TInterfacedObject, IEdit)
procedure Copy;
procedure Cut;
procedure Paste;
function Undo: Boolean;
end;
While interfaces define the behavior and signature of their methods, they do not
define the implementations. As long as the class’s implementation conforms to the
interface definition, the interface is fully polymorphic, meaning that accessing and
using the interface is the same for any implementation of it.
For more details about the syntax, language definitions and rules for interfaces, see
the Delphi Language Guide

4-12 Developer’s Guide

 Using interfaces

Using interfaces across the hierarchy

Using interfaces lets you separate the way a class is used from the way it is
implemented. Two classes can implement the same interface without descending
from the same base class. By obtaining an interface from either class, you can call the
same methods without having to know the type of the class. This polymorphic use of
the same methods on unrelated objects is possible because the objects implement the
same interface. For example, consider the interface,
IPaint = interface
procedure Paint;
end;
and the two classes,
TSquare = class(TPolygonObject, IPaint)
procedure Paint;
end;
TCircle = class(TCustomShape, IPaint)
procedure Paint;
end;
Whether or not the two classes share a common ancestor, they are still assignment
compatible with a variable of IPaint as in
var
Painter: IPaint;
begin
Painter := TSquare.Create;
Painter.Paint;
Painter := TCircle.Create;
Painter.Paint;
end;
This could have been accomplished by having TCircle and TSquare descend from a
common ancestor (say, TFigure), which declares a virtual method Paint. Both TCircle
and TSquare would then have overridden the Paint method. In the previous example,
IPaint could be replaced by TFigure. However, consider the following interface:
IRotate = interface
procedure Rotate(Degrees: Integer);
end;
IRotate makes sense for the rectangle but not the circle. The classes would look like
TSquare = class(TRectangularObject, IPaint, IRotate)
procedure Paint;
procedure Rotate(Degrees: Integer);
end;
TCircle = class(TCustomShape, IPaint)
procedure Paint;
end;

Using the object model 4-13

Using interfaces

Later, you could create a class TFilledCircle that implements the IRotate interface to
allow rotation of a pattern that fills the circle without having to add rotation to the
simple circle.
Note For these examples, the immediate base class or an ancestor class is assumed to have
implemented the methods of IInterface, the base interface from which all interfaces
descend. For more information on IInterface, see “Implementing IInterface” on
page 4-14 and “Memory management of interface objects” on page 4-18.

Using interfaces with procedures

Interfaces allow you to write generic procedures that can handle objects without
requiring that the objects descend from a particular base class. Using the IPaint and
IRotate interfaces defined previously, you can write the following procedures:
procedure PaintObjects(Painters: array of IPaint);
var
I: Integer;
begin
for I := Low(Painters) to High(Painters) do
Painters[I].Paint;
end;
procedure RotateObjects(Degrees: Integer; Rotaters: array of IRotate);
var
I: Integer;
begin
for I := Low(Rotaters) to High(Rotaters) do
Rotaters[I].Rotate(Degrees);
end;
RotateObjects does not require that the objects know how to paint themselves and
PaintObjects does not require the objects know how to rotate. This allows the generic
procedures to be used more often than if they were written to only work against a
TFigure class.

Implementing IInterface
Just as all objects descend, directly or indirectly, from TObject, all interfaces derive
from the IInterface interface. IInterface provides for dynamic querying and lifetime
management of the interface. This is established in the three IInterface methods:
• QueryInterface dynamically queries a given object to obtain interface references for
the interfaces that the object supports.
• _AddRef is a reference counting method that increments the count each time a call
to QueryInterface succeeds. While the reference count is nonzero the object must
remain in memory.
• _Release is used with _AddRef to allow an object to track its own lifetime and
determine when it is safe to delete itself. Once the reference count reaches zero, the
object is freed from memory.

4-14 Developer’s Guide

 Using interfaces

Every class that implements interfaces must implement the three IInterface methods,
as well as all of the methods declared by any other ancestor interfaces, and all of the
methods declared by the interface itself. You can, however, inherit the
implementations of methods of interfaces declared in your class.
By implementing these methods yourself, you can provide an alternative means of
lifetime management, disabling reference-counting. This is a powerful technique that
lets you decouple interfaces from reference-counting.

TInterfacedObject
When defining a class that supports one or more interfaces, it is convenient to use
TInterfacedObject as a base class because it implements the methods of IInterface.
TInterfacedObject class is declared in the System unit as follows:
type
TInterfacedObject = class(TObject, IInterface)
protected
FRefCount: Integer;
function QueryInterface(const IID: TGUID; out Obj): HResult; stdcall;
function _AddRef: Integer; stdcall;
function _Release: Integer; stdcall;
public
procedure AfterConstruction; override;
procedure BeforeDestruction; override;
class function NewInstance: TObject; override;
property RefCount: Integer read FRefCount;
end;
Deriving directly from TInterfacedObject is straightforward. In the following example
declaration, TDerived is a direct descendant of TInterfacedObject and implements a
hypothetical IPaint interface.
type
TDerived = class(TInterfacedObject, IPaint)
ƒ
end;
Because it implements the methods of IInterface, TInterfacedObject automatically
handles reference counting and memory management of interfaced objects. For more
information, see “Memory management of interface objects” on page 4-18, which
also discusses writing your own classes that implement interfaces but that do not
follow the reference-counting mechanism inherent in TInterfacedObject.

Using the object model 4-15

Using interfaces

Using the as operator with interfaces

Classes that implement interfaces can use the as operator for dynamic binding on the
interface. In the following example,
procedure PaintObjects(P: TInterfacedObject)
var
X: IPaint;
begin
X := P as IPaint;
{ statements }
end;
the variable P of type TInterfacedObject, can be assigned to the variable X, which is an
IPaint interface reference. Dynamic binding makes this assignment possible. For this
assignment, the compiler generates code to call the QueryInterface method of P’s
IInterface interface. This is because the compiler cannot tell from P’s declared type
whether P’s instance actually supports IPaint. At runtime, P either resolves to an
IPaint reference or an exception is raised. In either case, assigning P to X will not
generate a compile-time error as it would if P was of a class type that did not
implement IInterface.
When you use the as operator for dynamic binding on an interface, you should be
aware of the following requirements:
• Explicitly declaring IInterface: Although all interfaces derive from IInterface, it is
not sufficient, if you want to use the as operator, for a class to simply implement
the methods of IInterface. This is true even if it also implements the interfaces it
explicitly declares. The class must explicitly declare IInterface in its interface list.
• Using an IID: Interfaces can use an identifier that is based on a GUID (globally
unique identifier). GUIDs that are used to identify interfaces are referred to as
interface identifiers (IIDs). If you are using the as operator with an interface, it
must have an associated IID. To create a new GUID in your source code you can
use the Ctrl+Shift+G editor shortcut key.

Reusing code and delegation

One approach to reusing code with interfaces is to have one interfaced object contain,
or be contained by another. Using properties that are object types provides an
approach to containment and code reuse. To support this design for interfaces, the
Delphi language has a keyword implements, that makes if easy to write code to
delegate all or part of the implementation of an interface to a subobject.
Aggregation is another way of reusing code through containment and delegation. In
aggregation, an outer object uses an inner object that implements interfaces which are
exposed only by the outer object.

4-16 Developer’s Guide

 Using interfaces

Using implements for delegation

Many classes have properties that are subobjects. You can also use interfaces as
property types. When a property is of an interface type (or a class type that
implements the methods of an interface) you can use the keyword implements to
specify that the methods of that interface are delegated to the object or interface
reference which is the value of the property. The delegate only needs to provide
implementation for the methods. It does not have to declare the interface support.
The class containing the property must include the interface in its ancestor list.
By default, using the implements keyword delegates all interface methods. However,
you can use methods resolution clauses or declare methods in your class that
implement some of the interface methods to override this default behavior.
The following example uses the implements keyword in the design of a color adapter
object that converts an 8-bit RGB color value to a Color reference:
unit cadapt;
interface
type
IRGB8bit = interface
['{1d76360a-f4f5-11d1-87d4-00c04fb17199}']
function Red: Byte;
function Green: Byte;
function Blue: Byte;
end;
IColorRef = interface
['{1d76360b-f4f5-11d1-87d4-00c04fb17199}']
function Color: Integer;
end;
{ TRGB8ColorRefAdapter map an IRGB8bit to an IColorRef }
TRGB8ColorRefAdapter = class(TInterfacedObject, IRGB8bit, IColorRef)
private
FRGB8bit: IRGB8bit;
FPalRelative: Boolean;
public
constructor Create(rgb: IRGB8bit);
property RGB8Intf: IRGB8bit read FRGB8bit implements IRGB8bit;
property PalRelative: Boolean read FPalRelative write FPalRelative;
function Color: Integer;
end;
implementation
constructor TRGB8ColorRefAdapter.Create(rgb: IRGB8bit);
begin
FRGB8bit := rgb;
end;
function TRGB8ColorRefAdapter.Color: Integer;
begin
if FPalRelative then
Result := PaletteRGB(RGB8Intf.Red, RGB8Intf.Green, RGB8Intf.Blue)
else
Result := RGB(RGB8Intf.Red, RGB8Intf.Green, RGB8Intf.Blue);
end;
end.

Using the object model 4-17

Using interfaces

For more information about the syntax, implementation details, and language rules
of the implements keyword, see the Delphi Language Guide.

Aggregation
Aggregation offers a modular approach to code reuse through sub-objects that make
up the functionality of a containing object, but that hide the implementation details
from that object. In aggregation, an outer object implements one or more interfaces.
At a minimum, it must implement IInterface. The inner object, or objects, also
implement one or more interfaces. However, only the outer object exposes the
interfaces. That is, the outer object exposes both the interfaces it implements and the
ones that its contained objects implement.
Clients know nothing about inner objects. While the outer object provides access to
the inner object interfaces, their implementation is completely transparent. Therefore,
the outer object class can exchange the inner object class type for any class that
implements the same interface. Correspondingly, the code for the inner object classes
can be shared by other classes that want to use it.
The aggregation model defines explicit rules for implementing IInterface using
delegation. The inner object must implement two versions of the IInterface methods.
• It must implement IInterface on itself, controlling its own reference count. This
implementation of IInterface tracks the relationship between the outer and the
inner object. For example, when an object of its type (the inner object) is created,
the creation succeeds only for a requested interface of type IInterface.
• It also implements a second IInterface for all the interfaces it implements that the
outer object exposes. This second IInterface delegates calls to QueryInterface,
_AddRef, and _Release to the outer object. The outer IInterface is referred to as the
“controlling Unknown.”
Refer to the MS online help for the rules about creating an aggregation. When writing
your own aggregation classes, you can also refer to the implementation details of
IInterface in TComObject. TComObject is a COM class that supports aggregation. If you
are writing COM applications, you can also use TComObject directly as a base class.

Memory management of interface objects

One of the concepts behind the design of interfaces is ensuring the lifetime
management of the objects that implement them. The _AddRef and _Release methods
of IInterface provide a way to implement this lifetime management. _AddRef and
_Release track the lifetime of an object by incrementing the reference count on the
object when an interface reference is passed to a client, and will destroy the object
when that reference count is zero.
If you are creating COM objects for distributed applications (in the Windows
environment only), then you should strictly adhere to the reference counting rules.
However, if you are using interfaces only internally in your application, then you
have a choice that depends upon the nature of your object and how you decide to use
it.

4-18 Developer’s Guide

 Using interfaces

Using reference counting

The Delphi compiler provides most of the IInterface memory management for you by
its implementation of interface querying and reference counting. Therefore, if you
have an object that lives and dies by its interfaces, you can easily use reference
counting by deriving from TInterfacedObject. If you decide to use reference counting,
then you must be careful to only hold the object as an interface reference, and to be
consistent in your reference counting. For example:
procedure beep(x: ITest);
function test_func()
var
y: ITest;
begin
y := TTest.Create; // because y is of type ITest, the reference count is one
beep(y); // the act of calling the beep function increments the reference count
// and then decrements it when it returns
y.something; // object is still here with a reference count of one
end;
This is the cleanest and safest approach to memory management; and if you use
TInterfacedObject it is handled automatically. If you do not follow this rule, your
object can unexpectedly disappear, as demonstrated in the following code:
function test_func()
var
x: TTest;
begin
x := TTest.Create; // no count on the object yet
beep(x as ITest); // count is incremented by the act of calling beep
// and decremented when it returns
x.something; // surprise, the object is gone
end;
Note In the examples above, the beep procedure, as it is declared, increments the reference
count (call _AddRef) on the parameter, whereas either of the following declarations
do not:
procedure beep(const x: ITest);
or
procedure beep(var x: ITest);
These declarations generate smaller, faster code.
One case where you cannot use reference counting, because it cannot be consistently
applied, is if your object is a component or a control owned by another component.
In that case, you can still use interfaces, but you should not use reference counting
because the lifetime of the object is not dictated by its interfaces.

Using the object model 4-19

Using interfaces

Not using reference counting

If your object is a component or a control that is owned by another component, then
it is part of a different memory management system that is based in TComponent.
Although some classes mix the object lifetime management approaches of
TComponent and interface reference counting, this is very tricky to implement
correctly.
To create a component that supports interfaces but bypasses the interface reference
counting mechanism, you must implement the _AddRef and _Release methods in code
such as the following:
function TMyObject._AddRef: Integer;
begin
Result := -1;
end;
function TMyObject._Release: Integer;
begin
Result := -1;
end;
You would still implement QueryInterface as usual to provide dynamic querying on
your object.
Note that, because you implement QueryInterface, you can still use the as operator for
interfaces, as long as you create an interface identifier (IID). You can also use
aggregation. If the outer object is a component, the inner object implements reference
counting as usual, by delegating to the “controlling Unknown.” It is at the level of the
outer object that the decision is made to circumvent the _AddRef and _Release
methods, and to handle memory management via another approach. In fact, you can
use TInterfacedObject as a base class for an inner object of an aggregation that has a as
its containing outer object one that does not follow the interface lifetime model.
Note The “controlling Unknown” is the IUnknown implemented by the outer object and
the one for which the reference count of the entire object is maintained. IUnknown is
the same as IInterface, but is used instead in COM-based applications (Windows
only). For more information distinguishing the various implementations of the
IUnknown or IInterface interface by the inner and outer objects, see “Aggregation” on
page 4-18 and the Microsoft online Help topics on the “controlling Unknown.”

4-20 Developer’s Guide

 Using interfaces

Using interfaces in distributed applications

In VCL applications, interfaces are a fundamental element in the COM, SOAP, and
CORBA distributed object models. Delphi provides base classes for these
technologies that extend the basic interface functionality in TInterfacedObject, which
simply implements the IInterface interface methods.
When using COM, classes and interfaces are defined in terms of IUnknown rather
than IInterface. There is no semantic difference between IUnknown and IInterface, the
use of IUnknown is simply a way to adapt Delphi interfaces to the COM definition.
COM classes add functionality for using class factories and class identifiers (CLSIDs).
Class factories are responsible for creating class instances via CLSIDs. The CLSIDs
are used to register and manipulate COM classes. COM classes that have class
factories and class identifiers are called CoClasses. CoClasses take advantage of the
versioning capabilities of QueryInterface, so that when a software module is updated
QueryInterface can be invoked at runtime to query the current capabilities of an object.
New versions of old interfaces, as well as any new interfaces or features of an object,
can become immediately available to new clients. At the same time, objects retain
complete compatibility with existing client code; no recompilation is necessary
because interface implementations are hidden (while the methods and parameters
remain constant). In COM applications, developers can change the implementation
to improve performance, or for any internal reason, without breaking any client code
that relies on that interface. For more information about COM interfaces, see
Chapter 40, “Overview of COM technologies.”
When distributing an application using SOAP, interfaces are required to carry their
own runtime type information (RTTI). The compiler only adds RTTI to an interface
when it is compiled using the {$M+} switch. Such interfaces are called invokable
interfaces. The descendant of any invokable interface is also invokable. However, if an
invokable interface descends from another interface that is not invokable, client
applications can only call the methods defined in the invokable interface and its
descendants. Methods inherited from the non-invokable ancestors are not compiled
with type information and so can’t be called by clients.
The easiest way to define invokable interfaces is to define your interface so that it
descends from IInvokable. IInvokable is the same as IInterface, except that it is compiled
using the {$M+} switch. For more information about Web Service applications that
are distributed using SOAP, and about invokable interfaces, see Chapter 38, “Using
Web Services.”
Another distributed application technology is CORBA. The use of interfaces in
CORBA applications is mediated by stub classes on the client and skeleton classes on
the server. These stub and skeleton classes handle the details of marshaling interface
calls so that parameter values and return values can be transmitted correctly.
Applications must use either a stub or skeleton class, or employ the Dynamic
Invocation Interface (DII) which converts all parameters to special variants (so that
they carry their own type information).

Using the object model 4-21

4-22 Developer’s Guide
 Chapter

Using BaseCLX
Chapter5
5
There are a number of units in the component library that provide the underlying
support for most of the component libraries. These units include the global routines
that make up the runtime library, a number of utility classes such as those that
represent streams and lists, and the classes TObject, TPersistent, and TComponent.
Collectively, these units are called BaseCLX. BaseCLX does not include any of the
components that appear on the Component palette. Rather, the classes and routines
in BaseCLX are used by the components that do appear on the Component palette
and are available for you to use in application code or when you are writing your
own classes.
The following topics discuss many of the classes and routines that make up BaseCLX
and illustrate how to use them.
• Using streams
• Working with files~
• Working with .ini files
• Working with lists
• Working with string lists
• Working with strings~
• Creating drawing spaces
• Printing
• Converting measurements
• Defining custom variants
Note This list of tasks is not exhaustive. The runtime library in BaseCLX contains many
routines to perform tasks that are not mentioned here. These include a host of
mathematical functions (defined in the Math unit), routines for working with date/
time values (defined in the SysUtils and DateUtils units), and routines for working
with Variant values (defined in the Variants unit).

Using BaseCLX 5-1

Using streams

Using streams
Streams are classes that let you read and write data. They provide a common
interface for reading and writing to different media such as memory, strings, sockets,
and BLOB fields in databases. There are several stream classes, which all descend
from TStream. Each stream class is specific to one media type. For example,
TMemoryStream reads from or writes to a memory image; TFileStream reads from or
writes to a file.

Using streams to read or write data

Stream classes all share several methods for reading and writing data. These methods
are distinguished by whether they:
• Return the number of bytes read or written.
• Require the number of bytes to be known.
• Raise an exception on error.

Stream methods for reading and writing

The Read method reads a specified number of bytes from the stream, starting at its
current Position, into a buffer. Read then advances the current position by the number
of bytes actually transferred. The prototype for Read is:
function Read(var Buffer; Count: Longint): Longint;
Read is useful when the number of bytes in the file is not known. Read returns the
number of bytes actually transferred, which may be less than Count if the stream did
not contain Count bytes of data past the current position.
The Write method writes Count bytes from a buffer to the stream, starting at the
current Position. The prototype for Write is:
function Write(const Buffer; Count: Longint): Longint;
After writing to the file, Write advances the current position by the number bytes
written, and returns the number of bytes actually written, which may be less than
Count if the end of the buffer is encountered or the stream can’t accept any more
bytes.
The counterpart procedures are ReadBuffer and WriteBuffer which, unlike Read and
Write, do not return the number of bytes read or written. These procedures are useful
in cases where the number of bytes is known and required, for example when
reading in structures. ReadBuffer and WriteBuffer raise an exception (EReadError and
EWriteError) if the byte count can not be matched exactly. This is in contrast to the

5-2 Developer’s Guide

 Using streams

Read and Write methods, which can return a byte count that differs from the
requested value. The prototypes for ReadBuffer and WriteBuffer are:
procedure ReadBuffer(var Buffer; Count: Longint);
procedure WriteBuffer(const Buffer; Count: Longint);
These methods call the Read and Write methods to perform the actual reading and
writing.

Reading and writing components

TStream defines specialized methods, ReadComponent and WriteComponent, for
reading and writing components. You can use them in your applications as a way to
save components and their properties when you create or alter them at runtime.
ReadComponent and WriteComponent are the methods that the IDE uses to read
components from or write them to form files. When streaming components to or
from a form file, stream classes work with the TFiler classes, TReader and TWriter, to
read objects from the form file or write them out to disk. For more information about
using the component streaming system, see the online Help on the TStream, TFiler,
TReader, TWriter, and TComponent classes.

Reading and writing strings

If you are passing a string to a read or write function, you need to be aware of the
correct syntax. The Buffer parameters for the read and write routines are var and
const types, respectively. These are untyped parameters, so the routine takes the
address of a variable.
The most commonly used type when working with strings is a long string. However,
passing a long string as the Buffer parameter does not produce the correct result.
Long strings contain a size, a reference count, and a pointer to the characters in the
string. Consequently, dereferencing a long string does not result in the pointer
element. You need to first cast the string to a Pointer or PChar, and then dereference it.
For example:
procedure caststring;
var
fs: TFileStream;
const
s: string = 'Hello';
begin
fs := TFileStream.Create('temp.txt', fmCreate or fmOpenWrite);
fs.Write(s, Length(s));// this will give you garbage
fs.Write(PChar(s)^, Length(s));// this is the correct way
end;

Using BaseCLX 5-3

Using streams

Copying data from one stream to another

When copying data from one stream to another, you do not need to explicitly read
and then write the data. Instead, you can use the CopyFrom method, as illustrated in
the following example.
In the following example, one file is copied to another one using streams. The
application includes two edit controls (EdFrom and EdTo) and a Copy File button.
procedure TForm1.CopyFileClick(Sender: TObject);
var
Source, Destination:TStream;
begin
Source := TFileStream.Create(edFrom.Text, fmOpenRead or fmShareDenyWrite);
try
Destination := TFileStream.Create(edTo.Text, fmOpenCreate or fmShareDenyRead);
try
Destination.CopyFrom(Source,Source.Size);
finally
Destination.Free;
end;
finally
Source.Free
end;

Specifying the stream position and size

In addition to methods for reading and writing, streams permit applications to seek
to an arbitrary position in the stream or change the size of the stream. Once you seek
to a specified position, the next read or write operation starts reading from or writing
to the stream at that position.

Seeking to a specific position

The Seek method is the most general mechanism for moving to a particular position
in the stream. There are two overloads for the Seek method:
function Seek(Offset: Longint; Origin: Word): Longint;
function Seek(const Offset: Int64; Origin: TSeekOrigin): Int64;
Both overloads work the same way. The difference is that one version uses a 32-bit
integer to represent positions and offsets, while the other uses a 64-bit integer.

5-4 Developer’s Guide

 Working with files

The Origin parameter indicates how to interpret the Offset parameter. Origin should
be one of the following values:

Table 5.1 Values for the Origin parameter

Value Meaning
soFromBeginning Offset is from the beginning of the resource. Seek moves to the position
Offset. Offset must be >= 0.
soFromCurrent Offset is from the current position in the resource. Seek moves to Position +
Offset.
soFromEnd Offset is from the end of the resource. Offset must be <= 0 to indicate a
number of bytes before the end of the file.

Seek resets the current stream position, moving it by the indicated offset. Seek returns
the new current position in the stream.

Using Position and Size properties

All streams have properties that hold the current position and size of the stream.
These are used by the Seek method, as well as all the methods that read from or write
to the stream.
The Position property indicates the current offset, in bytes, into the stream (from the
beginning of the streamed data). The declaration for Position is:
property Position: Int64;
The Size property indicates the size of the stream in bytes. It can be used to determine
the number of bytes available for reading, or to truncate the data in the stream. The
declaration for Size is:
property Size: Int64;
Size is used internally by routines that read and write to and from the stream.
Setting the Size property changes the size of the data in the stream. For example, on a
file stream, setting Size inserts an end of file marker to truncate the file. If the Size of
the stream cannot be changed, an exception is raised. For example, trying to change
the Size of a read-only file stream raises an exception.

Working with files

BaseCLX supports several ways of working with files. The previous section, “Using
streams,” states that you can use specialized streams to read from or write to files. In
addition to using file streams, there are several runtime library routines for
performing file I/O. Both file streams and the global routines for reading from and
writing to files are described in “Approaches to file I/O” on page 5-6.
In addition to input/output operations, you may want to manipulate files on disk.
Support for operations on the files themselves rather than their contents is described
in “Manipulating files” on page 5-8.

Using BaseCLX 5-5

Working with files

Note When writing cross-platform applications, remember that although the Delphi
language is not case sensitive, the Linux operating system is. When using objects and
routines that work with files, be attentive to the case of file names.

Approaches to file I/O

There are several approaches you can take when reading from and writing to files:
• The recommended approach for working with files is to use file streams. File
streams are instances of the TFileStream class used to access information in disk
files. File streams are a portable and high-level approach to file I/O. Because file
streams make the file handle available, this approach can be combined with the
next one. The next section, “Using file streams” discusses TFileStream in detail.
• You can work with files using a handle-based approach. File handles are provided
by the operating system when you create or open a file to work with its contents.
The SysUtils unit defines a number of file-handling routines that work with files
using file handles. On Windows, these are typically wrappers around Windows
API functions. Because the BaseCLX functions can use the Delphi language syntax,
and occasionally provide default parameter values, they are a convenient interface
to the Windows API. Furthermore, there are corresponding versions on Linux, so
you can use these routines in cross-platform applications. To use a handle-based
approach, you first open a file using the FileOpen function or create a new file
using the FileCreate function. Once you have the handle, use handle-based routines
to work with its contents (write a line, read text, and so on).
• The System unit defines a number of file I/O routines that work with file
variables, usually of the format "F: Text:" or "F: File:" File variables can have one of
three types: typed, text, and untyped. A number of file-handling routines, such as
AssignPrn and writeln, use them. The use of file variables is deprecated, and these
file types are supported only for backward compatibility. They are incompatible
with Windows file handles. If you need to work with them, see the Delphi Language
Guide.

Using file streams

The TFileStream class enables applications to read from and write to a file on disk.
Because TFileStream is a stream object, it shares the common stream methods. You
can use these methods to read from or write to the file, copy data to or from other
stream classes, and read or write components values. See “Using streams” on
page 5-2 for details on the capabilities that files streams inherit by being stream
classes.
In addition, file streams give you access to the file handle, so that you can use them
with global file handling routines that require the file handle.

5-6 Developer’s Guide

 Working with files

Creating and opening files using file streams

To create or open a file and get access to its handle, you simply instantiate a
TFileStream. This opens or creates a specified file and provides methods to read from
or write to it. If the file cannot be opened, the TFileStream constructor raises an
exception.
constructor Create(const filename: string; Mode: Word);
The Mode parameter specifies how the file should be opened when creating the file
stream. The Mode parameter consists of an open mode and a share mode OR’ed
together. The open mode must be one of the following values:

Table 5.2 Open modes

Value Meaning
fmCreate TFileStream a file with the given name. If a file with the given name
exists, open the file in write mode.
fmOpenRead Open the file for reading only.
fmOpenWrite Open the file for writing only. Writing to the file completely replaces the
current contents.
fmOpenReadWrite Open the file to modify the current contents rather than replace them.

The share mode can be one of the following values with the restrictions listed below:

Table 5.3 Share modes

Value Meaning
fmShareCompat Sharing is compatible with the way FCBs are opened (VCL applications
only).
fmShareExclusive Other applications can not open the file for any reason.
fmShareDenyWrite Other applications can open the file for reading but not for writing.
fmShareDenyRead Other applications can open the file for writing but not for reading (VCL
applications only).
fmShareDenyNone No attempt is made to prevent other applications from reading from or
writing to the file.

Note that which share mode you can use depends on which open mode you used.
The following table shows shared modes that are available for each open mode.

Table 5.4 Shared modes available for each open mode

Open Mode fmShareCompat fmShareExclusive fmShareDenyWrite fmShareDenyRead fmShareDenyNone
fmOpenRead Can’t use Can’t use Available Can’t use Available
fmOpenWrite Available Available Can’t use Available Available
fmOpenReadWrite Available Available Available Available Available

The file open and share mode constants are defined in the SysUtils unit.

Using BaseCLX 5-7

Working with files

Using the file handle

When you instantiate TFileStream you get access to the file handle. The file handle is
contained in the Handle property. On Windows, Handle is a Windows file handle. On
Linux versions of CLX, it is a Linux file handle. Handle is read-only and reflects the
mode in which the file was opened. If you want to change the attributes of the file
Handle, you must create a new file stream object.
Some file manipulation routines take a file handle as a parameter. Once you have a
file stream, you can use the Handle property in any situation in which you would use
a file handle. Be aware that, unlike handle streams, file streams close file handles
when the object is destroyed.

Manipulating files
Several common file operations are built into the runtime library. The routines for
working with files operate at a high level. For most routines, you specify the name of
the file and the routine makes the necessary calls to the operating system for you. In
some cases, you use file handles instead.
Caution Although the Delphi language is not case sensitive, the Linux operating system is. Be
attentive to case when working with files in cross-platform applications.

Deleting a file
Deleting a file erases the file from the disk and removes the entry from the disk's
directory. There is no corresponding operation to restore a deleted file, so
applications should generally allow users to confirm before deleting files. To delete a
file, pass the name of the file to the DeleteFile function:
DeleteFile(FileName);
DeleteFile returns True if it deleted the file and False if it did not (for example, if the
file did not exist or if it was read-only). DeleteFile erases the file named by FileName
from the disk.

Finding a file
There are three routines used for finding a file: FindFirst, FindNext, and FindClose.
FindFirst searches for the first instance of a filename with a given set of attributes in a
specified directory. FindNext returns the next entry matching the name and attributes
specified in a previous call to FindFirst. FindClose releases memory allocated by
FindFirst. You should always use FindClose to terminate a FindFirst/FindNext
sequence. If you want to know if a file exists, a FileExists function returns True if the
file exists, False otherwise.

5-8 Developer’s Guide

 Working with files

The three file find routines take a TSearchRec as one of the parameters. TSearchRec
defines the file information searched for by FindFirst or FindNext. If a file is found, the
fields of the TSearchRec type parameter are modified to describe the found file.
type
TFileName = string;
TSearchRec = record
Time: Integer;//Time contains the time stamp of the file.
Size: Integer;//Size contains the size of the file in bytes.
Attr: Integer;//Attr represents the file attributes of the file.
Name: TFileName;//Name contains the filename and extension.
ExcludeAttr: Integer;
FindHandle: THandle;
FindData: TWin32FindData;//FindData contains additional information such as
//file creation time, last access time, long and short filenames.
end;
On field of TSearchRec that is of particular interest is the Attr field. You can test Attr
against the following attribute constants or values to determine if a file has a specific
attribute:

Table 5.5 Attribute constants and values

Constant Value Description
faReadOnly $00000001 Read-only files
faHidden $00000002 Hidden files
faSysFile $00000004 System files
faVolumeID $00000008 Volume ID files
faDirectory $00000010 Directory files
faArchive $00000020 Archive files
faAnyFile $0000003F Any file

To test for an attribute, combine the value of the Attr field with the attribute constant
using the and operator. If the file has that attribute, the result will be greater than 0.
For example, if the found file is a hidden file, the following expression will evaluate
to True:
(SearchRec.Attr and faHidden > 0).
Attributes can be combined by OR’ing their constants or values. For example, to
search for read-only and hidden files in addition to normal files, pass the following as
the Attr parameter.
(faReadOnly or faHidden).

Using BaseCLX 5-9

Working with files

The following example illustrates the use of the three file find routines. It uses a label,
a button named Search, and a button named Again on a form. When the user clicks the
Search button, the first file in the specified path is found, and the name and the
number of bytes in the file appear in the label's caption. Each time the user clicks the
Again button, the next matching filename and size is displayed in the label:
var
SearchRec: TSearchRec;
procedure TForm1.SearchClick(Sender: TObject);
begin
FindFirst('c:\Program Files\MyProgram\bin\*.*', faAnyFile, SearchRec);
Label1.Caption := SearchRec.Name + ' is ' + IntToStr(SearchRec.Size) + ' bytes in size';
end;
procedure TForm1.AgainClick(Sender: TObject);
begin
if FindNext(SearchRec) = 0 then
Label1.Caption := SearchRec.Name + ' is ' + IntToStr(SearchRec.Size) + ' bytes in size'
else
FindClose(SearchRec);
end;
Note In cross-platform applications, you should replace any hard-coded pathnames with
the correct pathname for the system or use environment variables (on the
Environment Variables page when you choose Tools|Environment Options) to
represent them.

Renaming a file
To change a file name, use the RenameFile function:
function RenameFile(const OldFileName, NewFileName: string): Boolean;
RenameFile changes a file name, identified by OldFileName, to the name specified by
NewFileName. If the operation succeeds, RenameFile returns True. If it cannot rename
the file (for example, if a file called NewFileName already exists), RenameFile returns
False. For example:
if not RenameFile('OLDNAME.TXT','NEWNAME.TXT') then
ErrorMsg('Error renaming file!');
You cannot rename (move) a file across drives using RenameFile. You would need to
first copy the file and then delete the old one.
Note RenameFile in the runtime library is a wrapper around the Windows API MoveFile
function, so MoveFile will not work across drives either.

File date-time routines

The FileAge, FileGetDate, and FileSetDate routines operate on operating system date-
time values. FileAge returns the date-and-time stamp of a file, or -1 if the file does not
exist. FileSetDate sets the date-and-time stamp for a specified file, and returns zero on
success or an error code on failure. FileGetDate returns a date-and-time stamp for the
specified file or –1 if the handle is invalid.

5-10 Developer’s Guide

 Working with ini files and the system Registry

As with most of the file manipulating routines, FileAge uses a string filename.
FileGetDate and FileSetDate, however, use a Handle type as a parameter. To get the file
handle either:
• Use the FileOpen or FileCreate function to create a new file or open an existing file.
Both FileOpen and FileCreate return the file handle.
• Instantiate TFileStream to create or open a file. Then use its Handle property. See
“Using file streams” on page 5-6 for more information.

Copying a file
FindingAFile;RenamingAFile;FileDateTimeRoutines;DeletingAFileThe runtime
library does not provide any routines for copying a file. However, if you are writing
Windows-only applications, you can directly call the Windows API CopyFile function
to copy a file. Like most of the runtime library file routines, CopyFile takes a filename
as a parameter, not a file handle. When copying a file, be aware that the file attributes
for the existing file are copied to the new file, but the security attributes are not.
CopyFile is also useful when moving files across drives because neither the RenameFile
function nor the Windows API MoveFile function can rename or move files across
drives. For more information, see the Microsoft Windows online Help.

Working with ini files and the system Registry

Many applications use ini files to store configuration information. BaseCLX includes
two classes for working with ini files: TIniFile and TMemIniFile. Using ini files has the
advantage that they can be used in cross-platform applications and they are easy to
read and edit. For information on these classes, see “Using TIniFile and
TMemIniFile” on page 5-12 for more information.
Many Windows applications replace the use of ini files with the system Registry. The
Windows system Registry is a hierarchical database that acts as a centralized storage
space for configuration information. The VCL includes classes for working with the
system Registry. While these are technically not part of BaseCLX (because they are
only available on Windows), two of these classes, TRegistryIniFile and TRegistry, are
discussed here because of their similarity to the classes for working with ini files.
TRegistryIniFile is useful for cross-platform applications, because it shares a common
ancestor (TCustomIniFile) with the classes that work with ini files. If you confine
yourself to the methods of the common ancestor (TCustomIniFile) your application
can work on both applications with a minimum of conditional code. TRegistryIniFile
is discussed in “Using TRegistryIniFile” on page 5-13.
For applications that are not cross-platform, you can use the TRegistry class. The
properties and methods of TRegistry have names that correspond more directly to the
way the system Registry is organized, because it does not need to be compatible with
the classes for ini files. TRegistry is discussed in “Using TRegistry” on page 5-13.

Using BaseCLX 5-11

Working with ini files and the system Registry

Using TIniFile and TMemIniFile

The ini file format is still popular, many configuration files (such as the DSK Desktop
settings file) are in this format. This format is especially useful in cross-platform
applications, where you can’t always count on a system Registry for storing
configuration information. BaseCLX provides two classes, TIniFile and TMemIniFile,
to make reading and writing ini files very easy.
TIniFile works directly with the ini file on disk while TMemIniFile buffers all changes
in memory and does not write them to disk until you call the UpdateFile method.
When you instantiate the TIniFile or TMemIniFile object, you pass the name of the ini
file as a parameter to the constructor. If the file does not exist, it is automatically
created. You are then free to read values using the various read methods, such as
ReadString, ReadDate, ReadInteger, or ReadBool. Alternatively, if you want to read an
entire section of the ini file, you can use the ReadSection method. Similarly, you can
write values using methods such as WriteBool, WriteInteger, WriteDate, or WriteString.
Following is an example of reading configuration information from an ini file in a
form's OnCreate event handler and writing values in the OnClose event handler.
procedure TForm1.FormCreate(Sender: TObject);
var
Ini: TIniFile;
begin
Ini := TIniFile.Create( ChangeFileExt( Application.ExeName, '.INI' ) );
try
Top := Ini.ReadInteger( 'Form', 'Top', 100 );
Left := Ini.ReadInteger( 'Form', 'Left', 100 );
Caption := Ini.ReadString( 'Form', 'Caption', 'New Form' );
if Ini.ReadBool( 'Form', 'InitMax', false ) then
WindowState = wsMaximized
else
WindowState = wsNormal;
finally
TIniFile.Free;
end;
end;

procedure TForm1.FormClose(Sender: TObject; var Action TCloseAction)

var
Ini: TIniFile;
begin
Ini := TIniFile.Create( ChangeFileExt( Application.ExeName, '.INI' ) );
try
Ini.WriteInteger( 'Form', 'Top', Top);
Ini.WriteInteger( 'Form', 'Left', Left);
Ini.WriteString( 'Form', 'Caption', Caption );
Ini.WriteBool( 'Form', 'InitMax', WindowState = wsMaximized );
finally
TIniFile.Free;
end;
end;

5-12 Developer’s Guide

 Working with ini files and the system Registry

Each of the Read routines takes three parameters. The first parameter identifies the
section of the ini file. The second parameter identifies the value you want to read,
and the third is a default value in case the section or value doesn't exist in the ini file.
Just as the Read methods gracefully handle the case when a section or value does not
exist, the Write routines create the section and/or value if they do not exist. The
example code creates an ini file the first time it is run that looks like this:
[Form]
Top=100
Left=100
Caption=Default Caption
InitMax=0
On subsequent execution of this application, the ini values are read in when the form
is created and written back out in the OnClose event.

Using TRegistryIniFile
Many 32-bit Windows applications store their information in the system Registry
instead of ini files because the Registry is hierarchical and doesn't suffer from the size
limitations of ini files. If you are accustomed to using ini files and want to move your
configuration information to the Registry instead, you can use the TRegistryIniFile
class. You may also want to use TRegistryIniFile in cross-platform applications if you
want to use the system Registry on Windows and an ini file on Linux. You can write
most of your application so that it uses the TCustomIniFile type. You need only
conditionalize the code that creates an instance of TRegistryIniFile (on Windows) or
TMemIniFile (on Linux) and assigns it to the TCustomIniFile your application uses.
TRegistryIniFile makes Registry entries look like ini file entries. All the methods from
TIniFile and TMemIniFile (read and write) exist in TRegistryIniFile.
When you construct a TRegistryIniFile object, the parameter you pass to the
constructor (corresponding to the filename for an IniFile or TMemIniFile object)
becomes a key value under the user key in the registry. All sections and values
branch from that root. TRegistryIniFile simplifies the Registry interface considerably,
so you may want to use it instead of the TRegistry component even if you aren't
porting existing code or writing a cross-platform application.

Using TRegistry
If you are writing a Windows-only application and are comfortable with the
structure of the system Registry, you can use TRegistry. Unlike TRegistryIniFile, which
uses the same properties and methods of other ini file components, the properties
and methods of TRegistry correspond more directly to the structure of the system
Registry. For example, TRegistry lets you specify both the root key and subkey, while
TRegistryIniFile assumes HKEY_CURRENT_USER as a root key. In addition to
methods for opening, closing, saving, moving, copying, and deleting keys, TRegistry
lets you specify the access level you want to use.
Note TRegistry is not available for cross-platform programming.

Using BaseCLX 5-13

Working with lists

The following example retrieves a value from a registry entry:

function GetRegistryValue(KeyName: string): string;
var
Registry: TRegistry;
begin
Registry := TRegistry.Create(KEY_READ);
try
Registry.RootKey = HKEY_LOCAL_MACHINE;
// False because we do not want to create it if it doesn’t exist
Registry.OpenKey(KeyName, False);
Result := Registry.ReadString('VALUE1');
finally
Registry.Free;
end;
end;

Working with lists

BaseCLX includes many classes that represents lists or collections of items. They vary
depending on the types of items they contain, what operations they support, and
whether they are persistent.
The following table lists various list classes, and indicates the types of items they
contain:

Table 5.6 Classes for managing lists

Object Maintains
TList A list of pointers
TThreadList A thread-safe list of pointers
TBucketList A hashed list of pointers
TObjectBucketList A hashed list of object instances
TObjectList A memory-managed list of object instances
TComponentList A memory-managed list of components (that is, instances of classes
descended from TComponent)
TClassList A list of class references
TInterfaceList A list of interface pointers.
TQueue A first-in first-out list of pointers
TStack A last-in first-out list of pointers
TObjectQueue~ A first-in first-out list of objects
TObjectStack~ A last-in first-out list of objects
TCollection Base class for many specialized classes of typed items.
TStringList A list of strings
THashedStringList A list of strings with the form Name=Value, hashed for performance.

5-14 Developer’s Guide

 Working with lists

Common list operations

Although the various list classes contain different types of items and have different
ancestries, most of them share a common set of methods for adding, deleting,
rearranging, and accessing the items in the list.

Adding list items

Most list classes have an Add method, which lets you add an item to the end of the list
(if it is not sorted) or to its appropriate position (if the list is sorted). Typically, the
Add method takes as a parameter the item you are adding to the list and returns the
position in the list where the item was added. In the case of bucket lists (TBucketList
and TObjectBucketList), Add takes not only the item to add, but also a datum you can
associate with that item. In the case of collections, Add takes no parameters, but
creates a new item that it adds. The Add method on collections returns the item it
added, so that you can assign values to the new item’s properties.
Some list classes have an Insert method in addition to the Add method. Insert works
the same way as the Add method, but has an additional parameter that lets you
specify the position in the list where you want the new item to appear. If a class has
an Add method, it also has an Insert method unless the position of items is
predetermined For example, you can’t use Insert with sorted lists because items must
go in sort order, and you can’t use Insert with bucket lists because the hash algorithm
determines the item position.
The only classes that do not have an Add method are the ordered lists. Ordered lists
are queues and stacks. To add items to an ordered list, use the Push method instead.
Push, like Add, takes an item as a parameter and inserts it in the correct position.

Deleting list items

To delete a single item from one of the list classes, use either the Delete method or the
Remove method. Delete takes a single parameter, the index of the item to remove.
Remove also takes a single parameter, but that parameter is a reference to the item to
remove, rather than its index. Some list classes support only a Delete method, some
support only a Remove method, and some have both.
As with adding items, ordered lists behave differently than all other lists. Instead of
using a Delete or Remove method, you remove an item from an ordered list by calling
its Pop method. Pop takes no arguments, because there is only one item that can be
removed.
If you want to delete all of the items in the list, you can call the Clear method. Clear is
available for all lists except ordered lists.

Using BaseCLX 5-15

Working with lists

Accessing list items

All list classes (except TThreadList and the ordered lists) have a property that lets you
access the items in the list. Typically, this property is called Items. For string lists, the
property is called Strings, and for bucket lists it is called Data. The Items, Strings, or
Data property is an indexed property, so that you can specify which item you want to
access.
On TThreadList, you must lock the list before you can access items. When you lock the
list, the LockList method returns a TList object that you can use to access the items.
Ordered lists only let you access the “top” item of the list. You can obtain a reference
to this item by calling the Peek method.

Rearranging list items

Some list classes have methods that let you rearrange the items in the list. Some have
an Exchange method, that swaps the position of two items. Some have a Move method
that lets you move an item to a specified location. Some have a Sort method that lets
you sort the items in the list.
To see what methods are available, check the online Help for the list class you are
using.

Persistent lists
Persistent lists can be saved to a form file. Because of this, they are often used as the
type of a published property on a component. You can add items to the list at design
time, and those items are saved with the object so that they are there when the
component that uses them is loaded into memory at runtime. There are two main
types of persistent lists: string lists and collections.
Examples of string lists include TStringList and THashedStringList. String lists, as the
name implies, contain strings. They provide special support for strings of the form
Name=Value, so that you can look up the value associated with a name. In addition,
most string lists let you associate an object with each string in the list. String lists are
described in more detail in “Working with string lists” on page 5-17.
Collections descend from the class TCollection. Each TCollection descendant is
specialized to manage a specific class of items, where that class descends from
TCollectionItem. Collections support many of the common list operations. All
collections are designed to be the type of a published property, and many can not
function independently of the object that uses them to implement on of its properties.
At design time, the property whose value is a collection can use the collection editor
to let you add, remove, and rearrange items. The collection editor provides a
common user interface for manipulating collections.

5-16 Developer’s Guide

 Working with string lists

Working with string lists

One of the most commonly used types of list is a list of character strings. Examples
include items in a combo box, lines in a memo, names of fonts, and names of rows
and columns in a string grid. BaseCLX provides a common interface to any list of
strings through an object called TStrings and its descendants such as TStringList and
THashedStringList. TStringList implements the abstract properties and methods
introduced by TStrings, and introduces properties, events, and methods to
• Sort the strings in the list.
• Prohibit duplicate strings in sorted lists.
• Respond to changes in the contents of the list.
In addition to providing functionality for maintaining string lists, these objects allow
easy interoperability; for example, you can edit the lines of a memo (which are a
TStrings descendant) and then use these lines as items in a combo box (also a TStrings
descendant).
A string-list property appears in the Object Inspector with TStrings in the Value
column. Double-click TStrings to open the String List editor, where you can edit, add,
or delete lines.
You can also work with string-list objects at runtime to perform such tasks as
• Loading and saving string lists
• Creating a new string list
• Manipulating strings in a list
• Associating objects with a string list

Loading and saving string lists

String-list objects provide SaveToFile and LoadFromFile methods that let you store a
string list in a text file and load a text file into a string list. Each line in the text file
corresponds to a string in the list. Using these methods, you could, for example,
create a simple text editor by loading a file into a memo component, or save lists of
items for combo boxes.
The following example loads a copy of the MyFile.ini file into a memo field and
makes a backup copy called MyFile.bak.
procedure EditWinIni;
var
FileName: string;{ storage for file name }
begin
FileName := 'c:\Program Files\MyProgram\MyFile.ini'{ set the file name }
with Form1.Memo1.Lines do
begin
LoadFromFile(FileName);{ load from file }
SaveToFile(ChangeFileExt(FileName, '.bak'));{ save into backup file }
end;
end;

Using BaseCLX 5-17

Working with string lists

Creating a new string list

A string list is typically part of a component. There are times, however, when it is
convenient to create independent string lists, for example to store strings for a lookup
table. The way you create and manage a string list depends on whether the list is
short-term (constructed, used, and destroyed in a single routine) or long-term
(available until the application shuts down). Whichever type of string list you create,
remember that you are responsible for freeing the list when you finish with it.

Short-term string lists

If you use a string list only for the duration of a single routine, you can create it, use
it, and destroy it all in one place. This is the safest way to work with string lists.
Because the string-list object allocates memory for itself and its strings, you should
use a try...finally block to ensure that the memory is freed even if an exception
occurs.
1 Construct the string-list object.
2 In the try part of a try...finally block, use the string list.
3 In the finally part, free the string-list object.
The following event handler responds to a button click by constructing a string list,
using it, and then destroying it.
procedure TForm1.Button1Click(Sender: TObject);
var
TempList: TStrings;{ declare the list }
begin
TempList := TStringList.Create;{ construct the list object }
try
{ use the string list }
finally
TempList.Free;{ destroy the list object }
end;
end;

Long-term string lists

If a string list must be available at any time while your application runs, construct the
list at start-up and destroy it before the application terminates.
1 In the unit file for your application’s main form, add a field of type TStrings to the
form’s declaration.
2 Write an event handler for the main form’s OnCreate event that executes before
the form appears. It should create a string list and assign it to the field you
declared in the first step.
3 Write an event handler that frees the string list for the form’s OnClose event.

5-18 Developer’s Guide

 Working with string lists

This example uses a long-term string list to record the user’s mouse clicks on the
main form, then saves the list to a file before the application terminates.
unit Unit1;
interface
uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs;
{For CLX apps: uses SysUtils, Variants, Classes, QGraphics, QControls, QForms, QDialogs;}

type
TForm1 = class(TForm)
procedure FormCreate(Sender: TObject);
procedure FormDestroy(Sender: TObject);
procedure FormMouseDown(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
private
{ Private declarations }
public
{ Public declarations }
ClickList: TStrings;{ declare the field }
end;

var
Form1: TForm1;

implementation

{$R *.DFM}

procedure TForm1.FormCreate(Sender: TObject);

begin
ClickList := TStringList.Create;{ construct the list }
end;

procedure TForm1.FormDestroy(Sender: TObject);

begin
ClickList.SaveToFile(ChangeFileExt(Application.ExeName, '.log'));{ save the list }
ClickList.Free;{ destroy the list object }
end;

procedure TForm1.FormMouseDown(Sender: TObject; Button: TMouseButton;

Shift: TShiftState; X, Y: Integer);
begin
ClickList.Add(Format('Click at (%d, %d)', [X, Y]));{ add a string to the list }
end;

end.

Using BaseCLX 5-19

Working with string lists

Manipulating strings in a list

Operations commonly performed on string lists include:
• Counting the strings in a list
• Accessing a particular string
• Finding the position of a string in the list
• Iterating through strings in a list
• Adding a string to a list
• Moving a string within a list
• Deleting a string from a list
• Copying a complete string list

Counting the strings in a list

The read-only Count property returns the number of strings in the list. Since string
lists use zero-based indexes, Count is one more than the index of the last string.

Accessing a particular string

The Strings array property contains the strings in the list, referenced by a zero-based
index. Because Strings is the default property for string lists, you can omit the Strings
identifier when accessing the list; thus
StringList1.Strings[0] := 'This is the first string.';
is equivalent to
StringList1[0] := 'This is the first string.';

Locating items in a string list

To locate a string in a string list, use the IndexOf method. IndexOf returns the index of
the first string in the list that matches the parameter passed to it, and returns –1 if the
parameter string is not found. IndexOf finds exact matches only; if you want to match
partial strings, you must iterate through the string list yourself.
For example, you could use IndexOf to determine whether a given file name is found
among the Items of a list box:
if FileListBox1.Items.IndexOf('TargetFileName') > -1 ...

Iterating through strings in a list

To iterate through the strings in a list, use a for loop that runs from zero to Count – 1.
The following example converts each string in a list box to uppercase characters.
procedure TForm1.Button1Click(Sender: TObject);
var
Index: Integer;
begin
for Index := 0 to ListBox1.Items.Count - 1 do
ListBox1.Items[Index] := UpperCase(ListBox1.Items[Index]);
end;

5-20 Developer’s Guide

 Working with string lists

Adding a string to a list

To add a string to the end of a string list, call the Add method, passing the new string
as the parameter. To insert a string into the list, call the Insert method, passing two
parameters: the string and the index of the position where you want it placed. For
example, to make the string “Three” the third string in a list, you would use:
Insert(2, 'Three');
To append the strings from one list onto another, call AddStrings:
StringList1.AddStrings(StringList2); { append the strings from StringList2 to StringList1 }

Moving a string within a list

To move a string in a string list, call the Move method, passing two parameters: the
current index of the string and the index you want assigned to it. For example, to
move the third string in a list to the fifth position, you would use:
StringListObject.Move(2, 4)

Deleting a string from a list

To delete a string from a string list, call the list’s Delete method, passing the index of
the string you want to delete. If you don’t know the index of the string you want to
delete, use the IndexOf method to locate it. To delete all the strings in a string list, use
the Clear method.
The following example uses IndexOf and Delete to find and delete a string:
with ListBox1.Items do
begin
BIndex := IndexOf('bureaucracy');
if BIndex > -1 then
Delete(BIndex);
end;

Copying a complete string list

You can use the Assign method to copy strings from a source list to a destination list,
overwriting the contents of the destination list. To append strings without
overwriting the destination list, use AddStrings. For example,
Memo1.Lines.Assign(ComboBox1.Items); { overwrites original strings }
copies the lines from a combo box into a memo (overwriting the memo), while
Memo1.Lines.AddStrings(ComboBox1.Items); { appends strings to end }
appends the lines from the combo box to the memo.
When making local copies of a string list, use the Assign method. If you assign one
string-list variable to another—
StringList1 := StringList2;
—the original string-list object will be lost, often with unpredictable results.

Using BaseCLX 5-21

Working with strings

Associating objects with a string list

In addition to the strings stored in its Strings property, a string list can maintain
references to objects, which it stores in its Objects property. Like Strings, Objects is an
array with a zero-based index. The most common use for Objects is to associate
bitmaps with strings for owner-draw controls.
Use the AddObject or InsertObject method to add a string and an associated object to
the list in a single step. IndexOfObject returns the index of the first string in the list
associated with a specified object. Methods like Delete, Clear, and Move operate on
both strings and objects; for example, deleting a string removes the corresponding
object (if there is one).
To associate an object with an existing string, assign the object to the Objects property
at the same index. You cannot add an object without adding a corresponding string.

Working with strings

The runtime library provides many specialized string-handling routines specific to a
string type. These are routines for wide strings, long strings, and null-terminated
strings (meaning PChars). Routines that deal with null-terminated strings use the
null-termination to determine the length of the string. There are no categories of
routines listed for ShortString types. However, some built-in compiler routines deal
with the ShortString type. These include, for example, the Low and High standard
functions. For more details about the various string types, see the Delphi Language
Guide.
The following topics provide an overview of many of the string-handling routines in
the runtime library.

Wide character routines

Wide strings are used in a variety of situations. Some technologies, such as XML, use
wide strings as a native type. You may also choose to use wide strings because they
simplify some of the string-handling issues in applications that have multiple target
locales. Using a wide character encoding scheme has the advantage that you can
make many of the usual assumptions about strings that do not work for MBCS
systems. There is a direct relationship between the number of bytes in the string and
the number of characters in the string. You do not need to worry about cutting
characters in half or mistaking the second part of a character for the start of a
different character.
A disadvantage of working with wide characters is that many VCL controls
represent string values as single byte or MBCS strings. (Cross-platform versions of
the controls typically use wide strings.) Translating between the wide character
system and the MBCS system every time you set a string property or read its value
can require tremendous amounts of extra code and slow your application down.
However, you may want to translate into wide characters for some special string
processing algorithms that need to take advantage of the 1:1 mapping between
characters and WideChars.

5-22 Developer’s Guide

 Working with strings

The following functions convert between standard single-byte character strings (or
MBCS strings) and Unicode strings:
• StringToWideChar
• WideCharLenToString
• WideCharLenToStrVar
• WideCharToString
• WideCharToStrVar
In addition, the following functions translate between WideStrings and other
representations:
• UCS4StringToWideString
• WideStringToUCS4String
• VarToWideStr
• VarToWideStrDef
The following routines work directly with WideStrings:
• WideCompareStr
• WideCompareText
• WideSameStr
• WideSameText
• WideSameCaption (CLX applications only)
• WideFmtStr
• WideFormat
• WideLowerCase
• WideUpperCase
Finally, some routines include overloads for working with wide strings:
• UniqueString
• Length
• Trim
• TrimLeft
• TrimRight

Commonly used long string routines

The long string handling routines cover several functional areas. Within these areas,
some are used for the same purpose, the differences being whether they use a
particular criterion in their calculations. The following tables list these routines by
these functional areas:
• Comparison
• Case conversion
• Modification
• Sub-string

Using BaseCLX 5-23

Working with strings

Where appropriate, the tables also provide columns indicating whether a routine
satisfies the following criteria.
• Uses case sensitivity: If locale settings are used, it determines the definition of case.
If the routine does not use locale settings, analyses are based upon the ordinal
values of the characters. If the routine is case-insensitive, there is a logical merging
of upper and lower case characters that is determined by a predefined pattern.
• Uses locale settings: Locale settings allow you to customize your application for
specific locales, in particular, for Asian language environments. Most locale
settings consider lowercase characters to be less than the corresponding uppercase
characters. This is in contrast to ASCII order, in which lowercase characters are
greater than uppercase characters. Routines that use the system locale are typically
prefaced with Ansi (that is, AnsiXXX).
• Supports the multi-byte character set (MBCS): MBCSs are used when writing code
for far eastern locales. Multi-byte characters are represented by one or more
character codes, so the length in bytes does not necessarily correspond to the
length of the string. The routines that support MBCS parse one- and multibyte
characters.
ByteType and StrByteType determine whether a particular byte is the lead byte of a
multibyte character. Be careful when using multibyte characters not to truncate a
string by cutting a character in half. Do not pass characters as a parameter to a
function or procedure, since the size of a character cannot be predetermined. Pass,
instead, a pointer to a to a character or string. For more information about MBCS,
see “Enabling application code” on page 17-2.

Table 5.7 String comparison routines

Routine Case-sensitive Uses locale settings Supports MBCS
AnsiCompareStr yes yes yes
AnsiCompareText no yes yes
AnsiCompareFileName no (yes in CLX) yes yes
AnsiMatchStr yes yes yes
AnsiMatchText no yes yes
AnsiContainsStr yes yes yes
AnsiContainsText no yes yes
AnsiStartsStr yes yes yes
AnsiStartsText no yes yes
AnsiEndsStr yes yes yes
AnsiEndsText no yes yes
AnsiIndexStr yes yes yes
AnsiIndexText no yes yes
CompareStr yes no no
CompareText no no no
AnsiResemblesText no no no

5-24 Developer’s Guide

 Working with strings

Table 5.8 Case conversion routines

Routine Uses locale settings Supports MBCS
AnsiLowerCase yes yes
AnsiLowerCaseFileName yes yes
AnsiUpperCaseFileName yes yes
AnsiUpperCase yes yes
LowerCase no no
UpperCase no no

Note The routines used for string file names: AnsiCompareFileName,

AnsiLowerCaseFileName, and AnsiUpperCaseFileName all use the system locale. You
should always use file names that are portable because the locale (character set) used
for file names can and might differ from the default user interface.

Table 5.9 String modification routines

Routine Case-sensitive Supports MBCS
AdjustLineBreaks NA yes
AnsiQuotedStr NA yes
AnsiReplaceStr yes yes
AnsiReplaceText no yes
StringReplace optional by flag yes
ReverseString NA no
StuffString NA no
Trim NA yes
TrimLeft NA yes
TrimRight NA yes
WrapText NA yes

Table 5.10 Sub-string routines

Routine Case-sensitive Supports MBCS
AnsiExtractQuotedStr NA yes
AnsiPos yes yes
IsDelimiter yes yes
IsPathDelimiter yes yes
LastDelimiter yes yes
LeftStr NA no
RightStr NA no
MidStr NA no
QuotedStr no no

Using BaseCLX 5-25

Working with strings

Commonly used routines for null-terminated strings

The null-terminated string handling routines cover several functional areas. Within
these areas, some are used for the same purpose, the differences being whether or not
they use a particular criteria in their calculations. The following tables list these
routines by these functional areas:
• Comparison
• Case conversion
• Modification
• Sub-string
• Copying
Where appropriate, the tables also provide columns indicating whether the routine is
case-sensitive, uses the current locale, and/or supports multi-byte character sets.

Table 5.11 Null-terminated string comparison routines

Routine Case-sensitive Uses locale settings Supports MBCS
AnsiStrComp yes yes yes
AnsiStrIComp no yes yes
AnsiStrLComp yes yes yes
AnsiStrLIComp no yes yes
StrComp yes no no
StrIComp no no no
StrLComp yes no no
StrLIComp no no no

Table 5.12 Case conversion routines for null-terminated strings

Routine Uses locale settings Supports MBCS
AnsiStrLower yes yes
AnsiStrUpper yes yes
StrLower no no
StrUpper no no

Table 5.13 String modification routines

Routine
StrCat
StrLCat

Table 5.14 Sub-string routines

Routine Case-sensitive Supports MBCS
AnsiStrPos yes yes
AnsiStrScan yes yes
AnsiStrRScan yes yes

5-26 Developer’s Guide

 Working with strings

Table 5.14 Sub-string routines (continued)

Routine Case-sensitive Supports MBCS
StrPos yes no
StrScan yes no
StrRScan yes no

Table 5.15 String copying routines

Routine
StrCopy
StrLCopy
StrECopy
StrMove
StrPCopy
StrPLCopy

Declaring and initializing strings

When you declare a long string:
S: string;
you do not need to initialize it. Long strings are automatically initialized to empty. To
test a string for empty you can either use the EmptyStr variable:
S = EmptyStr;
or test against an empty string:
S = ‘’;
An empty string has no valid data. Therefore, trying to index an empty string is like
trying to access nil and will result in an access violation:
var
S: string;
begin
S[i]; // this will cause an access violation
// statements
end;
Similarly, if you cast an empty string to a PChar, the result is a nil pointer. So, if you
are passing such a PChar to a routine that needs to read or write to it, be sure that the
routine can handle nil:
var
S: string; // empty string
begin
proc(PChar(S)); // be sure that proc can handle nil
// statements
end;

Using BaseCLX 5-27

Working with strings

If it cannot, then you can either initialize the string:

S := ‘No longer nil’;
proc(PChar(S));// proc does not need to handle nil now
or set the length, using the SetLength procedure:
SetLength(S, 100);//sets the dynamic length of S to 100
proc(PChar(S));// proc does not need to handle nil now
When you use SetLength, existing characters in the string are preserved, but the
contents of any newly allocated space is undefined. Following a call to SetLength, S is
guaranteed to reference a unique string, that is a string with a reference count of one.
To obtain the length of a string, use the Length function.
Remember when declaring a string that:
S: string[n];
implicitly declares a short string, not a long string of n length. To declare a long string
of specifically n length, declare a variable of type string and use the SetLength
procedure.
S: string;
SetLength(S, n);

Mixing and converting string types

Short, long, and wide strings can be mixed in assignments and expressions, and the
compiler automatically generates code to perform the necessary string type
conversions. However, when assigning a string value to a short string variable, be
aware that the string value is truncated if it is longer than the declared maximum
length of the short string variable.
Long strings are already dynamically allocated. If you use one of the built-in pointer
types, such as PAnsiString, PString, or PWideString, remember that you are
introducing another level of indirection. Be sure this is what you intend.
Additional functions (CopyQStringListToTstrings, Copy TStringsToQStringList,
QStringListToTStringList) are provided for converting underlying Qt string types and
CLX string types. These functions are located in Qtypes.pas.

String to PChar conversions

Long string to PChar conversions are not automatic. Some of the differences between
strings and PChars can make conversions problematic:
• Long strings are reference-counted, while PChars are not.
• Assigning to a string copies the data, while a PChar is a pointer to memory.
• Long strings are null-terminated and also contain the length of the string, while
PChars are simply null-terminated.

5-28 Developer’s Guide

 Working with strings

Situations in which these differences can cause subtle errors are discussed in the
following topics.

String dependencies
Sometimes you need convert a long string to a null-terminated string, for example, if
you are using a function that takes a PChar. If you must cast a string to a PChar, be
aware that you are responsible for the lifetime of the resulting PChar. Because long
strings are reference counted, typecasting a string to a PChar increases the
dependency on the string by one, without actually incrementing the reference count.
When the reference count hits zero, the string will be destroyed, even though there is
an extra dependency on it. The cast PChar will also disappear, while the routine you
passed it to may still be using it. For example:
procedure my_func(x: string);
begin
// do something with x
some_proc(PChar(x)); // cast the string to a PChar
// you now need to guarantee that the string remains
// as long as the some_proc procedure needs to use it
end;

Returning a PChar local variable

A common error when working with PChars is to store a local variable in a data
structure, or return it as a value. When your routine ends, the PChar disappears
because it is a pointer to memory, and not a reference counted copy of the string. For
example:
function title(n: Integer): PChar;
var
s: string;
begin
s := Format(‘title - %d’, [n]);
Result := PChar(s); // DON’T DO THIS
end;
This example returns a pointer to string data that is freed when the title function
returns.

Passing a local variable as a PChar

Consider the case where you have a local string variable that you need to initialize by
calling a function that takes a PChar. One approach is to create a local array of char
and pass it to the function, then assign that variable to the string:
// assume FillBuffer is a predefined function
function FillBuffer(Buf:PChar;Count:Integer):Integer
begin
. . .
end;
// assume MAX_SIZE is a predefined constant

Using BaseCLX 5-29

Working with strings

var
i: Integer;
buf: array[0..MAX_SIZE] of char;
S: string;
begin
i := FillBuffer(0, buf, SizeOf(buf));// treats buf as a PChar
S := buf;
//statements
end;
This approach is useful if the size of the buffer is relatively small, since it is allocated
on the stack. It is also safe, since the conversion between an array of char and a string
is automatic. The Length of the string is automatically set to the right value after
assigning buf to the string.
To eliminate the overhead of copying the buffer, you can cast the string to a PChar (if
you are certain that the routine does not need the PChar to remain in memory).
However, synchronizing the length of the string does not happen automatically, as it
does when you assign an array of char to a string. You should reset the string Length
so that it reflects the actual width of the string. If you are using a function that returns
the number of bytes copied, you can do this safely with one line of code:
var
S: string;
begin
SetLength(S, MAX_SIZE;// when casting to a PChar, be sure the string is not empty
SetLength(S, GetModuleFilename( 0, PChar(S), Length(S) ) );
// statements
end;

Compiler directives for strings

The following compiler directives affect character and string types.

Table 5.16 Compiler directives for strings

Directive Description
{$H+/-} A compiler directive, $H, controls whether the reserved word string represents a short
string or a long string. In the default state, {$H+}, string represents a long string. You
can change it to a ShortString by using the {$H-} directive.
{$P+/-} The $P directive is meaningful only for code compiled in the {$H-} state, and is
provided for backwards compatibility. $P controls the meaning of variable parameters
declared using the string keyword in the {$H-} state.
In the {$P-} state, variable parameters declared using the string keyword are normal
variable parameters, but in the {$P+} state, they are open string parameters. Regardless
of the setting of the $P directive, the OpenString identifier can always be used to
declare open string parameters.

5-30 Developer’s Guide

 Creating drawing spaces

Table 5.16 Compiler directives for strings (continued)

Directive Description
{$V+/-} The $V directive controls type checking on short strings passed as variable parameters.
In the {$V+} state, strict type checking is performed, requiring the formal and actual
parameters to be of identical string types.
In the {$V-} (relaxed) state, any short string type variable is allowed as an actual
parameter, even if the declared maximum length is not the same as that of the formal
parameter. Be aware that this could lead to memory corruption. For example:
var S: string[3];
procedure Test(var T: string);
begin
T := ‘1234’;
end;
begin
Test(S);
end.
{$X+/-} The {$X+} compiler directive enables support for null-terminated strings by activating
the special rules that apply to the built-in PChar type and zero-based character arrays.
(These rules allow zero-based arrays and character pointers to be used with Write,
Writeln, Val, Assign, and Rename from the System unit.)

Creating drawing spaces

Technically speaking, the TCanvas class does not belong to BaseCLX because there
are two separate versions, one for the Windows only (in the Graphics unit) and one
for cross-platform applications (in the QGraphics unit). The TCanvas class defined in
the Graphics unit encapsulates a Windows device context and the version in the
QGraphics unit encapsulates a paint device (Qt painter). This class handles all
drawing for forms, visual containers (such as panels) and the printer object (see
“Printing” on page 5-32). Using the canvas object, you need not worry about
allocating pens, brushes, palettes, and so on—all the allocation and deallocation are
handled for you.
TCanvas includes a large number of primitive graphics routines to draw lines, shapes,
polygons, fonts, etc. onto any control that contains a canvas. For example, here is a
button event handler that draws a line from the upper left corner to the middle of the
form and outputs some raw text onto the form:
procedure TForm1.Button1Click(Sender: TObject);
begin
Canvas.Pen.Color := clBlue;
Canvas.MoveTo( 10, 10 );
Canvas.LineTo( 100, 100 );
Canvas.Brush.Color := clBtnFace;
Canvas.Font.Name := ‘Arial’;
Canvas.TextOut( Canvas.PenPos.x, Canvas.PenPos.y,’This is the end of the line’ );
end;

Using BaseCLX 5-31

Printing

The TCanvas object defined in the Graphics unit also protects you against common
Windows graphics errors, such as restoring device contexts, pens, brushes, and so on
to the value they had before the drawing operation. TCanvas is used everywhere in
the VCL that drawing is required or possible, and makes drawing graphics both fail-
safe and easy.
See TCanvas in the online Help reference for a complete listing of properties and
methods.

Printing
Like TCanvas, the TPrinter class does not belong to BaseCLX because there are two
separate versions, one for VCL applications (in the Printers unit) and one for CLX
applications (in the QPrinters unit). The VCL TPrinter object encapsulates details of
Windows printers. The CLX TPrinter object is a paint device that paints on a printer.
It generates postscript and sends that to lpr, lp, or another print command. Both
versions of TPrinter, however, are extremely similar.
To get a list of installed and available printers, use the Printers property. Both printer
objects use a TCanvas (which is identical to the form's TCanvas) which means that
anything that can be drawn on a form can be printed as well. To print an image, call
the BeginDoc method followed by whatever canvas graphics you want to print
(including text through the TextOut method) and send the job to the printer by calling
the EndDoc method.
This example uses a button and a memo on a form. When the user clicks the button,
the content of the memo is printed with a 200-pixel border around the page.
To run this example successfully, add Printers to your uses clause.
procedure TForm1.Button1Click(Sender: TObject);
var
r: TRect;
i: Integer;
begin
with Printer do
begin
r := Rect(200,200,(Pagewidth - 200),(PageHeight - 200));
BeginDoc;
Canvas.Brush.Style := bsClear;
for i := 0 to Memo1.Lines.Count do
Canvas.TextOut(200,200 + (i *
Canvas.TextHeight(Memo1.Lines.Strings[i])),
Memo1.Lines.Strings[i]);
Canvas.Brush.Color := clBlack;
Canvas.FrameRect(r);
EndDoc;
end;
end;
For more information on the use of the TPrinter object, look in the online help under
TPrinter.

5-32 Developer’s Guide

 Converting measurements

Converting measurements
The ConvUtils unit declares a general-purpose Convert function that you can use to
convert a measurement from one set of units to another. You can perform
conversions between compatible units of measurement such as feet and inches or
days and weeks. Units that measure the same types of things are said to be in the
same conversion family. The units you’re converting must be in the same conversion
family. For information on doing conversions, see “Performing conversions” on
page 5-33 and refer to Convert in the online Help.
The StdConvs unit defines several conversion families and measurement units
within each family. In addition, you can create customized conversion families and
associated units using the RegisterConversionType and RegisterConversionFamily
functions. For information on extending conversion and conversion units, see
“Adding new measurement types” on page 5-34 and refer to Convert in the online
Help.

Performing conversions
You can use the Convert function to perform both simple and complex conversions. It
includes a simple syntax and a second syntax for performing conversions between
complex measurement types.

Performing simple conversions

You can use the Convert function to convert a measurement from one set of units to
another. The Convert function converts between units that measure the same type of
thing (distance, area, time, temperature, and so on).
To use Convert, you must specify the units from which to convert and to which to
convert. You use the TConvType type to identify the units of measurement.
For example, this converts a temperature from degrees Fahrenheit to degrees Kelvin:
TempInKelvin := Convert(StrToFloat(Edit1.Text), tuFahrenheit, tuKelvin);

Performing complex conversions

You can also use the Convert function to perform more complex conversions between
the ratio of two measurement types. Examples of when you might need to use this
this are when converting miles per hour to meters per minute for calculating speed or
when converting gallons per minute to liters per hour for calculating flow.
For example, the following call converts miles per gallon to kilometers per liter:
nKPL := Convert(StrToFloat(Edit1.Text), duMiles, vuGallons, duKilometers, vuLiter);
The units you’re converting must be in the same conversion family (they must
measure the same thing). If the units are not compatible, Convert raises an
EConversionError exception. You can check whether two TConvType values are in the
same conversion family by calling CompatibleConversionTypes.

Using BaseCLX 5-33

Converting measurements

The StdConvs unit defines several families of TConvType values. See Conversion
family variables in the online Help for a list of the predefined families of
measurement units and the measurement units in each family.

Adding new measurement types

If you want to perform conversions between measurement units not already defined
in the StdConvs unit, you need to create a new conversion family to represent the
measurement units (TConvType values). When two TConvType values are registered
with the same conversion family, the Convert function can convert between
measurements made using the units represented by those TConvType values.
You first need to obtain TConvFamily values by registering a conversion family using
the RegisterConversionFamily function. After you get a TConvFamily value (by
registering a new conversion family or using one of the global variables in the
StdConvs unit), you can use the RegisterConversionType function to add the new units
to the conversion family. The following examples show how to do this.
For more examples, refer to the source code for the standard conversions unit
(stdconvs.pas). (Note that the source is not included in all editions of Delphi.)

Creating a simple conversion family and adding units

One example of when you could create a new conversion family and add new
measurement types might be when performing conversions between long periods of
time (such as months to centuries) where a loss of precision can occur.
To explain this further, the cbTime family uses a day as its base unit. The base unit is
the one that is used when performing all conversions within that family. Therefore,
all conversions must be done in terms of days. An inaccuracy can occur when
performing conversions using units of months or larger (months, years, decades,
centuries, millennia) because there is not an exact conversion between days and
months, days and years, and so on. Months have different lengths; years have
correction factors for leap years, leap seconds, and so on.
If you are only using units of measurement greater than or equal to months, you can
create a more accurate conversion family with years as its base unit. This example
creates a new conversion family called cbLongTime.

5-34 Developer’s Guide

 Converting measurements

Declare variables
First, you need to declare variables for the identifiers. The identifiers are used in the
new LongTime conversion family, and the units of measurement that are its
members:
var
cbLongTime: TConvFamily;
ltMonths: TConvType;
ltYears: TConvType;
ltDecades: TConvType;
ltCenturies: TConvType;
ltMillennia: TConvType;

Register the conversion family

Next, register the conversion family:
cbLongTime := RegisterConversionFamily (‘Long Times’);
Although an UnregisterConversionFamily procedure is provided, you don’t need to
unregister conversion families unless the unit that defines them is removed at
runtime. They are automatically cleaned up when your application shuts down.

Register measurement units

Next, you need to register the measurement units within the conversion family that
you just created. You use the RegisterConversionType function, which registers units of
measurement within a specified family. You need to define the base unit which in the
example is years, and the other units are defined using a factor that indicates their
relation to the base unit. So, the factor for ltMonths is 1/12 because the base unit for
the LongTime family is years. You also include a description of the units to which
you are converting.
The code to register the measurement units is shown here:
ltMonths:=RegisterConversionType(cbLongTime,‘Months’,1/12);
ltYears:=RegisterConversionType(cbLongTime,’Years’,1);
ltDecades:=RegisterConversionType(cbLongTime,’Decades’,10);
ltCenturies:=RegisterConversionType(cbLongTime,’Centuries’,100);
ltMillennia:=RegisterConversionType(cbLongTime,’Millennia’,1000);

Use the new units

You can now use the newly registered units to perform conversions. The global
Convert function can convert between any of the conversion types that you registered
with the cbLongTime conversion family.
So instead of using the following Convert call,
Convert(StrToFloat(Edit1.Text),tuMonths,tuMillennia);
you can now use this one for greater accuracy:
Convert(StrToFloat(Edit1.Text),ltMonths,ltMillennia);

Using BaseCLX 5-35

Converting measurements

Using a conversion function

For cases when the conversion is more complex, you can use a different syntax to
specify a function to perform the conversion instead of using a conversion factor. For
example, you can’t convert temperature values using a conversion factor, because
different temperature scales have a different origins.
This example, which comes from the StdConvs unit, shows how to register a
conversion type by providing functions to convert to and from the base units.

Declare variables
First, declare variables for the identifiers. The identifiers are used in the cbTemperature
conversion family, and the units of measurement are its members:
var
cbTemperature: TConvFamily;
tuCelsius: TConvType;
tuKelvin: TConvType;
tuFahrenheit: TConvType;
Note The units of measurement listed here are a subset of the temperature units actually
registered in the StdConvs unit.

Register the conversion family

Next, register the conversion family:
cbTemperature := RegisterConversionFamily (‘Temperature’);

Register the base unit

Next, define and register the base unit of the conversion family, which in the example
is degrees Celsius. Note that in the case of the base unit, we can use a simple
conversion factor, because there is no actual conversion to make:
tuCelsius:=RegisterConversionType(cbTemperature,’Celsius’,1);

Write methods to convert to and from the base unit

You need to write the code that performs the conversion from each temperature scale
to and from degrees Celsius, because these do not rely on a simple conversion factor.
These functions are taken from the StdConvs unit:
function FahrenheitToCelsius(const AValue: Double): Double;
begin
Result := ((AValue - 32) * 5) / 9;
end;
function CelsiusToFahrenheit(const AValue: Double): Double;
begin
Result := ((AValue * 9) / 5) + 32;
end;
function KelvinToCelsius(const AValue: Double): Double;
begin
Result := AValue - 273.15;
end;

5-36 Developer’s Guide

 Converting measurements

function CelsiusToKelvin(const AValue: Double): Double;

begin
Result := AValue + 273.15;
end;

Register the other units

Now that you have the conversion functions, you can register the other measurement
units within the conversion family. You also include a description of the units.
The code to register the other units in the family is shown here:
tuKelvin := RegisterConversionType(cbTemperature, 'Kelvin', KelvinToCelsius,
CelsiusToKelvin);
tuFahrenheit := RegisterConversionType(cbTemperature, 'Fahrenheit', FahrenheitToCelsius,
CelsiusToFahrenheit);

Use the new units

You can now use the newly registered units to perform conversions in your
applications. The global Convert function can convert between any of the conversion
types that you registered with the cbTemperature conversion family. For example the
following code converts a value from degrees Fahrenheit to degrees Kelvin.
Convert(StrToFloat(Edit1.Text), tuFahrenheit, tuKelvin);

Using a class to manage conversions

You can always use conversion functions to register a conversion unit. There are
times, however, when this requires you to create an unnecessarily large number of
functions that all do essentially the same thing.
If you can write a set of conversion functions that differ only in the value of a
parameter or variable, you can create a class to handle those conversions. For
example, there is a set standard techniques for converting between the various
European currencies since the introduction of the Euro. Even though the conversion
factors remain constant (unlike the conversion factor between, say, dollars and
Euros), you can’t use a simple conversion factor approach to properly convert
between European currencies for two reasons:
• The conversion must round to a currency-specific number of digits.
• The conversion factor approach uses an inverse factor to the one specified by the
standard Euro conversions.
However, this can all be handled by the conversion functions such as the following:
function FromEuro(const AValue: Double, Factor; FRound: TRoundToRange): Double;
begin
Result := RoundTo(AValue * Factor, FRound);
end;
function ToEuro(const AValue: Double, Factor): Double;
begin
Result := AValue / Factor;
end;

Using BaseCLX 5-37

Converting measurements

The problem is, this approach requires extra parameters on the conversion function,
which means you can’t simply register the same function with every European
currency. In order to avoid having to write two new conversion functions for every
European currency, you can make use of the same two functions by making them the
members of a class.

Creating the conversion class

The class must be a descendant of TConvTypeFactor. TConvTypeFactor defines two
methods, ToCommon and FromCommon, for converting to and from the base units of a
conversion family (in this case, to and from Euros). Just as with the functions you use
directly when registering a conversion unit, these methods have no extra parameters,
so you must supply the number of digits to round off and the conversion factor as
private members of your conversion class:
type
TConvTypeEuroFactor = class(TConvTypeFactor)
private
FRound: TRoundToRange;
public
constructor Create(const AConvFamily: TConvFamily;
const ADescription: string; const AFactor: Double;
const ARound: TRoundToRange);
function ToCommon(const AValue: Double): Double; override;
function FromCommon(const AValue: Double): Double; override;
end;
end;
The constructor assigns values to those private members:
constructor TConvTypeEuroFactor.Create(const AConvFamily: TConvFamily;
const ADescription: string; const AFactor: Double;
const ARound: TRoundToRange);
begin
inherited Create(AConvFamily, ADescription, AFactor);
FRound := ARound;
end;
The two conversion functions simply use these private members:
function TConvTypeEuroFactor.FromCommon(const AValue: Double): Double;
begin
Result := RoundTo(AValue * Factor, FRound);
end;

function TConvTypeEuroFactor.ToCommon(const AValue: Double): Double;

begin
Result := AValue / Factor;
end;

5-38 Developer’s Guide

 Converting measurements

Declare variables
Now that you have a conversion class, begin as with any other conversion family, by
declaring identifiers:
var
euEUR: TConvType; { EU euro }
euBEF: TConvType; { Belgian francs }
euDEM: TConvType; { German marks }
euGRD: TConvType; { Greek drachmas }
euESP: TConvType; { Spanish pesetas }
euFFR: TConvType; { French francs }
euIEP: TConvType; { Irish pounds }
euITL: TConvType; { Italian lire }
euLUF: TConvType; { Luxembourg francs }
euNLG: TConvType; { Dutch guilders }
euATS: TConvType; { Austrian schillings }
euPTE: TConvType; { Portuguese escudos }
euFIM: TConvType; { Finnish marks }
cbEuro: TConvFamily;

Register the conversion family and the other units

Now you are ready to register the conversion family and the European monetary
units, using your new conversion class. Register the conversion family the same way
you registered the other conversion families:
cbEuro := RegisterConversionFamily ('European currency');
To register each conversion type, create an instance of the conversion class that
reflects the factor and rounding properties of that currency, and call the
RegisterConversionType method:
var
LInfo: TConvTypeInfo;
begin
LInfo := TConvTypeEuroFactor.Create(cbEuro, 'EUEuro', 1.0, -2);
if not RegisterConversionType(LInfo, euEUR) then
LInfo.Free;
LInfo := TConvTypeEuroFactor.Create(cbEuro, 'BelgianFrancs', 40.3399, 0);
if not RegisterConversionType(LInfo, euBEF) then
LInfo.Free;
LInfo := TConvTypeEuroFactor.Create(cbEuro, 'GermanMarks', 1.95583, -2);
if not RegisterConversionType(LInfo, euDEM) then
LInfo.Free;
LInfo := TConvTypeEuroFactor.Create(cbEuro, 'GreekDrachmas', 340.75, 0);
if not RegisterConversionType(LInfo, euGRD) then
LInfo.Free;
LInfo := TConvTypeEuroFactor.Create(cbEuro, 'SpanishPesetas', 166.386, 0);
if not RegisterConversionType(LInfo, euESP) then
LInfo.Free;
LInfo := TConvTypeEuroFactor.Create(cbEuro, 'FrenchFrancs', 6.55957, -2);
if not RegisterConversionType(LInfo, euFFR) then
LInfo.Free;
LInfo := TConvTypeEuroFactor.Create(cbEuro, 'IrishPounds', 0.787564, -2);

Using BaseCLX 5-39

Defining custom variants

if not RegisterConversionType(LInfo, euIEP) then

LInfo.Free;
LInfo := TConvTypeEuroFactor.Create(cbEuro, 'ItalianLire', 1936.27, 0);
if not RegisterConversionType(LInfo, euITL) then
LInfo.Free;
LInfo := TConvTypeEuroFactor.Create(cbEuro, 'LuxembourgFrancs', 40.3399, -2);
if not RegisterConversionType(LInfo, euLUF) then
LInfo.Free;
LInfo := TConvTypeEuroFactor.Create(cbEuro, 'DutchGuilders', 2.20371, -2);
if not RegisterConversionType(LInfo, euNLG) then
LInfo.Free;
LInfo := TConvTypeEuroFactor.Create(cbEuro, 'AustrianSchillings', 13.7603, -2);
if not RegisterConversionType(LInfo, euATS) then
LInfo.Free;
LInfo := TConvTypeEuroFactor.Create(cbEuro, 'PortugueseEscudos', 200.482, -2);
if not RegisterConversionType(LInfo, euPTE) then
LInfo.Free;
LInfo := TConvTypeEuroFactor.Create(cbEuro, 'FinnishMarks', 5.94573, 0);
if not RegisterConversionType(LInfo, euFIM) then
LInfo.Free;
end;
Note The ConvertIt demo provides an expanded version of this example that includes
other currencies (that do not have fixed conversion rates) and more error checking.

Use the new units

You can now use the newly registered units to perform conversions in your
applications. The global Convert function can convert between any of the European
currencies you have registered with the new cbEuro family. For example, the
following code converts a value from Italian Lire to German Marks:
Edit2.Text = FloatToStr(Convert(StrToFloat(Edit1.Text), euITL, euDEM));

Defining custom variants

One powerful built-in type of the Delphi language is the Variant type. Variants
represent values whose type is not determined at compile time. Instead, the type of
their value can change at runtime. Variants can mix with other variants and with
integer, real, string, and boolean values in expressions and assignments; the compiler
automatically performs type conversions.
By default, variants can’t hold values that are records, sets, static arrays, files, classes,
class references, or pointers. You can, however, extend the Variant type to work with
any particular example of these types. All you need to do is create a descendant of
the TCustomVariantType class that indicates how the Variant type performs standard
operations.

5-40 Developer’s Guide

 Defining custom variants

To create a Variant type:

1 Map the storage of the variant’s data on to the TVarData record.
2 Declare a class that descends from TCustomVariantType. Implement all required
behavior (including type conversion rules) in the new class.
3 Write utility methods for creating instances of your custom variant and
recognizing its type.
The above steps extend the Variant type so that the standard operators work with
your new type and the new Variant type can be cast to other data types. You can
further enhance your new Variant type so that it supports properties and methods
that you define. When creating a Variant type that supports properties or methods,
you use TInvokeableVariantType or TPublishableVariantType as a base class rather than
TCustomVariantType.

Storing a custom variant type’s data

Variants store their data in the TVarData record type. This type is a record that
contains 16 bytes. The first word indicates the type of the variant, and the remaining
14 bytes are available to store the data. While your new Variant type can work
directly with a TVarData record, it is usually easier to define a record type whose
members have names that are meaningful for your new type, and cast that new type
onto the TVarData record type.
For example, the VarConv unit defines a custom variant type that represents a
measurement. The data for this type includes the units (TConvType) of measurement,
as well as the value (a double). The VarConv unit defines its own type to represent
such a value:
TConvertVarData = packed record
VType: TVarType;
VConvType: TConvType;
Reserved1, Reserved2: Word;
VValue: Double;
end;
This type is exactly the same size as the TVarData record. When working with a
custom variant of the new type, the variant (or its TVarData record) can be cast to
TConvertVarData, and the custom Variant type simply works with the TVarData
record as if it were a TConvertVarData type.
Note When defining a record that maps onto the TVarData record in this way, be sure to
define it as a packed record.

Using BaseCLX 5-41

Defining custom variants

If your new custom Variant type needs more than 14 bytes to store its data, you can
define a new record type that includes a pointer or object instance. For example, the
VarCmplx unit uses an instance of the class TComplexData to represent the data in a
complex-valued variant. It therefore defines a record type the same size as TVarData
that includes a reference to a TComplexData object:
TComplexVarData = packed record
VType: TVarType;
Reserved1, Reserved2, Reserved3: Word;
VComplex: TComplexData;
Reserved4: LongInt;
end;
Object references are actually pointers (two Words), so this type is the same size as
the TVarData record. As before, a complex custom variant (or its TVarData record),
can be cast to TComplexVarData, and the custom variant type works with the
TVarData record as if it were a TComplexVarData type.

Creating a class to enable the custom variant type

Custom variants work by using a special helper class that indicates how variants of
the custom type can perform standard operations. You create this helper class by
writing a descendant of TCustomVariantType. This involves overriding the
appropriate virtual methods of TCustomVariantType.

Enabling casting
One of the most important features of the custom variant type for you to implement
is typecasting. The flexibility of variants arises, in part, from their implicit typecasts.
There are two methods for you to implement that enable the custom Variant type to
perform typecasts: Cast, which converts another variant type to your custom variant,
and CastTo, which converts your custom Variant type to another type of Variant.
When implementing either of these methods, it is relatively easy to perform the
logical conversions from the built-in variant types. You must consider, however, the
possibility that the variant to or from which you are casting may be another custom
Variant type. To handle this situation, you can try casting to one of the built-in
Variant types as an intermediate step.
For example, the following Cast method, from the TComplexVariantType class uses the
type Double as an intermediate type:
procedure TComplexVariantType.Cast(var Dest: TVarData; const Source: TVarData);
var
LSource, LTemp: TVarData;
begin
VarDataInit(LSource);
try
VarDataCopyNoInd(LSource, Source);
if VarDataIsStr(LSource) then
TComplexVarData(Dest).VComplex := TComplexData.Create(VarDataToStr(LSource))

5-42 Developer’s Guide

 Defining custom variants

else
begin
VarDataInit(LTemp);
try
VarDataCastTo(LTemp, LSource, varDouble);
TComplexVarData(Dest).VComplex := TComplexData.Create(LTemp.VDouble, 0);
finally
VarDataClear(LTemp);
end;
end;
Dest.VType := VarType;
finally
VarDataClear(LSource);
end;
end;
In addition to the use of Double as an intermediate Variant type, there are a few
things to note in this implementation:
• The last step of this method sets the VType member of the returned TVarData
record. This member gives the Variant type code. It is set to the VarType property
of TComplexVariantType, which is the Variant type code assigned to the custom
variant.
• The custom variant’s data (Dest) is typecast from TVarData to the record type that
is actually used to store its data (TComplexVarData). This makes the data easier to
work with.
• The method makes a local copy of the source variant rather than working directly
with its data. This prevents side effects that may affect the source data.
When casting from a complex variant to another type, the CastTo method also uses an
intermediate type of Double (for any destination type other than a string):
procedure TComplexVariantType.CastTo(var Dest: TVarData; const Source: TVarData;
const AVarType: TVarType);
var
LTemp: TVarData;
begin
if Source.VType = VarType then
case AVarType of
varOleStr:
VarDataFromOleStr(Dest, TComplexVarData(Source).VComplex.AsString);
varString:
VarDataFromStr(Dest, TComplexVarData(Source).VComplex.AsString);
else
VarDataInit(LTemp);
try
LTemp.VType := varDouble;
LTemp.VDouble := TComplexVarData(LTemp).VComplex.Real;
VarDataCastTo(Dest, LTemp, AVarType);

Using BaseCLX 5-43

Defining custom variants

finally
VarDataClear(LTemp);
end;
end
else
RaiseCastError;
end;
Note that the CastTo method includes a case where the source variant data does not
have a type code that matches the VarType property. This case only occurs for empty
(unassigned) source variants.

Implementing binary operations

To allow the custom variant type to work with standard binary operators (+, -, *, /,
div, mod, shl, shr, and, or, xor listed in the System unit), you must override the
BinaryOp method. BinaryOp has three parameters: the value of the left-hand operand,
the value of the right-hand operand, and the operator. Implement this method to
perform the operation and return the result using the same variable that contained
the left-hand operand.
For example, the following BinaryOp method comes from the TComplexVariantType
defined in the VarCmplx unit:
procedure TComplexVariantType.BinaryOp(var Left: TVarData; const Right: TVarData;
const Operator: TVarOp);
begin
if Right.VType = VarType then
case Left.VType of
varString:
case Operator of
opAdd: Variant(Left) := Variant(Left) + TComplexVarData(Right).VComplex.AsString;
else
RaiseInvalidOp;
end;
else
if Left.VType = VarType then
case Operator of
opAdd:
TComplexVarData(Left).VComplex.DoAdd(TComplexVarData(Right).VComplex);
opSubtract:
TComplexVarData(Left).VComplex.DoSubtract(TComplexVarData(Right).VComplex);
opMultiply:
TComplexVarData(Left).VComplex.DoMultiply(TComplexVarData(Right).VComplex);
opDivide:
TComplexVarData(Left).VComplex.DoDivide(TComplexVarData(Right).VComplex);
else
RaiseInvalidOp;
end
else
RaiseInvalidOp;
end
else
RaiseInvalidOp;
end;

5-44 Developer’s Guide

 Defining custom variants

There are several things to note in this implementation:

This method only handles the case where the variant on the right side of the operator
is a custom variant that represents a complex number. If the left-hand operand is a
complex variant and the right-hand operand is not, the complex variant forces the
right-hand operand first to be cast to a complex variant. It does this by overriding the
RightPromotion method so that it always requires the type in the VarType property:
function TComplexVariantType.RightPromotion(const V: TVarData;
const Operator: TVarOp; out RequiredVarType: TVarType): Boolean;
begin
{ Complex Op TypeX }
RequiredVarType := VarType;
Result := True;
end;
The addition operator is implemented for a string and a complex number (by casting
the complex value to a string and concatenating), and the addition, subtraction,
multiplication, and division operators are implemented for two complex numbers
using the methods of the TComplexData object that is stored in the complex variant’s
data. This is accessed by casting the TVarData record to a TComplexVarData record
and using its VComplex member.
Attempting any other operator or combination of types causes the method to call the
RaiseInvalidOp method, which causes a runtime error. The TCustomVariantType class
includes a number of utility methods such as RaiseInvalidOp that can be used in the
implementation of custom variant types.
BinaryOp only deals with a limited number of types: strings and other complex
variants. It is possible, however, to perform operations between complex numbers
and other numeric types. For the BinaryOp method to work, the operands must be
cast to complex variants before the values are passed to this method. We have
already seen (above) how to use the RightPromotion method to force the right-hand
operand to be a complex variant if the left-hand operand is complex. A similar
method, LeftPromotion, forces a cast of the left-hand operand when the right-hand
operand is complex:
function TComplexVariantType.LeftPromotion(const V: TVarData;
const Operator: TVarOp; out RequiredVarType: TVarType): Boolean;
begin
{ TypeX Op Complex }
if (Operator = opAdd) and VarDataIsStr(V) then
RequiredVarType := varString
else
RequiredVarType := VarType;
Result := True;
end;
This LeftPromotion method forces the left-hand operand to be cast to another complex
variant, unless it is a string and the operation is addition, in which case LeftPromotion
allows the operand to remain a string.

Using BaseCLX 5-45

Defining custom variants

Implementing comparison operations

There are two ways to enable a custom variant type to support comparison operators
(=, <>, <, <=, >, >=). You can override the Compare method, or you can override the
CompareOp method.
The Compare method is easiest if your custom variant type supports the full range of
comparison operators. Compare takes three parameters: the left-hand operand, the
right-hand operand, and a var Parameter that returns the relationship between the
two. For example, the TConvertVariantType object in the VarConv unit implements
the following Compare method:
procedure TConvertVariantType.Compare(const Left, Right: TVarData;
var Relationship: TVarCompareResult);
const
CRelationshipToRelationship: array [TValueRelationship] of TVarCompareResult =
(crLessThan, crEqual, crGreaterThan);
var
LValue: Double;
LType: TConvType;
LRelationship: TValueRelationship;
begin
// supports...
// convvar cmp number
// Compare the value of convvar and the given number
// convvar1 cmp convvar2
// Compare after converting convvar2 to convvar1's unit type
// The right can also be a string. If the string has unit info then it is
// treated like a varConvert else it is treated as a double
LRelationship := EqualsValue;
case Right.VType of
varString:
if TryStrToConvUnit(Variant(Right), LValue, LType) then
if LType = CIllegalConvType then
LRelationship := CompareValue(TConvertVarData(Left).VValue, LValue)
else
LRelationship := ConvUnitCompareValue(TConvertVarData(Left).VValue,
TConvertVarData(Left).VConvType, LValue, LType)
else
RaiseCastError;
varDouble:
LRelationship := CompareValue(TConvertVarData(Left).VValue, TVarData(Right).VDouble);
else
if Left.VType = VarType then
LRelationship := ConvUnitCompareValue(TConvertVarData(Left).VValue,
TConvertVarData(Left).VConvType, TConvertVarData(Right).VValue,
TConvertVarData(Right).VConvType)
else
RaiseInvalidOp;
end;
Relationship := CRelationshipToRelationship[LRelationship];
end;

5-46 Developer’s Guide

 Defining custom variants

If the custom type does not support the concept of “greater than” or “less than,” only
“equal” or “not equal,” however, it is difficult to implement the Compare method,
because Compare must return crLessThan, crEqual, or crGreaterThan. When the only
valid response is “not equal,” it is impossible to know whether to return crLessThan
or crGreaterThan. Thus, for types that do not support the concept of ordering, you can
override the CompareOp method instead.
CompareOp has three parameters: the value of the left-hand operand, the value of the
right-hand operand, and the comparison operator. Implement this method to
perform the operation and return a boolean that indicates whether the comparison is
True. You can then call the RaiseInvalidOp method when the comparison makes no
sense.
For example, the following CompareOp method comes from the TComplexVariantType
object in the VarCmplx unit. It supports only a test of equality or inequality:
function TComplexVariantType.CompareOp(const Left, Right: TVarData;
const Operator: Integer): Boolean;
begin
Result := False;
if (Left.VType = VarType) and (Right.VType = VarType) then
case Operator of
opCmpEQ:
Result := TComplexVarData(Left).VComplex.Equal(TComplexVarData(Right).VComplex);
opCmpNE:
Result := not TComplexVarData(Left).VComplex.Equal(TComplexVarData(Right).VComplex);
else
RaiseInvalidOp;
end
else
RaiseInvalidOp;
end;
Note that the types of operands that both these implementations support are very
limited. As with binary operations, you can use the RightPromotion and LeftPromotion
methods to limit the cases you must consider by forcing a cast before Compare or
CompareOp is called.

Implementing unary operations

To allow the custom variant type to work with standard unary operators ( -, not), you
must override the UnaryOp method. UnaryOp has two parameters: the value of the
operand and the operator. Implement this method to perform the operation and
return the result using the same variable that contained the operand.
For example, the following UnaryOp method comes from the TComplexVariantType
defined in the VarCmplx unit:
procedure TComplexVariantType.UnaryOp(var Right: TVarData; const Operator: TVarOp);
begin
if Right.VType = VarType then
case Operator of
opNegate:
TComplexVarData(Right).VComplex.DoNegate;

Using BaseCLX 5-47

Defining custom variants

else
RaiseInvalidOp;
end
else
RaiseInvalidOp;
end;
Note that for the logical not operator, which does not make sense for complex values,
this method calls RaiseInvalidOp to cause a runtime error.

Copying and clearing custom variants

In addition to typecasting and the implementation of operators, you must indicate
how to copy and clear variants of your custom Variant type.
To indicate how to copy the variant’s value, implement the Copy method. Typically,
this is an easy operation, although you must remember to allocate memory for any
classes or structures you use to hold the variant’s value:
procedure TComplexVariantType.Copy(var Dest: TVarData; const Source: TVarData;
const Indirect: Boolean);
begin
if Indirect and VarDataIsByRef(Source) then
VarDataCopyNoInd(Dest, Source)
else
with TComplexVarData(Dest) do
begin
VType := VarType;
VComplex := TComplexData.Create(TComplexVarData(Source).VComplex);
end;
end;
Note The Indirect parameter in the Copy method signals that the copy must take into
account the case when the variant holds only an indirect reference to its data.
Tip If your custom variant type does not allocate any memory to hold its data (if the data
fits entirely in the TVarData record), your implementation of the Copy method can
simply call the SimplisticCopy method.
To indicate how to clear the variant’s value, implement the Clear method. As with the
Copy method, the only tricky thing about doing this is ensuring that you free any
resources allocated to store the variant’s data:
procedure TComplexVariantType.Clear(var V: TVarData);
begin
V.VType := varEmpty;
FreeAndNil(TComplexVarData(V).VComplex);
end;

5-48 Developer’s Guide

 Defining custom variants

You will also need to implement the IsClear method. This way, you can detect any
invalid values or special values that represent “blank” data:
function TComplexVariantType.IsClear(const V: TVarData): Boolean;
begin
Result := (TComplexVarData(V).VComplex = nil) or
TComplexVarData(V).VComplex.IsZero;
end;

Loading and saving custom variant values

By default, when the custom variant is assigned as the value of a published property,
it is typecast to a string when that property is saved to a form file, and converted back
from a string when the property is read from a form file. You can, however, provide
your own mechanism for loading and saving custom variant values in a more natural
representation. To do so, the TCustomVariantType descendant must implement the
IVarStreamable interface from Classes.pas.
IVarStreamable defines two methods, StreamIn and StreamOut, for reading a variant’s
value from a stream and for writing the variant’s value to the stream. For example,
TComplexVariantType, in the VarCmplx unit, implements the IVarStreamable methods
as follows:
procedure TComplexVariantType.StreamIn(var Dest: TVarData; const Stream: TStream);
begin
with TReader.Create(Stream, 1024) do
try
with TComplexVarData(Dest) do
begin
VComplex := TComplexData.Create;
VComplex.Real := ReadFloat;
VComplex.Imaginary := ReadFloat;
end;
finally
Free;
end;
end;
procedure TComplexVariantType.StreamOut(const Source: TVarData; const Stream: TStream);
begin
with TWriter.Create(Stream, 1024) do
try
with TComplexVarData(Source).VComplex do
begin
WriteFloat(Real);
WriteFloat(Imaginary);
end;
finally
Free;
end;
end;
Note how these methods create a Reader or Writer object for the Stream parameter to
handle the details of reading or writing values.

Using BaseCLX 5-49

Defining custom variants

Using the TCustomVariantType descendant

In the initialization section of the unit that defines your TCustomVariantType
descendant, create an instance of your class. When you instantiate your object, it
automatically registers itself with the variant-handling system so that the new
Variant type is enabled. For example, here is the initialization section of the
VarCmplx unit:
initialization
ComplexVariantType := TComplexVariantType.Create;
In the finalization section of the unit that defines your TCustomVariantType
descendant, free the instance of your class. This automatically unregisters the variant
type. Here is the finalization section of the VarCmplx unit:
finalization
FreeAndNil(ComplexVariantType);

Writing utilities to work with a custom variant type

Once you have created a TCustomVariantType descendant to implement your custom
variant type, it is possible to use the new Variant type in applications. However,
without a few utilities, this is not as easy as it should be.
It is a good idea to create a method that creates an instance of your custom variant
type from an appropriate value or set of values. This function or set of functions fills
out the structure you defined to store your custom variant’s data. For example, the
following function could be used to create a complex-valued variant:
function VarComplexCreate(const AReal, AImaginary: Double): Variant;
begin
VarClear(Result);
TComplexVarData(Result).VType := ComplexVariantType.VarType;
TComplexVarData(ADest).VComplex := TComplexData.Create(ARead, AImaginary);
end;
This function does not actually exist in the VarCmplx unit, but is a synthesis of
methods that do exist, provided to simplify the example. Note that the returned
variant is cast to the record that was defined to map onto the TVarData structure
(TComplexVarData), and then filled out.
Another useful utility to create is one that returns the variant type code for your new
Variant type. This type code is not a constant. It is automatically generated when you
instantiate your TCustomVariantType descendant. It is therefore useful to provide a
way to easily determine the type code for your custom variant type. The following
function from the VarCmplx unit illustrates how to write one, by simply returning
the VarType property of the TCustomVariantType descendant:
function VarComplex: TVarType;
begin
Result := ComplexVariantType.VarType;
end;

5-50 Developer’s Guide

 Defining custom variants

Two other standard utilities provided for most custom variants check whether a
given variant is of the custom type and cast an arbitrary variant to the new custom
type. Here is the implementation of those utilities from the VarCmplx unit:
function VarIsComplex(const AValue: Variant): Boolean;
begin
Result := (TVarData(AValue).VType and varTypeMask) = VarComplex;
end;
function VarAsComplex(const AValue: Variant): Variant;
begin
if not VarIsComplex(AValue) then
VarCast(Result, AValue, VarComplex)
else
Result := AValue;
end;
Note that these use standard features of all variants: the VType member of the
TVarData record and the VarCast function, which works because of the methods
implemented in the TCustomVariantType descendant for casting data.
In addition to the standard utilities mentioned above, you can write any number of
utilities specific to your new custom variant type. For example, the VarCmplx unit
defines a large number of functions that implement mathematical operations on
complex-valued variants.

Supporting properties and methods in custom variants

Some variants have properties and methods. For example, when the value of a
variant is an interface, you can use the variant to read or write the values of
properties on that interface and call its methods. Even if your custom variant type
does not represent an interface, you may want to give it properties and methods that
an application can use in the same way.

Using TInvokeableVariantType
To provide support for properties and methods, the class you create to enable the
new custom variant type should descend from TInvokeableVariantType instead of
directly from TCustomVariantType.
TInvokeableVariantType defines four methods:
• DoFunction
• DoProcedure
• GetProperty
• SetProperty
that you can implement to support properties and methods on your custom variant
type.

Using BaseCLX 5-51

Defining custom variants

For example, the VarConv unit uses TInvokeableVariantType as the base class for
TConvertVariantType so that the resulting custom variants can support properties.
The following example shows the property getter for these properties:
function TConvertVariantType.GetProperty(var Dest: TVarData;
const V: TVarData; const Name: String): Boolean;
var
LType: TConvType;
begin
// supports...
// 'Value'
// 'Type'
// 'TypeName'
// 'Family'
// 'FamilyName'
// 'As[Type]'
Result := True;
if Name = 'VALUE' then
Variant(Dest) := TConvertVarData(V).VValue
else if Name = 'TYPE' then
Variant(Dest) := TConvertVarData(V).VConvType
else if Name = 'TYPENAME' then
Variant(Dest) := ConvTypeToDescription(TConvertVarData(V).VConvType)
else if Name = 'FAMILY' then
Variant(Dest) := ConvTypeToFamily(TConvertVarData(V).VConvType)
else if Name = 'FAMILYNAME' then
Variant(Dest) := ConvFamilyToDescription(ConvTypeToFamily(TConvertVarData(V).VConvType))
else if System.Copy(Name, 1, 2) = 'AS' then
begin
if DescriptionToConvType(ConvTypeToFamily(TConvertVarData(V).VConvType),
System.Copy(Name, 3, MaxInt), LType) then
VarConvertCreateInto(Variant(Dest), Convert(TConvertVarData(V).VValue,
TConvertVarData(V).VConvType, LType), LType)
else
Result := False;
end
else
Result := False;
end;
The GetProperty method checks the Name parameter to determine what property is
wanted. It then retrieves the information from the TVarData record of the Variant (V),
and returns it as a Variant (Dest). Note that this method supports properties whose
names are dynamically generated at runtime (As[Type]), based on the current value
of the custom variant.
Similarly, the SetProperty, DoFunction, and DoProcedure methods are sufficiently
generic that you can dynamically generate method names, or respond to variable
numbers and types of parameters.

5-52 Developer’s Guide

 Defining custom variants

Using TPublishableVariantType
If the custom variant type stores its data using an object instance, then there is an
easier way to implement properties, as long as they are also properties of the object
that represents the variant’s data. If you use TPublishableVariantType as the base class
for your custom variant type, then you need only implement the GetInstance method,
and all the published properties of the object that represents the variant’s data are
automatically implemented for the custom variants.
For example, as was seen in “Storing a custom variant type’s data” on page 5-41,
TComplexVariantType stores the data of a complex-valued variant using an instance of
TComplexData. TComplexData has a number of published properties (Real, Imaginary,
Radius, Theta, and FixedTheta), that provide information about the complex value.
TComplexVariantType descends from TPublishableVariantType, and implements the
GetInstance method to return the TComplexData object (in TypInfo.pas) that is stored
in a complex-valued variant’s TVarData record:
function TComplexVariantType.GetInstance(const V: TVarData): TObject;
begin
Result := TComplexVarData(V).VComplex;
end;
TPublishableVariantType does the rest. It overrides the GetProperty and SetProperty
methods to use the runtime type information (RTTI) of the TComplexData object for
getting and setting property values.
Note For TPublishableVariantType to work, the object that holds the custom variant’s data
must be compiled with RTTI. This means it must be compiled using the {$M+}
compiler directive, or descend from TPersistent.

Using BaseCLX 5-53

5-54 Developer’s Guide
 Chapter

Working with components

Chapter6
6
Many components are provided in the IDE on the Component palette. You select
components from the Component palette and drop them onto a form or data module.
You design the application’s user interface by arranging the visual components such
as buttons and list boxes on a form. You can also place nonvisual components such as
data access components on either a form or a data module.
At first glance, Delphi’s components appear to be just like any other classes. But there
are differences between components in Delphi and the standard class hierarchies that
many programmers work with. Some differences are described here:
• All Delphi components descend from TComponent.
• Components are most often used as is and are changed through their properties,
rather than serving as “base classes” to be subclassed to add or change
functionality. When a component is inherited, it is usually to add specific code to
existing event handling member functions.
• Components can only be allocated on the heap, not on the stack.
• Properties of components intrinsically contain runtime type information.
• Components can be added to the Component palette in the IDE and manipulated
on a form.
Components often achieve a better degree of encapsulation than is usually found in
standard classes. For example, consider the use of a dialog containing a push button.
In a Windows program developed using VCL components, when a user clicks on the
button, the system generates a WM_LBUTTONDOWN message. The program must
catch this message (typically in a switch statement, a message map, or a response
table) and dispatch it to a routine that will execute in response to the message.

Working with components 6-1

Setting component properties

Most Windows messages (VCL applications) or system events (CLX applications) are
handled by Delphi components. When you want to respond to a message or system
event, you only need to provide an event handler.
Chapter 9, “Developing the application user interface,” provides details on using
forms such as creating modal forms dynamically, passing parameters to forms, and
retrieving data from forms.

Setting component properties

To set published properties at design time, you can use the Object Inspector and, in
some cases, special property editors. To set properties at runtime, assign their values
in your application source code.
For information about the properties of each component, see the online Help.

Setting properties at design time

When you select a component on a form at design time, the Object Inspector displays
its published properties and (when appropriate) allows you to edit them. Use the Tab
key to toggle between the left-hand Property column and the right-hand Value
column. When the cursor is in the Property column, you can navigate to any property
by typing the first letters of its name. For properties of Boolean or enumerated types,
you can choose values from a drop-down list or toggle their settings by double-
clicking in Value column.
If a plus (+) symbol appears next to a property name, clicking the plus symbol or
typing ‘+’ when the property has focus displays a list of subvalues for the property.
Similarly, if a minus (-) symbol appears next to the property name, clicking the minus
symbol or typing ‘-’ hides the subvalues.
By default, properties in the Legacy category are not shown; to change the display
filters, right-click in the Object Inspector and choose View. For more information, see
“property categories” in the online Help.
When more than one component is selected, the Object Inspector displays all
properties—except Name—that are shared by the selected components. If the value
for a shared property differs among the selected components, the Object Inspector
displays either the default value or the value from the first component selected.
When you change a shared property, the change applies to all selected components.
Changing code-related properties, such as the name of an event handler, in the
Object Inspector automatically changes the corresponding source code. In addition,
changes to the source code, such as renaming an event handler method in a form
class declaration, is immediately reflected in the Object Inspector.

6-2 Developer’s Guide

 Calling methods

Using property editors

Some properties, such as Font, have special property editors. Such properties appear
with ellipsis marks (...) next to their values when the property is selected in the Object
Inspector. To open the property editor, double-click in the Value column, click the
ellipsis mark, or type Ctrl+Enter when focus is on the property or its value. With some
components, double-clicking the component on the form also opens a property editor.
Property editors let you set complex properties from a single dialog box. They
provide input validation and often let you preview the results of an assignment.

Setting properties at runtime

Any writable property can be set at runtime in your source code. For example, you
can dynamically assign a caption to a form:
Form1.Caption := MyString;

Calling methods
Methods are called just like ordinary procedures and functions. For example, visual
controls have a Repaint method that refreshes the control’s image on the screen. You
could call the Repaint method in a draw-grid object like this:
DrawGrid1.Repaint;
As with properties, the scope of a method name determines the need for qualifiers. If
you want, for example, to repaint a form within an event handler of one of the form’s
child controls, you don’t have to prepend the name of the form to the method call:
procedure TForm1.Button1Click(Sender: TObject);
begin
Repaint;
end;
For more information about scope, see “Scope and qualifiers” on page 4-5.

Working with events and event handlers

Almost all the code you write is executed, directly or indirectly, in response to events.
An event is a special kind of property that represents a runtime occurrence, often a
user action. The code that responds directly to an event—called an event handler—is a
Delphi procedure. The sections that follow show how to:
• Generate a new event handler.
• Generate a handler for a component’s default event.
• Locate event handlers.
• Associate an event with an existing event handler.
• Associate menu events with event handlers.
• Delete event handlers.

Working with components 6-3

Working with events and event handlers

Generating a new event handler

You can generate skeleton event handlers for forms and other components. To create
an event handler:
1 Select a component.
2 Click the Events tab in the Object Inspector. The Events page of the Object
Inspector displays all events defined for the component.
3 Select the event you want, then double-click the Value column or press Ctrl+Enter.
The Code editor opens with the cursor inside the skeleton event handler, or
begin...end block.
4 At the cursor, type the code that you want to execute when the event occurs.

Generating a handler for a component’s default event

Some components have a default event, which is the event the component most
commonly needs to handle. For example, a button’s default event is OnClick. To
create a default event handler, double-click the component in the Form Designer; this
generates a skeleton event-handling procedure and opens the Code editor with the
cursor in the body of the procedure, where you can easily add code.
Not all components have a default event. Some components, such as TBevel, don’t
respond to any events. Other components respond differently when you double-click
them in the Form Designer. For example, many components open a default property
editor or other dialog when they are double-clicked at design time.

Locating event handlers

If you generated a default event handler for a component by double-clicking it in the
Form Designer, you can locate that event handler in the same way. Double-click the
component, and the Code editor opens with the cursor at the beginning of the event-
handler body.
To locate an event handler that’s not the default,
1 In the form, select the component whose event handler you want to locate.
2 In the Object Inspector, click the Events tab.
3 Select the event whose handler you want to view and double-click in the Value
column. The Code editor opens with the cursor inside the skeleton event-handler.

6-4 Developer’s Guide

 Working with events and event handlers

Associating an event with an existing event handler

You can reuse code by writing event handlers that respond to more than one event.
For example, many applications provide speed buttons that are equivalent to drop-
down menu commands. When a button initiates the same action as a menu
command, you can write a single event handler and assign it to both the button’s and
the menu item’s OnClick event.
To associate an event with an existing event handler,
1 On the form, select the component whose event you want to handle.
2 On the Events page of the Object Inspector, select the event to which you want to
attach a handler.
3 Click the down arrow in the Value column next to the event to open a list of
previously written event handlers. (The list includes only event handlers written
for events of the same name on the same form.) Select from the list by clicking an
event-handler name.
The previous procedure is an easy way to reuse event handlers. Action lists and in the
VCL, action bands, however, provide powerful tools for centrally organizing the code
that responds to user commands. Action lists can be used in cross-platform
applications, whereas action bands cannot. For more information about action lists
and action bands, see “Organizing actions for toolbars and menus” on page 9-18.

Using the Sender parameter

In an event handler, the Sender parameter indicates which component received the
event and therefore called the handler. Sometimes it is useful to have several
components share an event handler that behaves differently depending on which
component calls it. You can do this by using the Sender parameter in an if...then...else
statement. For example, the following code displays the title of the application in the
caption of a dialog box only if the OnClick event was received by Button1.
procedure TMainForm.Button1Click(Sender: TObject);
begin
if Sender = Button1 then
AboutBox.Caption := 'About ' + Application.Title
else
AboutBox.Caption := '';
AboutBox.ShowModal;
end;

Displaying and coding shared events

When components share events, you can display their shared events in the Object
Inspector. First, select the components by holding down the Shift key and clicking on
them in the Form Designer; then choose the Events tab in the Object Inspector. From
the Value column in the Object Inspector, you can now create a new event handler
for, or assign an existing event handler to, any of the shared events.

Working with components 6-5

Working with events and event handlers

Associating menu events with event handlers

The Menu Designer, along with the MainMenu and PopupMenu components, make it
easy to supply your application with drop-down and pop-up menus. For the menus
to work, however, each menu item must respond to the OnClick event, which occurs
whenever the user chooses the menu item or presses its accelerator or shortcut key.
This section explains how to associate event handlers with menu items. For
information about the Menu Designer and related components, see “Creating and
managing menus” on page 9-32.
To create an event handler for a menu item,
1 Open the Menu Designer by double-clicking on a MainMenu or PopupMenu
component.
2 Select a menu item in the Menu Designer. In the Object Inspector, make sure that a
value is assigned to the item’s Name property.
3 From the Menu Designer, double-click the menu item. The Code editor opens with
the cursor inside the skeleton event handler, or the begin...end block.
4 At the cursor, type the code that you want to execute when the user selects the
menu command.
To associate a menu item with an existing OnClick event handler,
1 Open the Menu Designer by double-clicking a MainMenu or PopupMenu
component.
2 Select a menu item in the Menu Designer. In the Object Inspector, make sure that a
value is assigned to the item’s Name property.
3 On the Events page of the Object Inspector, click the down arrow in the Value
column next to OnClick to open a list of previously written event handlers. (The
list includes only event handlers written for OnClick events on this form.) Select
from the list by clicking an event handler name.

Deleting event handlers

When you delete a component from a form using the Form Designer, the Code editor
removes the component from the form’s type declaration. It does not, however,
delete any associated methods from the unit file, since these methods may still be
called by other components on the form. You can manually delete a method—such as
an event handler—but if you do so, be sure to delete both the method’s forward
declaration (in the unit’s interface section) and its implementation (in the
implementation section). Otherwise you’ll get a compiler error when you build your
project.

6-6 Developer’s Guide

 Cross-platform and non-cross-platform components

Cross-platform and non-cross-platform components

The Component palette contains a selection of components that handle a wide
variety of programming tasks. The components are arranged in pages according to
their purpose and functionality. For example, commonly used components such as
those to create menus, edit boxes, or buttons are located on the Standard page. Which
pages appear in the default configuration depends on the edition of the product you
are running.
Table 3.3 lists typical default pages and components available for creating
applications, including those that are not cross-platform. You can use all CLX
components in both Windows and Linux applications. You can use some VCL-
specific components in a Windows-only CLX application; however, the application is
not cross-platform unless you isolate these portions of the code.

Table 6.1 Component palette pages

Page name Description Cross-platform?
ActiveX Sample ActiveX controls; see Microsoft No
documentation (msdn.microsoft.com).
Additional Specialized controls. Yes, though for VCL applications
only: ApplicationEvents,
ValueListEditor, ColorBox, Chart,
ActionManager,
ActionMainMenuBar,
ActionToolBar, CustomizeDlg, and
StaticText.
For CLX applications only:
LCDNumber.
ADO Components that provide data access No
through the ADO framework.
BDE Components that provide data access No
through the Borland Database Engine.
COM+ Component for handling COM+ events. No
Data Access Components for working with database Yes, though for VCL applications
data that are not tied to any particular only: XMLTransform,
data access mechanism. XMLTransformProvider, and
XMLTransformClient.
Data Controls Visual, data-aware controls. Yes, though for VCL applications
only: DBRichEdit, DBCtrlGrid, and
DBChart.
dbExpress Database controls that use dbExpress, a Yes
cross-platform, database-independent
layer that provides methods for
dynamic SQL processing. It defines a
common interface for accessing SQL
servers.

Working with components 6-7

Cross-platform and non-cross-platform components

Table 6.1 Component palette pages (continued)

Page name Description Cross-platform?
DataSnap Components used for creating multi- No
tiered database applications.
Decision Cube Data analysis components. No
Dialogs Commonly used dialog boxes. Yes, though for VCL applications
only: OpenPictureDialog,
SavePictureDialog, PrintDialog, and
PrinterSetupDialog.
Indy Clients Cross-platform Internet components for Yes
Indy Servers the client and server (open source
Indy Misc Winshoes Internet components).
Indy Intercepts
Indy I/O
Handlers
InterBase Components that provide direct access Yes
to the InterBase database.
InterBaseAdmin Components that access InterBase Yes
Services API calls.
Internet Components for Internet Yes
communication protocols and Web
applications.
InternetExpress Components that are simultaneously a Yes
Web server application and the client of
a multi-tiered database application.
Office2K COM Server examples for Microsoft No
Excel, Word, and so on (see Microsoft
MSDN documentation).
IW Client Side Components to build Web server No
IW Control applications using IntraWeb.
IW Data
IW Standard
Rave Components to design visual reports. Yes
Samples Sample custom components. No
Servers COM Server examples for Microsoft No
Excel, Word, and so on (see Microsoft
MSDN documentation).
Standard Standard controls, menus. Yes
System Components and controls for system- The components are different
level access, including timers, between a VCL and CLX
multimedia, and DDE (VCL application.
applications).
Components for filtering and
displaying files (CLX applications).

6-8 Developer’s Guide

 Cross-platform and non-cross-platform components

Table 6.1 Component palette pages (continued)

Page name Description Cross-platform?
WebServices Components for writing applications Yes
that implement or use SOAP-based
Web Services.
WebSnap Components for building Web server Yes
applications.
Win 3.1 Old style Win 3.1 components. No
Win32 (VCL)/ Common Windows controls. In CLX applications, the Common
Common Controls page replaces the Win32
Controls (CLX) page.
VCL applications only: RichEdit,
UpDown, HotKey, DataTimePicker,
MonthCalendar, CoolBar,
PageScroller, and ComboBoxEx.
CLX applications only: TextViewer,
TextBrowser, SpinEdit, and
IconView.

You can add, remove, and rearrange components on the palette, and you can create
component templates and frames that group several components.
For more information about the components on the Component palette, see online
Help. You can press F1 on the Component palette, on the component itself when it is
selected, after it has been dropped onto a form, or anywhere on its name in the Code
editor. If a tab of the Component palette is selected, the Help gives a general
description for all of the components on that tab. Some of the components on the
ActiveX, Servers, and Samples pages, however, are provided as examples only and
are not documented.
For more information on the differences between VCL and CLX applications, see
Chapter 15, “Developing cross-platform applications.”

Adding custom components to the Component palette

You can install custom components—written by yourself or third parties—on the
Component palette and use them in your applications. To write a custom component,
see the Component Writer’s Guide. To install an existing component, see “Installing
component packages” on page 16-6.

Working with components 6-9

6-10 Developer’s Guide
 Chapter

Working with controls

Chapter7
7
Controls are visual components that the user can interact with at runtime. This
chapter describes a variety of features common to many controls.

Implementing drag and drop in controls

Drag-and-drop is often a convenient way for users to manipulate objects. You can let
users drag an entire control, or let them drag items from one control—such as a list
box or tree view— into another.
• Starting a drag operation
• Accepting dragged items
• Dropping items
• Ending a drag operation
• Customizing drag and drop with a drag object
• Changing the drag mouse pointer

Starting a drag operation

Every control has a property called DragMode that determines how drag operations
are initiated. If DragMode is dmAutomatic, dragging begins automatically when the
user presses a mouse button with the cursor on the control. Because dmAutomatic can
interfere with normal mouse activity, you may want to set DragMode to dmManual
(the default) and start the dragging by handling mouse-down events.

Working with controls 7-1

Implementing drag and drop in controls

To start dragging a control manually, call the control’s BeginDrag method. BeginDrag
takes a Boolean parameter called Immediate and, optionally, an integer parameter
called Threshold. If you pass True for Immediate, dragging begins immediately. If you
pass False, dragging does not begin until the user moves the mouse the number of
pixels specified by Threshold. Calling
BeginDrag (False);
allows the control to accept mouse clicks without beginning a drag operation.
You can place other conditions on whether to begin dragging, such as checking
which mouse button the user pressed, by testing the parameters of the mouse-down
event before calling BeginDrag. The following code, for example, handles a mouse-
down event in a file list box by initiating a drag operation only if the left mouse
button was pressed.
procedure TFMForm.FileListBox1MouseDown(Sender: TObject;
Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
begin
if Button = mbLeft then { drag only if left button pressed }
with Sender as TFileListBox do { treat Sender as TFileListBox }
begin
if ItemAtPos(Point(X, Y), True) >= 0 then { is there an item here? }
BeginDrag(False); { if so, drag it }
end;
end;

Accepting dragged items

When the user drags something over a control, that control receives an OnDragOver
event, at which time it must indicate whether it can accept the item if the user drops it
there. The drag cursor changes to indicate whether the control can accept the
dragged item. To accept items dragged over a control, attach an event handler to the
control’s OnDragOver event.
The drag-over event has a parameter called Accept that the event handler can set to
True if it will accept the item. Accept changes the cursor type to an accept cursor or
not.
The drag-over event has other parameters, including the source of the dragging and
the current location of the mouse cursor, that the event handler can use to determine
whether to accept the drag. In the following VCL example, a directory tree view
accepts dragged items only if they come from a file list box.
procedure TFMForm.DirectoryOutline1DragOver(Sender, Source: TObject; X,
Y: Integer; State: TDragState; var Accept: Boolean);
begin
if Source is TFileListBox then
Accept := True
else
Accept := False;
end;

7-2 Developer’s Guide

 Implementing drag and drop in controls

Dropping items
If a control indicates that it can accept a dragged item, it needs to handle the item
should it be dropped. To handle dropped items, attach an event handler to the
OnDragDrop event of the control accepting the drop. Like the drag-over event, the
drag-and-drop event indicates the source of the dragged item and the coordinates of
the mouse cursor over the accepting control. The latter parameter allows you to
monitor the path an item takes while being dragged; you might, for example, want to
use this information to change the color of components if an item is dropped.
In the following VCL example, a directory tree view, accepting items dragged from a
file list box, responds by moving files to the directory on which they are dropped.
procedure TFMForm.DirectoryOutline1DragDrop(Sender, Source: TObject; X,
Y: Integer);
begin
if Source is TFileListBox then
with DirectoryOutline1 do
ConfirmChange('Move', FileListBox1.FileName, Items[GetItem(X, Y)].FullPath);
end;

Ending a drag operation

A drag operation ends when the item is either successfully dropped or released over
a control that cannot accept it. At this point an end-drag event is sent to the control
from which the drag was initiated. To enable a control to respond when items have
been dragged from it, attach an event handler to the control’s OnEndDrag event.
The most important parameter in an OnEndDrag event is called Target, which
indicates which control, if any, accepts the drop. If Target is nil, it means no control
accepts the dragged item. The OnEndDrag event also includes the coordinates on the
receiving control.
In the following VCL example, a file list box handles an end-drag event by refreshing
its file list.
procedure TFMForm.FileListBox1EndDrag(Sender, Target: TObject; X, Y: Integer);
begin
if Target <> nil then FileListBox1.Update;
end;

Customizing drag and drop with a drag object

You can use a TDragObject descendant to customize an object’s drag-and-drop
behavior. The standard drag-over and drag-and-drop events indicate the source of
the dragged item and the coordinates of the mouse cursor over the accepting control.
To get additional state information, derive a custom drag object from TDragObject or
TDragObjectEx (VCL only) and override its virtual methods. Create the custom drag
object in the OnStartDrag event.

Working with controls 7-3

Implementing drag and dock in controls

Normally, the source parameter of the drag-over and drag-and-drop events is the
control that starts the drag operation. If different kinds of control can start an
operation involving the same kind of data, the source needs to support each kind of
control. When you use a descendant of TDragObject, however, the source is the drag
object itself; if each control creates the same kind of drag object in its OnStartDrag
event, the target needs to handle only one kind of object. The drag-over and drag-
and-drop events can tell if the source is a drag object, as opposed to the control, by
calling the IsDragObject function.
TDragObjectEx descendants (VCL only) are freed automatically whereas descendants
of TDragObject are not. If you have TDragObject descendants that you are not
explicitly freeing, you can change them so they descend from TDragObjectEx instead
to prevent memory loss.
Drag objects let you drag items between a form implemented in the application’s
main executable file and a form implemented using a DLL, or between forms that are
implemented using different DLLs.

Changing the drag mouse pointer

You can customize the appearance of the mouse pointer during drag operations by
setting the source component’s DragCursor property (VCL only).

Implementing drag and dock in controls

Descendants of TWinControl can act as docking sites and descendants of TControl can
act as child windows that are docked into docking sites. For example, to provide a
docking site at the left edge of a form window, align a panel to the left edge of the
form and make the panel a docking site. When dockable controls are dragged to the
panel and released, they become child controls of the panel.
• Making a windowed control a docking site
• Making a control a dockable child
• Controlling how child controls are docked
• Controlling how child controls are undocked
• Controlling how child controls respond to drag-and-dock operations
Note Drag-and-dock properties are not available in CLX applications.

Making a windowed control a docking site

To make a windowed control a docking site:
1 Set the DockSite property to True.
2 If the dock site object should not appear except when it contains a docked client,
set its AutoSize property to True. When AutoSize is True, the dock site is sized to 0
until it accepts a child control for docking. Then it resizes to fit around the child
control.

7-4 Developer’s Guide

 Implementing drag and dock in controls

Making a control a dockable child

To make a control a dockable child:
1 Set its DragKind property to dkDock. When DragKind is dkDock, dragging the
control moves the control to a new docking site or undocks the control so that it
becomes a floating window. When DragKind is dkDrag (the default), dragging the
control starts a drag-and-drop operation which must be implemented using the
OnDragOver, OnEndDrag, and OnDragDrop events.
2 Set its DragMode to dmAutomatic. When DragMode is dmAutomatic, dragging (for
drag-and-drop or docking, depending on DragKind) is initiated automatically
when the user starts dragging the control with the mouse. When DragMode is
dmManual, you can still begin a drag-and-dock (or drag-and-drop) operation by
calling the BeginDrag method.
3 Set its FloatingDockSiteClass property to indicate the TWinControl descendant that
should host the control when it is undocked and left as a floating window. When
the control is released and not over a docking site, a windowed control of this class
is created dynamically, and becomes the parent of the dockable child. If the
dockable child control is a descendant of TWinControl, it is not necessary to create
a separate floating dock site to host the control, although you may want to specify
a form in order to get a border and title bar. To omit a dynamic container window,
set FloatingDockSiteClass to the same class as the control, and it will become a
floating window with no parent.

Controlling how child controls are docked

A docking site automatically accepts child controls when they are released over the
docking site. For most controls, the first child is docked to fill the client area, the
second splits that into separate regions, and so on. Page controls dock children into
new tab sheets (or merge in the tab sheets if the child is another page control).
Three events allow docking sites to further constrain how child controls are docked:
property OnGetSiteInfo: TGetSiteInfoEvent;
TGetSiteInfoEvent = procedure(Sender: TObject; DockClient: TControl; var InfluenceRect:
TRect; var CanDock: Boolean) of object;
OnGetSiteInfo occurs on the docking site when the user drags a dockable child over
the control. It allows the site to indicate whether it will accept the control specified by
the DockClient parameter as a child, and if so, where the child must be to be
considered for docking. When OnGetSiteInfo occurs, InfluenceRect is initialized to the
screen coordinates of the docking site, and CanDock is initialized to True. A more
limited docking region can be created by changing InfluenceRect and the child can be
rejected by setting CanDock to False.
property OnDockOver: TDockOverEvent;
TDockOverEvent = procedure(Sender: TObject; Source: TDragDockObject; X, Y: Integer; State:
TDragState; var Accept: Boolean) of object;

Working with controls 7-5

Working with text in controls

OnDockOver occurs on the docking site when the user drags a dockable child over the
control. It is analogous to the OnDragOver event in a drag-and-drop operation. Use it
to signal that the child can be released for docking, by setting the Accept parameter. If
the dockable control is rejected by the OnGetSiteInfo event handler (perhaps because
it is the wrong type of control), OnDockOver does not occur.
property OnDockDrop: TDockDropEvent;
TDockDropEvent = procedure(Sender: TObject; Source: TDragDockObject; X, Y: Integer) of
object;
OnDockDrop occurs on the docking site when the user releases the dockable child
over the control. It is analogous to the OnDragDrop event in a normal drag-and-drop
operation. Use this event to perform any necessary accommodations to accepting the
control as a child control. Access to the child control can be obtained using the
Control property of the TDockObject specified by the Source parameter.

Controlling how child controls are undocked

A docking site automatically allows child controls to be undocked when they are
dragged and have a DragMode property of dmAutomatic. Docking sites can respond
when child controls are dragged off, and even prevent the undocking, in an
OnUnDock event handler:
property OnUnDock: TUnDockEvent;
TUnDockEvent = procedure(Sender: TObject; Client: TControl; var Allow: Boolean) of object;
The Client parameter indicates the child control that is trying to undock, and the
Allow parameter lets the docking site (Sender) reject the undocking. When
implementing an OnUnDock event handler, it can be useful to know what other
children (if any) are currently docked. This information is available in the read-only
DockClients property, which is an indexed array of TControl. The number of dock
clients is given by the read-only DockClientCount property.

Controlling how child controls respond to drag-and-dock operations

Dockable child controls have two events that occur during drag-and-dock
operations: OnStartDock, analogous to the OnStartDrag event of a drag-and-drop
operation, allows the dockable child control to create a custom drag object.
OnEndDock, like OnEndDrag, occurs when the dragging terminates.

Working with text in controls

The following sections explain how to use various features of rich edit and memo
controls. Some of these features work with edit controls as well.
• Setting text alignment
• Adding scroll bars at runtime
• Adding the clipboard object
• Selecting text

7-6 Developer’s Guide

 Working with text in controls

• Selecting all text

• Cutting, copying, and pasting text
• Deleting selected text
• Disabling menu items
• Providing a pop-up menu
• Handling the OnPopup event

Setting text alignment

In a rich edit or memo component, text can be left- or right-aligned or centered. To
change text alignment, set the edit component’s Alignment property. Alignment takes
effect only if the WordWrap property is True; if word wrapping is turned off, there is
no margin to align to.
For example, the following code attaches an OnClick event handler to a Character|
Left menu item, then attaches the same event handler to both a Character|Right and
Character|Center menu item.
procedure TForm.AlignClick(Sender: TObject);
begin
Left1.Checked := False; { clear all three checks }
Right1.Checked := False;
Center1.Checked := False;
with Sender as TMenuItem do Checked := True; { check the item clicked }
with Editor do { then set Alignment to match }
if Left1.Checked then
Alignment := taLeftJustify
else if Right1.Checked then
Alignment := taRightJustify
else if Center1.Checked then
Alignment := taCenter;
end;
You can also use the HMargin property to adjust the left and right margins in a memo
control.

Adding scroll bars at runtime

Rich edit and memo components can contain horizontal or vertical scroll bars, or
both, as needed. When word wrapping is enabled, the component needs only a
vertical scroll bar. If the user turns off word wrapping, the component might also
need a horizontal scroll bar, since text is not limited by the right side of the editor.
To add scroll bars at runtime:
1 Determine whether the text might exceed the right margin. In most cases, this
means checking whether word wrapping is enabled. You might also check
whether any text lines actually exceed the width of the control.
2 Set the rich edit or memo component’s ScrollBars property to include or exclude
scroll bars.

Working with controls 7-7

Working with text in controls

The following example attaches an OnClick event handler to a Character|WordWrap

menu item.
procedure TForm.WordWrap1Click(Sender: TObject);
begin
with Editor do
begin
WordWrap := not WordWrap; { toggle word wrapping }
if WordWrap then
ScrollBars := ssVertical { wrapped requires only vertical }
else
ScrollBars := ssBoth; { unwrapped might need both }
WordWrap1.Checked := WordWrap; { check menu item to match property }
end;
end;
The rich edit and memo components handle their scroll bars in a slightly different
way. The rich edit component can hide its scroll bars if the text fits inside the bounds
of the component. The memo always shows scroll bars if they are enabled.

Adding the clipboard object

Most text-handling applications provide users with a way to move selected text
between documents, including documents in different applications. TClipboard object
encapsulates a clipboard (such as the Windows Clipboard) and includes methods for
cutting, copying, and pasting text (and other formats, including graphics). The
Clipboard object is declared in the Clipbrd unit.
To add the Clipboard object to an application:
1 Select the unit that will use the clipboard.
2 Search for the implementation reserved word.
3 Add Clipbrd to the uses clause below implementation.
• If there is already a uses clause in the implementation part, add Clipbrd to the end
of it.
• If there is not already a uses clause, add one that says
uses Clipbrd;
For example, in an application with a child window, the uses clause in the unit's
implementation part might look like this:
uses
MDIFrame, Clipbrd;

7-8 Developer’s Guide

 Working with text in controls

Selecting text
For text in an edit control, before you can send any text to the clipboard, that text
must be selected. Highlighting of selected text is built into the edit components.
When the user selects text, it appears highlighted.
Table 7.1 lists properties commonly used to handle selected text.

Table 7.1 Properties of selected text

Property Description
SelText Contains a string representing the selected text in the component.
SelLength Contains the length of a selected string.
SelStart Contains the starting position of a string relative to the beginning of an edit control’s
text buffer.

For example, the following OnFind event handler searches a Memo component for
the text specified in the FindText property of a find dialog component. If found, the
first occurrence of the text in Memo1 is selected.
procedure TForm1.FindDialog1Find(Sender: TObject);
var
I, J, PosReturn, SkipChars: Integer;
begin
for I := 0 to Memo1.Lines.Count do
begin
PosReturn := Pos(FindDialog1.FindText,Memo1.Lines[I]);
if PosReturn <> 0 then {found!}
begin
Skipchars := 0;
for J := 0 to I - 1 do
Skipchars := Skipchars + Length(Memo1.Lines[J]);
SkipChars := SkipChars + (I*2);
SkipChars := SkipChars + PosReturn - 1;
Memo1.SetFocus;
Memo1.SelStart := SkipChars;
Memo1.SelLength := Length(FindDialog1.FindText);
Break;
end;
end;
end;

Selecting all text

The SelectAll method selects the entire contents of an edit control, such as a rich edit
or memo component. This is especially useful when the component’s contents exceed
the visible area of the component. In most other cases, users select text with either
keystrokes or mouse dragging.

Working with controls 7-9

Working with text in controls

To select the entire contents of a rich edit or memo control, call the RichEdit1 control’s
SelectAll method.
For example:
procedure TMainForm.SelectAll(Sender: TObject);
begin
RichEdit1.SelectAll; { select all text in RichEdit }
end;

Cutting, copying, and pasting text

Applications that use the Clipbrd unit can cut, copy, and paste text, graphics, and
objects through the clipboard. The edit components that encapsulate the standard
text-handling controls all have methods built into them for interacting with the
clipboard. (See “Using the clipboard with graphics” on page 12-21 for information on
using the clipboard with graphics.)
To cut, copy, or paste text with the clipboard, call the edit component’s
CutToClipboard, CopyToClipboard, and PasteFromClipboard methods, respectively.
For example, the following code attaches event handlers to the OnClick events of the
Edit|Cut, Edit|Copy, and Edit|Paste commands, respectively:
procedure TEditForm.CutToClipboard(Sender: TObject);
begin
Editor.CutToClipboard;
end;
procedure TEditForm.CopyToClipboard(Sender: TObject);
begin
Editor.CopyToClipboard;
end;
procedure TEditForm.PasteFromClipboard(Sender: TObject);
begin
Editor.PasteFromClipboard;
end;

Deleting selected text

You can delete the selected text in an edit component without cutting it to the
clipboard. To do so, call the ClearSelection method. For example, if you have a Delete
item on the Edit menu, your code could look like this:
procedure TEditForm.Delete(Sender: TObject);
begin
RichEdit1.ClearSelection;
end;

7-10 Developer’s Guide

 Working with text in controls

Disabling menu items

It is often useful to disable menu commands without removing them from the menu.
For example, in a text editor, if there is no text currently selected, the Cut, Copy, and
Delete commands are inapplicable. An appropriate time to enable or disable menu
items is when the user selects the menu. To disable a menu item, set its Enabled
property to False.
In the following example, an event handler is attached to the OnClick event for the
Edit item on a child form’s menu bar. It sets Enabled for the Cut, Copy, and Delete
menu items on the Edit menu based on whether RichEdit1 has selected text. The Paste
command is enabled or disabled based on whether any text exists on the clipboard.
procedure TEditForm.Edit1Click(Sender: TObject);
var
HasSelection: Boolean; { declare a temporary variable }
begin
Paste1.Enabled := Clipboard.HasFormat(CF_TEXT); {enable or disable the Paste menu item}
HasSelection := Editor.SelLength > 0; { True if text is selected }
Cut1.Enabled := HasSelection; { enable menu items if HasSelection is True }
Copy1.Enabled := HasSelection;
Delete1.Enabled := HasSelection;
end;
The HasFormat method (Provides method in CLX applications) of the clipboard
returns a Boolean value based on whether the clipboard contains objects, text, or
images of a particular format. By calling HasFormat with the parameter CF_TEXT,
you can determine whether the clipboard contains any text, and enable or disable the
Paste item as appropriate.
Note In CLX applications, use the Provides method. In this case, the text is generic. You can
specify the type of text using a subtype such as text/plain for plain text or text/html
for html.
Chapter 12, “Working with graphics and multimedia” provides more information
about using the clipboard with graphics.

Providing a pop-up menu

Pop-up, or local, menus are a common ease-of-use feature for any application. They
enable users to minimize mouse movement by clicking the right mouse button in the
application workspace to access a list of frequently used commands.
In a text editor application, for example, you can add a pop-up menu that repeats the
Cut, Copy, and Paste editing commands. These pop-up menu items can use the same
event handlers as the corresponding items on the Edit menu. You don’t need to
create accelerator or shortcut keys for pop-up menus because the corresponding
regular menu items generally already have shortcuts.

Working with controls 7-11

Working with text in controls

A form’s PopupMenu property specifies what pop-up menu to display when a user
right-clicks any item on the form. Individual controls also have PopupMenu
properties that can override the form’s property, allowing customized menus for
particular controls.
To add a pop-up menu to a form:
1 Place a pop-up menu component on the form.
2 Use the Menu Designer to define the items for the pop-up menu.
3 Set the PopupMenu property of the form or control that displays the menu to the
name of the pop-up menu component.
4 Attach handlers to the OnClick events of the pop-up menu items.

Handling the OnPopup event

You may want to adjust pop-up menu items before displaying the menu, just as you
may want to enable or disable items on a regular menu. With a regular menu, you
can handle the OnClick event for the item at the top of the menu, as described in
“Disabling menu items” on page 7-11.
With a pop-up menu, however, there is no top-level menu bar, so to prepare the pop-
up menu commands, you handle the event in the menu component itself. The pop-up
menu component provides an event just for this purpose, called OnPopup.
To adjust menu items on a pop-up menu before displaying them:
1 Select the pop-up menu component.
2 Attach an event handler to its OnPopup event.
3 Write code in the event handler to enable, disable, hide, or show menu items.
In the following code, the Edit1Click event handler described previously in
“Disabling menu items” on page 7-11 is attached to the pop-up menu component’s
OnPopup event. A line of code is added to Edit1Click for each item in the pop-up
menu.
procedure TEditForm.Edit1Click(Sender: TObject);
var
HasSelection: Boolean;
begin
Paste1.Enabled := Clipboard.HasFormat(CF_TEXT);
Paste2.Enabled := Paste1.Enabled;{Add this line}
HasSelection := Editor.SelLength <> 0;
Cut1.Enabled := HasSelection;
Cut2.Enabled := HasSelection;{Add this line}
Copy1.Enabled := HasSelection;
Copy2.Enabled := HasSelection;{Add this line}
Delete1.Enabled := HasSelection;
end;

7-12 Developer’s Guide

 Adding graphics to controls

Adding graphics to controls

Several controls let you customize the way the control is rendered. These include list
boxes, combo boxes, menus, headers, tab controls, list views, status bars, tree views,
and toolbars. Instead of using the standard method of drawing a control or its items,
the control’s owner (generally, the form) draws them at runtime. The most common
use for owner-draw controls is to provide graphics instead of, or in addition to, text
for items. For information on using owner-draw to add images to menus, see
“Adding images to menu items” on page 9-38.
All owner-draw controls contain lists of items. Usually, those lists are lists of strings
that are displayed as text, or lists of objects that contain strings that are displayed as
text. You can associate an object with each item in the list to make it easy to use that
object when drawing items.
In general, creating an owner-draw control involves these steps:
1 Indicating that a control is owner-drawn.
2 Adding graphical objects to a string list.
3 Drawing owner-drawn items

Indicating that a control is owner-drawn

To customize the drawing of a control, you must supply event handlers that render
the control’s image when it needs to be painted. Some controls receive these events
automatically. For example, list views, tree views, and toolbars all receive events at
various stages in the drawing process without your having to set any properties.
These events have names such as OnCustomDraw or OnAdvancedCustomDraw.
Other controls, however, require you to set a property before they receive owner-
draw events. List boxes, combo boxes, header controls, and status bars have a
property called Style. Style determines whether the control uses the default drawing
(called the “standard” style) or owner drawing. Grids use a property called
DefaultDrawing to enable or disable the default drawing. List views and tab controls
have a property called OwnerDraw that enables or disabled the default drawing.
List boxes and combo boxes have additional owner-draw styles, called fixed and
variable, as Table 7.2 describes. Other controls are always fixed, although the size of
the item that contains the text may vary, the size of each item is determined before
drawing the control.

Table 7.2 Fixed vs. variable owner-draw styles

Owner-draw style Meaning Examples
Fixed Each item is the same height, with that height lbOwnerDrawFixed,
determined by the ItemHeight property. csOwnerDrawFixed
Variable Each item might have a different height, lbOwnerDrawVariable,
determined by the data at runtime. csOwnerDrawVariable

Working with controls 7-13

Adding graphics to controls

Adding graphical objects to a string list

Every string list has the ability to hold a list of objects in addition to its list of strings.
You can also add graphical objects of varying sizes to a string list.
For example, in a file manager application, you may want to add bitmaps indicating
the type of drive along with the letter of the drive. To do that, you need to add the
bitmap images to the application, then copy those images into the proper places in
the string list as described in the following sections.
Note that you can also organize graphical objects using an image list by creating a
TImageList. However, these images must all be the same size. See “Adding images to
menu items” on page 9-38 for an example of setting up an image list.

Adding images to an application

An image control is a nonvisual control that contains a graphical image, such as a
bitmap. You use image controls to display graphical images on a form. You can also
use them to hold hidden images that you’ll use in your application. For example, you
can store bitmaps for owner-draw controls in hidden image controls, like this:
1 Add image controls to the main form.
2 Set their Name properties.
3 Set the Visible property for each image control to False.
4 Set the Picture property of each image to the desired bitmap using the Picture
editor from the Object Inspector.
The image controls are invisible when you run the application. The image is stored
with the form so it doesn’t have to be loaded from a file at runtime.

Adding images to a string list

Once you have graphical images in an application, you can associate them with the
strings in a string list. You can either add the objects at the same time as the strings,
or associate objects with existing strings. The preferred method is to add objects and
strings at the same time, if all the needed data is available.

7-14 Developer’s Guide

 Adding graphics to controls

The following example shows how you might want to add images to a string list.
This is part of a file manager application where, along with a letter for each valid
drive, it adds a bitmap indicating each drive’s type. The OnCreate event handler looks
like this:
procedure TFMForm.FormCreate(Sender: TObject);
var
Drive: Char;
AddedIndex: Integer;
begin
for Drive := 'A' to 'Z' do { iterate through all possible drives }
begin
case GetDriveType(Drive + ':/') of { positive values mean valid drives }
DRIVE_REMOVABLE: { add a tab }
AddedIndex := DriveTabSet.Tabs.AddObject(Drive, Floppy.Picture.Graphic);
DRIVE_FIXED: { add a tab }
AddedIndex := DriveTabSet.Tabs.AddObject(Drive, Fixed.Picture.Graphic);
DRIVE_REMOTE: { add a tab }
AddedIndex := DriveTabSet.Tabs.AddObject(Drive, Network.Picture.Graphic);
end;
if UpCase(Drive) = UpCase(DirectoryOutline.Drive) then { current drive? }
DriveTabSet.TabIndex := AddedIndex; { then make that current tab }
end;
end;

Drawing owner-drawn items

When you indicate that a control is owner-drawn, either by setting a property or
supplying a custom draw event handler, the control is no longer drawn on the
screen. Instead, the operating system generates events for each visible item in the
control. Your application handles the events to draw the items.
To draw the items in an owner-draw control, do the following for each visible item in
the control. Use a single event handler for all items.
1 Size the item, if needed.
Items of the same size (for example, with a list box style of lsOwnerDrawFixed), do not
require sizing.
2 Draw the item.

Working with controls 7-15

Adding graphics to controls

Sizing owner-draw items

Before giving your application the chance to draw each item in a variable owner-
draw control, the control receives a measure-item event, which is of type
TMeasureItemEvent. TMeasureItemEvent tells the application where the item appears
on the control.
Delphi determines the size of the item (generally, it is just large enough to display the
item’s text in the current font). Your application can handle the event and change the
rectangle chosen. For example, if you plan to substitute a bitmap for the item’s text,
change the rectangle to the size of the bitmap. If you want a bitmap and text, adjust the
rectangle to be large enough for both.
To change the size of an owner-draw item, attach an event handler to the measure-
item event in the owner-draw control. Depending on the control, the name of the
event can vary. List boxes and combo boxes use OnMeasureItem. Grids have no
measure-item event.
The sizing event has two important parameters: the index number of the item and the
height of that item. The height is variable: the application can make it either smaller
or larger. The positions of subsequent items depend on the size of preceding items.
For example, in a variable owner-draw list box, if the application sets the height of
the first item to five pixels, the second item starts at the sixth pixel down from the
top, and so on. In list boxes and combo boxes, the only aspect of the item the
application can alter is the height of the item. The width of the item is always the
width of the control.
Owner-draw grids cannot change the sizes of their cells as they draw. The size of
each row and column is set before drawing by the ColWidths and RowHeights
properties.
The following code, attached to the OnMeasureItem event of an owner-draw list box,
increases the height of each list item to accommodate its associated bitmap.
procedure TFMForm.ListBox1MeasureItem(Control: TWinControl; Index: Integer;
var Height: Integer); { note that Height is a var parameter}
var
BitmapHeight: Integer;
begin
BitmapHeight := TBitmap(ListBox1.Items.Objects[Index]).Height;
{ make sure the item height has enough room, plus two }
Height := Max(Height, Bitmap Height +2);
end;
Note You must typecast the items from the Objects property in the string list. Objects is a
property of type TObject so that it can hold any kind of object. When you retrieve
objects from the array, you need to typecast them back to the actual type of the items.

7-16 Developer’s Guide

 Adding graphics to controls

Drawing owner-draw items

When an application needs to draw or redraw an owner-draw control, the operating
system generates draw-item events for each visible item in the control. Depending on
the control, the item may also receive draw events for the item as a part of the item.
To draw each item in an owner-draw control, attach an event handler to the draw-
item event for that control.
The names of events for owner drawing typically start with one of the following:
• OnDraw, such as OnDrawItem or OnDrawCell
• OnCustomDraw, such as OnCustomDrawItem
• OnAdvancedCustomDraw, such as OnAdvancedCustomDrawItem
The draw-item event contains parameters identifying the item to draw, the rectangle
in which to draw, and usually some information about the state of the item (such as
whether the item has focus). The application handles each event by rendering the
appropriate item in the given rectangle.
For example, the following code shows how to draw items in a list box that has
bitmaps associated with each string. It attaches this handler to the OnDrawItem event
for the list box:
procedure TFMForm.DriveTabSetDrawTab(Sender: TObject; TabCanvas: TCanvas;
R: TRect; Index: Integer; Selected: Boolean);
var
Bitmap: TBitmap;
begin
Bitmap := TBitmap(DriveTabSet.Tabs.Objects[Index]);
with TabCanvas do
begin
Draw(R.Left, R.Top + 4, Bitmap); { draw bitmap }
TextOut(R.Left + 2 + Bitmap.Width, { position text }
R.Top + 2, DriveTabSet.Tabs[Index]); { and draw it to the right of the
bitmap }
end;
end;

Working with controls 7-17

7-18 Developer’s Guide
 Chapter

Building applications, components,

Chapter8
8
and libraries
This chapter provides an overview of how to create applications, components, and
libraries.

Creating applications
The most common types of applications you can design and build are:
• GUI applications
• Console applications
• Service applications
• Packages and DLLs
GUI applications generally have an easy-to-use interface. Console applications run
from a console window. Service applications are run as Windows services. These
types of applications compile as executables with start-up code.
You can create other types of projects such as packages and DLLs that result in
creating packages or dynamically linkable libraries. These applications produce
executable code without start-up code. Refer to “Creating packages and DLLs” on
page 8-11.

Building applications, components, and libraries 8-1

Creating applications

GUI applications
A graphical user interface (GUI) application is one that is designed using graphical
features such as windows, menus, dialog boxes, and features that make the
application easy to use. When you compile a GUI application, an executable file with
start-up code is created. The executable usually provides the basic functionality of
your program, and simple programs often consist of only an executable file. You can
extend the application by calling DLLs, packages, and other support files from the
executable.
The IDE offers two application UI models:
• Single document interface (SDI)
• Multiple document interface (MDI)
In addition to the implementation model of your applications, the design-time
behavior of your project and the runtime behavior of your application can be
manipulated by setting project options in the IDE.

User interface models

Any form can be implemented as a single document interface (SDI) or multiple
document interface (MDI) form. An SDI application normally contains a single
document view. In an MDI application, more than one document or child window
can be opened within a single parent window. This is common in applications such
as spreadsheets or word processors.
For more information on developing the UI for an application, see Chapter 9,
“Developing the application user interface.”

SDI applications
To create a new SDI application:
1 Choose File|New|Other to bring up the New Items dialog.
2 Click on the Projects page and double-click SDI Application.
3 Click OK.
By default, the FormStyle property of your Form object is set to fsNormal, so that the
IDE assumes that all new applications are SDI applications.

MDI applications
To create a new MDI application using a wizard:
1 Choose File|New|Other to bring up the New Items dialog.
2 Click on the Projects page and double-click MDI Application.
3 Click OK.

8-2 Developer’s Guide

 Creating applications

MDI applications require more planning and are somewhat more complex to design
than SDI applications. MDI applications spawn child windows that reside within the
client window; the main form contains child forms. Set the FormStyle property of the
TForm object to specify whether a form is a child (fsMDIChild) or main form
(fsMDIForm). It is a good idea to define a base class for your child forms and derive
each child form from this class, to avoid having to reset the child form’s properties.
MDI applications often include a Window pop-up on the main menu that has items
such as Cascade and Tile for viewing multiple windows in various styles. When a
child window is minimized, its icon is located in the MDI parent form.
To create a new MDI application without using a wizard:
1 Create the main window form or MDI parent window. Set its FormStyle property
to fsMDIForm.
2 Create a menu for the main window that includes File|Open, File|Save, and
Window which has Cascade, Tile, and Arrange All items.
3 Create the MDI child forms and set their FormStyle properties to fsMDIChild.

Setting IDE, project, and compiler options

In addition to the implementation model of your applications, the design-time
behavior of your project and the runtime behavior of your application can be
manipulated by setting project options in the IDE. To specify various options for
your project, choose Project|Options.

Setting default project options

To change the default options that apply to all future projects, set the options in the
Project Options dialog box and check the Default box at the bottom right of the
window. All new projects will use the current options selected by default.
For more information, see the online Help.

Programming templates
Programming templates are commonly used skeleton structures that you can add to
your source code and then fill in. You can also use standard code templates such as
those for array, class, and function declarations, and many statements.
You can also write your own templates for coding structures that you often use. For
example, if you want to use a for loop in your code, you could insert the following
template:
for := to do
begin

end;

Building applications, components, and libraries 8-3

Creating applications

To insert a code template in the Code editor, press Ctrl-j and select the template you
want to use. You can also add your own templates to this collection. To add a
template:
1 Choose Tools|Editor Options.
2 Click the Code Insight tab.
3 In the Templates section, click Add.
4 Type a name for the template after Shortcut name, enter a brief description of the
new template, and click OK.
5 Add the template code to the Code text box.
6 Click OK.

Console applications
Console applications are 32-bit programs that run without a graphical interface, in a
console window. These applications typically don’t require much user input and
perform a limited set of functions. Any application that contains:
{$APPTYPE CONSOLE}
in the code opens a console window of its own.
To create a new console application, choose File|New|Other and double-click
Console Application from the New Items dialog box.
The IDE then creates a project file for this type of source file and displays the Code
editor.
Console applications should make sure that no exceptions escape from the program
scope. Otherwise, when the program terminates, the Windows operating system
displays a modal dialog with exception information. For example, your application
should include exception handling such as shown in the following code:
program ConsoleExceptionHandling;
{$APPTYPE CONSOLE}
uses
SysUtils;
procedure ExecuteProgram;
begin
//Program does something
raise Exception.Create('Unforeseen exception');
end;

8-4 Developer’s Guide

 Creating applications

begin
try
ExecuteProgram;
except
//Handle error condition
WriteIn(‘Program terminated due to an exception’);
//Set ExitCode <> 0 to flag error condition (by convention)
ExitCode := 1;
end;
end.
Users can terminate console applications in one of the following ways:
• Click the Close (X) button.
• Press Ctrl+C.
• Press Ctrl+Break.
• Log off.
Depending on which way the user chooses, the application is terminated forcefully,
the process is not shut down cleanly, and the finalization section isn’t run. Use the
Windows API SetConsoleCtrlHandler function for options for handling these user
termination requests.

Service applications
Service applications take requests from client applications, process those requests,
and return information to the client applications. They typically run in the
background, without much user input. A Web, FTP, or e-mail server is an example of
a service application.
To create an application that implements a Win32 service:
1 Choose File|New|Other, and double-click Service Application in the New Items
dialog box. This adds a global variable named Application to your project, which is
of type TServiceApplication.
2 A Service window appears that corresponds to a service (TService). Implement the
service by setting its properties and event handlers in the Object Inspector.
3 You can add additional services to your service application by choosing File|
New|Other, and double-click Service in the New Items dialog box. Do not add
services to an application that is not a service application. While a TService object
can be added, the application will not generate the requisite events or make the
appropriate Windows calls on behalf of the service.
4 Once your service application is built, you can install its services with the Service
Control Manager (SCM). Other applications can then launch your services by
sending requests to the SCM.

Building applications, components, and libraries 8-5

Creating applications

To install your application’s services, run it using the /INSTALL option. The
application installs its services and exits, giving a confirmation message if the
services are successfully installed. You can suppress the confirmation message by
running the service application using the /SILENT option.
To uninstall the services, run it from the command line using the /UNINSTALL
option. (You can also use the /SILENT option to suppress the confirmation message
when uninstalling).
Example This service has a TServerSocket whose port is set to 80. This is the default port for
Web browsers to make requests to Web servers and for Web servers to make
responses to Web browsers. This particular example produces a text document in the
C:\Temp directory called WebLogxxx.log (where xxx is the ThreadID). There should
be only one server listening on any given port, so if you have a Web server, you
should make sure that it is not listening (the service is stopped).
To see the results: open up a Web browser on the local machine and for the address,
type 'localhost' (with no quotes). The browser will time out eventually, but you
should now have a file called Weblogxxx.log in the C:\Temp directory.
1 To create the example, choose File|New|Other and select Service Application
from the New Items dialog box. The Service1 window appears.
2 From the Internet page of the Component palette, add a ServerSocket component
to the service window (Service1).
3 Add a private data member of type TMemoryStream to the TService1 class. The
interface section of your unit should now look like this:
interface
uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, SvcMgr, Dialogs,
ScktComp;
type
TService1 = class(TService)
ServerSocket1: TServerSocket;
procedure ServerSocket1ClientRead(Sender: TObject;
Socket: TCustomWinSocket);
procedure Service1Execute(Sender: TService);
private
{ Private declarations }
Stream: TMemoryStream; // Add this line here
public
function GetServiceController: PServiceController; override;
{ Public declarations }
end;
var
Service1: TService1;

8-6 Developer’s Guide

 Creating applications

4 Select ServerSocket1, the component you added in step 1. In the Object Inspector,
double-click the OnClientRead event and add the following event handler:
procedure TService1.ServerSocket1ClientRead(Sender: TObject;
Socket: TCustomWinSocket);
var
Buffer: PChar;
begin
Buffer := nil;
while Socket.ReceiveLength > 0 do begin
Buffer := AllocMem(Socket.ReceiveLength);
try
Socket.ReceiveBuf(Buffer^, Socket.ReceiveLength);
Stream.Write(Buffer^, StrLen(Buffer));
finally
FreeMem(Buffer);
end;
Stream.Seek(0, soFromBeginning);
Stream.SaveToFile('c:\Temp\Weblog' + IntToStr(ServiceThread.ThreadID) + '.log');
end;
end;
5 Finally, select Service1 by clicking in the window’s client area (but not on the
ServiceSocket). In the Object Inspector, double click the OnExecute event and add
the following event handler:
procedure TService1.Service1Execute(Sender: TService);
begin
Stream := TMemoryStream.Create;
try
ServerSocket1.Port := 80; // WWW port
ServerSocket1.Active := True;
while not Terminated do begin
ServiceThread.ProcessRequests(True);
end;
ServerSocket1.Active := False;
finally
Stream.Free;
end;
end;
When writing your service application, you should be aware of:
• Service threads
• Service name properties
• Debugging service applications
Note Service applications are not available for cross-platform applications.

Building applications, components, and libraries 8-7

Creating applications

Service threads
Each service has its own thread (TServiceThread), so if your service application
implements more than one service you must ensure that the implementation of your
services is thread-safe. TServiceThread is designed so that you can implement the
service in the TService OnExecute event handler. The service thread has its own
Execute method which contains a loop that calls the service’s OnStart and OnExecute
handlers before processing new requests.
Because service requests can take a long time to process and the service application
can receive simultaneous requests from more than one client, it is more efficient to
spawn a new thread (derived from TThread, not TServiceThread) for each request and
move the implementation of that service to the new thread’s Execute method. This
allows the service thread’s Execute loop to process new requests continually without
having to wait for the service’s OnExecute handler to finish. The following example
demonstrates.
Example This service beeps every 500 milliseconds from within the standard thread. It handles
pausing, continuing, and stopping of the thread when the service is told to pause,
continue, or stop.
1 Choose File|New|Other and double-click Service Application in the New Items
dialog. The Service1 window appears.
2 In the interface section of your unit, declare a new descendant of TThread named
TSparkyThread. This is the thread that does the work for your service. The
declaration should appear as follows:
TSparkyThread = class(TThread)
public
procedure Execute; override;
end;
3 In the implementation section of your unit, create a global variable for a
TSparkyThread instance:
var
SparkyThread: TSparkyThread;
4 In the implementation section for the TSparkyThread Execute method (the thread
function), add the following code:
procedure TSparkyThread.Execute;
begin
while not Terminated do
begin
Beep;
Sleep(500);
end;
end;

8-8 Developer’s Guide

 Creating applications

5 Select the Service window (Service1), and double-click the OnStart event in the
Object Inspector. Add the following OnStart event handler:
procedure TService1.Service1Start(Sender: TService; var Started: Boolean);
begin
SparkyThread := TSparkyThread.Create(False);
Started := True;
end;
6 Double-click the OnContinue event in the Object Inspector. Add the following
OnContinue event handler:
procedure TService1.Service1Continue(Sender: TService; var Continued: Boolean);
begin
SparkyThread.Resume;
Continued := True;
end;
7 Double-click the OnPause event in the Object Inspector. Add the following
OnPause event handler:
procedure TService1.Service1Pause(Sender: TService; var Paused: Boolean);
begin
SparkyThread.Suspend;
Paused := True;
end;
8 Finally, double-click the OnStop event in the Object Inspector and add the
following OnStop event handler:
procedure TService1.Service1Stop(Sender: TService; var Stopped: Boolean);
begin
SparkyThread.Terminate;
Stopped := True;
end;
When developing server applications, choosing to spawn a new thread depends on
the nature of the service being provided, the anticipated number of connections, and
the expected number of processors on the computer running the service.

Service name properties

The VCL provides classes for creating service applications on the Windows platform
(not available for cross-platform applications). These include TService and
TDependency. When using these classes, the various name properties can be
confusing. This section describes the differences.
Services have user names (called Service start names) that are associated with
passwords, display names for display in manager and editor windows, and actual
names (the name of the service). Dependencies can be services or they can be load
ordering groups. They also have names and display names. And because service
objects are derived from TComponent, they inherit the Name property. The following
sections summarize the name properties.

Building applications, components, and libraries 8-9

Creating applications

TDependency properties
The TDependency DisplayName is both a display name and the actual name of the
service. It is nearly always the same as the TDependency Name property.

TService name properties

The TService Name property is inherited from TComponent. It is the name of the
component, and is also the name of the service. For dependencies that are services,
this property is the same as the TDependency Name and DisplayName properties.
TService’s DisplayName is the name displayed in the Service Manager window. This
often differs from the actual service name (TService.Name, TDependency.DisplayName,
TDependency.Name). Note that the DisplayName for the Dependency and the
DisplayName for the Service usually differ.
Service start names are distinct from both the service display names and the actual
service names. A ServiceStartName is the user name input on the Start dialog selected
from the Service Control Manager.

Debugging service applications

You can debug service applications by attaching to the service application process
when it is already running (that is, by starting the service first, and then attaching to
the debugger). To attach to the service application process, choose Run|Attach To
Process, and select the service application in the resulting dialog.
In some cases, this approach may fail, due to insufficient rights. If that happens, you
can use the Service Control Manager to enable your service to work with the
debugger:
1 First create a key called Image File Execution Options in the following registry
location:
HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows NT\CurrentVersion
2 Create a subkey with the same name as your service (for example, MYSERV.EXE).
To this subkey, add a value of type REG_SZ, named Debugger. Use the full path to
Delphi32.exe as the string value.
3 In the Services control panel applet, select your service, click Startup and check
Allow Service to Interact with Desktop.
On Windows NT systems, you can use another approach for debugging service
applications. However, this approach can be tricky, because it requires short time
intervals:
1 First, launch the application in the debugger. Wait a few seconds until it has
finished loading.
2 Quickly start the service from the Control Panel or from the command line:
start MyServ
You must launch the service quickly (within 15-30 seconds of application startup)
because the application will terminate if no service is launched.

8-10 Developer’s Guide

 Creating packages and DLLs

Creating packages and DLLs

Dynamic link libraries (DLLs) are modules of compiled code that work in
conjunction with an executable to provide functionality to an application. You can
create DLLs in cross-platform programs. However, on Linux, DLLs (and packages)
recompile as shared objects.
DLLs and libraries should handle all exceptions to prevent the display of errors and
warnings through Windows dialogs.
The following compiler directives can be placed in library project files:

Table 8.1 Compiler directives for libraries

Compiler Directive Description
{$LIBPREFIX 'string'} Adds a specified prefix to the output file name. For example, you could
specify {$LIBPREFIX 'dcl'} for a design-time package, or use
{$LIBPREFIX ' '} to eliminate the prefix entirely.
{$LIBSUFFIX 'string'} Adds a specified suffix to the output file name before the extension. For
example, use {$LIBSUFFIX '-2.1.3'} in something.pas to generate
something-2.1.3.bpl.
{$LIBVERSION Adds a second extension to the output file name after the .bpl
'string'} extension. For example, use {$LIBVERSION '2.1.3'} in something.pas to
generate something.bpl.2.1.3.

Packages are special DLLs used by Delphi applications, the IDE, or both. There are
two kinds of packages: runtime packages and design-time packages. Runtime
packages provide functionality to a program while that program is running. Design-
time packages extend the functionality of the IDE.
For more information on packages, see Chapter 16, “Working with packages and
components.”

When to use packages and DLLs

For most applications, packages provide greater flexibility and are easier to create
than DLLs. However, there are several situations where DLLs would be better suited
to your projects than packages:
• Your code module will be called from non-Delphi applications.
• You are extending the functionality of a Web server.
• You are creating a code module to be used by third-party developers.
• Your project is an OLE container.
However, if your application includes VisualCLX, you must use packages instead of
DLLs. Only packages can manage the startup and shut down of the Qt shared
libraries.

Building applications, components, and libraries 8-11

Writing database applications

You cannot pass Delphi runtime type information (RTTI) across DLLs or from a DLL
to an executable. If you pass an object from one DLL to another DLL or an executable,
you will not be able to use the is or as operators with the passed object. This is
because the is and as operators need to compare RTTI. If you need to pass objects
from a library, use packages instead, as these can share RTTI. Similarly, you should
use packages instead of DLLs in Web Services because they are rely on Delphi RTTI.

Writing database applications

You can create advanced database applications using tools to connect to SQL servers
and databases such as Oracle, Sybase, InterBase, MySQL, MS-SQL, Informix,
PostgreSQL, and DB2 while providing transparent data sharing between
applications.
The Component palette includes many components for accessing databases and
representing the information they contain. The database components are grouped
according to the data access mechanism and function.

Table 8.2 Database pages on the Component palette

Palette page Contents
BDE Components that use the Borland Database Engine (BDE), a large API for
interacting with databases. The BDE supports the broadest range of functions
and comes with the most supporting utilities including Database Desktop,
Database Explorer, SQL Monitor, and BDE Administrator. See Chapter 26,
“Using the Borland Database Engine” for details.
ADO Components that use ActiveX Data Objects (ADO), developed by Microsoft, to
access database information. Many ADO drivers are available for connecting to
different database servers. ADO-based components let you integrate your
application into an ADO-based environment. See Chapter 27, “Working with
ADO components” for details.
dbExpress Cross-platform components that use dbExpress to access database information.
dbExpress drivers provide fast access to databases but need to be used with
TClientDataSet and TDataSetProvider to perform updates. See Chapter 28, “Using
unidirectional datasets” for details.
InterBase Components that access InterBase databases directly, without going through a
separate engine layer. For more information about using the InterBase
components, see the online Help.
Data Access Components that can be used with any data access mechanism such as
TClientDataSet and TDataSetProvider. See Chapter 29, “Using client datasets” for
information about client datasets. See Chapter 30, “Using provider
components”for information about providers.
Data Controls Data-aware controls that can access information from a data source. See
Chapter 20, “Using data controls” for details.

8-12 Developer’s Guide

 Creating Web server applications

When designing a database application, you must decide which data access
mechanism to use. Each data access mechanism differs in its range of functional
support, the ease of deployment, and the availability of drivers to support different
database servers.
See Part II, “Developing database applications,” for details on how to create both
database client applications and application servers. See “Deploying database
applications” on page 18-6 for deployment information.
Note Not all editions of Delphi include database support.

Distributing database applications

You can create distributed database applications using a coordinated set of
components. Distributed database applications can be built on a variety of
communications protocols, including DCOM, CORBA, TCP/IP, and SOAP.
For more information about building distributed database applications, see
Chapter 31, “Creating multi-tiered applications.”
Distributing database applications often requires you to distribute the Borland
Database Engine (BDE) in addition to the application files. For information on
deploying the BDE, see “Deploying database applications” on page 18-6.

Creating Web server applications

Web server applications are applications that run on servers that deliver Web content
such as HTML Web pages or XML documents over the Internet. Examples of Web
server applications include those which control access to a Web site, generate
purchase orders, or respond to information requests.
You can create several different types of Web server applications using the following
technologies:
• Web Broker
• WebSnap
• IntraWeb
• Web Services

Building applications, components, and libraries 8-13

Creating Web server applications

Creating Web Broker applications

You can use Web Broker (also called NetCLX architecture) to create Web server
applications such as CGI applications or dynamic-link libraries (DLLs). These Web
server applications can contain any nonvisual component. Components on the
Internet page of the Component palette enable you to create event handlers,
programmatically construct HTML or XML documents, and transfer them to the
client.
To create a new Web server application using the Web Broker architecture, choose
File|New|Other and double-click the Web Server Application in the New Items
dialog box. Then select the Web server application type:

Table 8.3 Web server applications

Web server
application type Description
ISAPI and NSAPI ISAPI and NSAPI Web server applications are DLLs that are loaded by
Dynamic Link Library the Web server. Client request information is passed to the DLL as a
structure and evaluated by TISAPIApplication. Each request message is
handled in a separate execution thread.
Selecting this type of application adds the library header of the project
files and required entries to the uses list and exports clause of the project
file.
CGI Stand-alone CGI Web server applications are console applications that receive
executable requests from clients on standard input, process those requests, and
sends back the results to the server on standard output to be sent to the
client.
Selecting this type of application adds the required entries to the uses
clause of the project file and adds the appropriate $APPTYPE directive
to the source.
Apache Shared Selecting this type of application sets up your project as a DLL. Apache
Module (DLL) Web server applications are DLLs loaded by the Web server. Information
is passed to the DLL, processed, and returned to the client by the Web
server.
Web App Debugger Selecting this type of application sets up an environment for developing
stand-alone and testing Web server applications. Web App Debugger applications
executable are executable files loaded by the Web server. This type of application is
not intended for deployment.

CGI applications use more system resources on the server, so complex applications
are better created as ISAPI, NSAPI, or Apache DLL applications. When writing cross-
platform applications, you should select CGI stand-alone or Apache Shared Module
(DLL) for Web server development. These are also the same options you see when
creating WebSnap and Web Service applications.
For more information on building Web server applications, see Chapter 33, “Creating
Internet server applications.”

8-14 Developer’s Guide

 Creating Web server applications

Creating WebSnap applications

WebSnap provides a set of components and wizards for building advanced Web
servers that interact with Web browsers. WebSnap components generate HTML or
other MIME content for Web pages. WebSnap is for server-side development.
To create a new WebSnap application, select File|New|Other and select the
WebSnap tab in the New Items dialog box. Choose WebSnap Application. Then
select the Web server application type (ISAPI/NSAPI, CGI, Apache). See Table 8.3,
“Web server applications” for details.
If you want to do client-side scripting instead of server-side scripting, you can use the
InternetExpress technology. For more information on InternetExpress, see “Building
Web applications using InternetExpress” on page 31-33.
For more information on WebSnap, see Chapter 35, “Creating Web Server
applications using WebSnap.”

Creating Web Services applications

Web Services are self-contained modular applications that can be published and
invoked over a network (such as the World Wide Web). Web Services provide well-
defined interfaces that describe the services provided. You use Web Services to
produce or consume programmable services over the Internet using emerging
standards such as XML, XML Schema, SOAP (Simple Object Access Protocol), and
WSDL (Web Service Definition Language).
Web Services use SOAP, a standard lightweight protocol for exchanging information
in a distributed environment. It uses HTTP as a communications protocol and XML
to encode remote procedure calls.
You can build servers to implement Web Services and clients that call on those
services. You can write clients for arbitrary servers to implement Web Services that
respond to SOAP messages, and servers to publish Web Services for use by arbitrary
clients.
Refer to Chapter 38, “Using Web Services” for more information on Web Services.

Building applications, components, and libraries 8-15

Writing applications using COM

Writing applications using COM

COM is the Component Object Model, a Windows-based distributed object
architecture designed to provide object interoperability using predefined routines
called interfaces. COM applications use objects that are implemented by a different
process or, if you use DCOM, on a separate machine. You can also use COM+,
ActiveX and Active Server Pages.
COM is a language-independent software component model that enables interaction
between software components and applications running on a Windows platform.
The key aspect of COM is that it enables communication between components,
between applications, and between clients and servers through clearly defined
interfaces. Interfaces provide a way for clients to ask a COM component which
features it supports at runtime. To provide additional features for your component,
you simply add an additional interface for those features.

Using COM and DCOM

Various classes and wizards that make it easy to create COM, OLE, or ActiveX
applications. You can create COM clients or servers that implement COM objects,
Automation servers (including Active Server Objects), ActiveX controls, or
ActiveForms. COM also severs as the basis for other technologies such as
Automation, ActiveX controls, Active Documents, and Active Directories.
Using Delphi to create COM-based applications offers a wide range of possibilities,
from improving software design by using interfaces internally in an application, to
creating objects that can interact with other COM-based API objects on the system,
such as the Win9x Shell extensions and DirectX multimedia support. Applications
can access the interfaces of COM components that exist on the same computer as the
application or that exist on another computer on the network using a mechanism
called Distributed COM (DCOM).
For more information on COM and Active X controls, see Chapter 40, “Overview of
COM technologies,” Chapter 45, “Creating an ActiveX control,” and “Distributing a
client application as an ActiveX control” on page 31-32.
For more information on DCOM, see “Using DCOM connections” on page 31-9.

Using MTS and COM+

COM applications can be augmented with special services for managing objects in a
large distributed environment. These services include transaction services, security,
and resource management supplied by Microsoft Transaction Server (MTS) on
versions of Windows prior to Windows 2000) or COM+ (for Windows 2000 and
later).
For more information on MTS and COM+, see Chapter 46, “Creating MTS or COM+
objects” and “Using transactional data modules” on page 31-7.

8-16 Developer’s Guide

 Using data modules

Using data modules

A data module is like a special form that contains nonvisual components. All the
components in a data module could be placed on ordinary forms alongside visual
controls. But if you plan on reusing groups of database and system objects, or if you
want to isolate the parts of your application that handle database connectivity and
business rules, then data modules provide a convenient organizational tool.
There are several types of data modules, including standard, remote, Web modules,
applet modules, and services, depending on which edition of Delphi you have. Each
type of data module serves a special purpose.
• Standard data modules are particularly useful for single- and two-tiered database
applications, but can be used to organize the nonvisual components in any
application. For more information, see “Creating and editing standard data
modules” on page 8-17.
• Remote data modules form the basis of an application server in a multi-tiered
database application. They are not available in all editions. In addition to holding
the nonvisual components in the application server, remote data modules expose
the interface that clients use to communicate with the application server. For more
information about using them, see “Adding a remote data module to an
application server project” on page 8-21.
• Web modules form the basis of Web server applications. In addition to holding the
components that create the content of HTTP response messages, they handle the
dispatching of HTTP messages from client applications. See Chapter 33, “Creating
Internet server applications” for more information about using Web modules.
• Applet modules form the basis of control panel applets. In addition to holding the
nonvisual controls that implement the control panel applet, they define the
properties that determine how the applet’s icon appears in the control panel and
include the events that are called when users execute the applet. For more
information about applet modules, see the online Help.
• Services encapsulate individual services in an NT service application. In addition
to holding any nonvisual controls used to implement a service, services include
the events that are called when the service is started or stopped. For more
information about services, see “Service applications” on page 8-5.

Creating and editing standard data modules

To create a standard data module for a project, choose File|New|Data Module. The
IDE opens a data module container on the desktop, displays the unit file for the new
module in the Code editor, and adds the module to the current project.
At design time, a data module looks like a standard form with a white background
and no alignment grid. As with forms, you can place nonvisual components from the
Component palette onto a module, and edit their properties in the Object Inspector.
You can resize a data module to accommodate the components you add to it.

Building applications, components, and libraries 8-17

Using data modules

You can also right-click a module to display a context menu for it. The following
table summarizes the context menu options for a data module.

Table 8.4 Context menu options for data modules

Menu item Purpose
Edit Displays a context menu with which you can cut, copy, paste, delete, and
select the components in the data module.
Position Aligns nonvisual components to the module’s invisible grid (Align To Grid)
or according to criteria you supply in the Alignment dialog box (Align).
Tab Order Enables you to change the order that the focus jumps from component to
component when you press the tab key.
Creation Order Enables you to change the order that data access components are created at
start-up.
Revert to Inherited Discards changes made to a module inherited from another module in the
Object Repository, and reverts to the originally inherited module.
Add to Repository Stores a link to the data module in the Object Repository.
View as Text Displays the text representation of the data module’s properties.
Text DFM Toggles between the formats (binary or text) in which this particular form
file is saved.

For more information about data modules, see the online Help.

Naming a data module and its unit file

The title bar of a data module displays the module’s name. The default name for a
data module is “DataModuleN” where N is a number representing the lowest
unused unit number in a project. For example, if you start a new project, and add a
module to it before doing any other application building, the name of the module
defaults to “DataModule2.” The corresponding unit file for DataModule2 defaults to
“Unit2.”
You should rename your data modules and their corresponding unit files at design
time to make them more descriptive. You should especially rename data modules
you add to the Object Repository to avoid name conflicts with other data modules in
the Repository or in applications that use your modules.
To rename a data module:
1 Select the module.
2 Edit the Name property for the module in the Object Inspector.
The new name for the module appears in the title bar when the Name property in the
Object Inspector no longer has focus.
Changing the name of a data module at design time changes its variable name in the
interface section of code. It also changes any use of the type name in procedure
declarations. You must manually change any references to the data module in code
you write.
To rename a unit file for a data module, select the unit file.

8-18 Developer’s Guide

 Using data modules

Placing and naming components

You place nonvisual components in a data module just as you place visual
components on a form. Click the desired component on the appropriate page of the
Component palette, then click in the data module to place the component. You
cannot place visual controls, such as grids, on a data module. If you attempt it, you
receive an error message.
For ease of use, components are displayed with their names in a data module. When
you first place a component, the module assigns it a generic name that identifies
what kind of component it is, followed by a 1. For example, the TDataSource
component adopts the name DataSource1. This makes it easy to select specific
components whose properties and methods you want to work with.
You may still want to name a component a different name that reflects the type of
component and what it is used for.
To change the name of a component in a data module:
1 Select the component.
2 Edit the component’s Name property in the Object Inspector.
The new name for the component appears under its icon in the data module as soon
as the Name property in the Object Inspector no longer has focus.
For example, suppose your database application uses the CUSTOMER table. To
access the table, you need a minimum of two data access components: a data source
component (TDataSource) and a table component (TClientDataSet). When you place
these components in your data module, the module assigns them the names
DataSource1 and ClientDataSet1. To reflect the type of component and the database
they access, CUSTOMER, you could change these names to CustomerSource and
CustomerTable.

Using component properties and events in a data module

Placing components in a data module centralizes their behavior for your entire
application. For example, you can use the properties of dataset components, such as
TClientDataSet, to control the data available to the data source components that use
those datasets. Setting the ReadOnly property to True for a dataset prevents users
from editing the data they see in a data-aware visual control on a form. You can also
invoke the Fields editor for a dataset, by double-clicking on ClientDataSet1, to restrict
the fields within a table or query that are available to a data source and therefore to
the data-aware controls on forms. The properties you set for components in a data
module apply consistently to all forms in your application that use the module.
In addition to properties, you can write event handlers for components. For example,
a TDataSource component has three possible events: OnDataChange, OnStateChange,
and OnUpdateData. A TClientDataSet component has over 20 potential events. You
can use these events to create a consistent set of business rules that govern data
manipulation throughout your application.

Building applications, components, and libraries 8-19

Using data modules

Creating business rules in a data module

Besides writing event handlers for the components in a data module, you can code
methods directly in the unit file for a data module. These methods can be applied to
the forms that use the data module as business rules. For example, you might write a
procedure to perform month-, quarter-, or year-end bookkeeping. You might call the
procedure from an event handler for a component in the data module.
The prototypes for the procedures and functions you write for a data module should
appear in the module’s type declaration:
type
TCustomerData = class(TDataModule)
Customers: TClientDataSet;
Orders: TClientDataSet;
ƒ
private
{ Private declarations }
public
{ Public declarations }
procedure LineItemsCalcFields(DataSet: TDataSet); { A procedure you add }
end;
var
CustomerData: TCustomerData;
The procedures and functions you write should follow in the implementation section
of the code for the module.

Accessing a data module from a form

To associate visual controls on a form with a data module, you must first add the
data module to the form’s uses clause. You can do this in several ways:
• In the Code editor, open the form’s unit file and add the name of the data module
to the uses clause in the interface section.
• Click the form’s unit file, choose File|Use Unit, and enter the name of the module
or pick it from the list box in the Use Unit dialog.
• For database components, in the data module click a dataset or query component
to open the Fields editor and drag any existing fields from the editor onto the
form. The IDE prompts you to confirm that you want to add the module to the
form’s uses clause, then creates controls (such as edit boxes) for the fields.
For example, if you’ve added the TClientDataSet component to your data module,
double-click it to open the Fields editor. Select a field and drag it to the form. An edit
box component appears.
Because the data source is not yet defined, Delphi adds a new data source
component, DataSource1, to the form and sets the edit box’s DataSource property to
DataSource1. The data source automatically sets its DataSet property to the dataset
component, ClientDataSet1, in the data module.

8-20 Developer’s Guide

 Using the Object Repository

You can define the data source before you drag a field to the form by adding a
TDataSource component to the data module. Set the data source’s DataSet property to
ClientDataSet1. After you drag a field to the form, the edit box appears with its
TDataSource property already set to DataSource1. This method keeps your data access
model cleaner.

Adding a remote data module to an application server project

Some editions of Delphi allow you to add remote data modules to application server
projects. A remote data module has an interface that clients in a multi-tiered
application can access across networks.
To add a remote data module to a project:
1 Choose File|New|Other.
2 Select the Multitier page in the New Items dialog box.
3 Double-click the Remote Data Module icon to open the Remote Data Module
wizard.
Once you add a remote data module to a project, use it just like a standard data
module.
For more information about multi-tiered database applications, see Chapter 31,
“Creating multi-tiered applications.”

Using the Object Repository

The Object Repository (Tools|Repository) makes it easy share forms, dialog boxes,
frames, and data modules. It also provides templates for new projects and wizards
that guide the user through the creation of forms and projects. The Repository is
maintained in DELPHI32.DRO (by default in the BIN directory), a text file that
contains references to the items that appear in the Repository and New Items dialogs.

Sharing items within a project

You can share items within a project without adding them to the Object Repository.
When you open the New Items dialog box (File|New|Other), you'll see a page tab
with the name of the current project. This page lists all the forms, dialog boxes, and
data modules in the project. You can derive a new item from an existing item and
customize it as needed.

Building applications, components, and libraries 8-21

Using the Object Repository

Adding items to the Object Repository

You can add your own projects, forms, frames, and data modules to those already
available in the Object Repository. To add an item to the Object Repository,
1 If the item is a project or is in a project, open the project.
2 For a project, choose Project|Add To Repository. For a form or data module, right-
click the item and choose Add To Repository.
3 Type a description, title, and author.
4 Decide which page you want the item to appear on in the New Items dialog box,
then type the name of the page or select it from the Page combo box. If you type
the name of a page that doesn’t exist, the Object Repository creates a new page.
5 Choose Browse to select an icon to represent the object in the Object Repository.
6 Choose OK.

Sharing objects in a team environment

You can share objects with your workgroup or development team by making a
repository available over a network. To use a shared repository, all team members
must select the same Shared Repository directory in the Environment Options dialog:
1 Choose Tools|Environment Options.
2 On the Preferences page, locate the Shared Repository panel. In the Directory edit
box, enter the directory where you want to locate the shared repository. Be sure to
specify a directory that’s accessible to all team members.
The first time an item is added to the Repository, a DELPHI32.DRO file is created in
the Shared Repository directory if one doesn’t exist already.

Using an Object Repository item in a project

To access items in the Object Repository, choose File|New|Other. The New Items
dialog appears, showing all the items available. Depending on the type of item you
want to use, you have up to three options for adding the item to your project:
• Copy
• Inherit
• Use

Copying an item
Choose Copy to make an exact copy of the selected item and add the copy to your
project. Future changes made to the item in the Object Repository will not be
reflected in your copy, and alterations made to your copy will not affect the original
Object Repository item.
Copy is the only option available for project templates.

8-22 Developer’s Guide

 Using the Object Repository

Inheriting an item
Choose Inherit to derive a new class from the selected item in the Object Repository
and add the new class to your project. When you recompile your project, any changes
that have been made to the item in the Object Repository will be reflected in your
derived class, in addition to changes you make to the item in your project. Changes
made to your derived class do not affect the shared item in the Object Repository.
Inherit is available for forms, dialog boxes, and data modules, but not for project
templates. It is the only option available for reusing items within the same project.

Using an item
Choose Use when you want the selected item itself to become part of your project.
Changes made to the item in your project will appear in all other projects that have
added the item with the Inherit or Use option. Select this option with caution.
The Use option is available for forms, dialog boxes, and data modules.

Using project templates

Templates are predesigned projects that you can use as starting points for your own
work. To create a new project from a template:
1 Choose File|New|Other to display the New Items dialog box.
2 Choose the Projects tab.
3 Select the project template you want and choose OK.
4 In the Select Directory dialog, specify a directory for the new project’s files.
The template files are copied to the specified directory, where you can modify them.
The original project template is unaffected by your changes.

Modifying shared items

If you modify an item in the Object Repository, your changes will affect all future
projects that use the item as well as existing projects that have added the item with
the Use or Inherit option. To avoid propagating changes to other projects, you have
several alternatives:
• Copy the item and modify it in your current project only.
• Copy the item to the current project, modify it, then add it to the Repository under
a different name.
• Create a component, DLL, component template, or frame from the item. If you
create a component or DLL, you can share it with other developers.

Building applications, components, and libraries 8-23

Enabling Help in applications

Specifying a default project, new form, and main form

By default, when you choose File|New|Application or File|New|Form, a blank
form appears. You can change this behavior by reconfiguring the Repository:
1 Choose Tools|Repository.
2 If you want to specify a default project, select the Projects page and choose an item
under Objects. Then select the New Project check box.
3 If you want to specify a default form, select a Repository page (such as Forms),
them choose a form under Objects. To specify the default new form (File|New|
Form), select the New Form check box. To specify the default main form for new
projects, select the Main Form check box.
4 Click OK.

Enabling Help in applications

Both VCL and CLX applications support displaying Help using an object-based
mechanism that allows Help requests to be passed on to one of multiple external
Help viewers. To support this, an application must include a class that implements
the ICustomHelpViewer interface (and, optionally, one of several interfaces descended
from it), and registers itself with the global Help Manager.
VCL applications provide an instance of TWinHelpViewer, which implements all of
these interfaces and provides a link between applications and WinHelp. CLX
applications require that you provide your own implementation. On Windows, CLX
applications can use the WinHelpViewer unit provided as part of the VCL if they
bind to it statically—that is, by including that unit as part of your project instead of
linking it to the VCL package.
The Help Manager maintains a list of registered viewers and passes requests to them
in a two-phase process: it first asks each viewer if it can provide support for a
particular Help keyword or context, and then it passes the Help request on to the
viewer which says it can provide such support.
If more than one viewer supports the keyword, as would be the case in an
application that had registered viewers for both WinHelp and HyperHelp on
Windows or Man and Info on Linux, the Help Manager can display a selection box
through which the user of the application can determine which Help viewer to
invoke. Otherwise, it displays the first responding Help system encountered.

8-24 Developer’s Guide

 Enabling Help in applications

Help system interfaces

The Help system allows communication between your application and Help viewers
through a series of interfaces. These interfaces are all defined in the HelpIntfs.pas,
which also contains the implementation of the Help Manager.
ICustomHelpViewer provides support for displaying Help based upon a provided
keyword and for displaying a table of contents listing all Help available in a
particular viewer.
IExtendedHelpViewer provides support for displaying Help based upon a numeric
Help context and for displaying topics; in most Help systems, topics function as
high-level keywords (for example, “IntToStr” might be a keyword in the Help
system, but “String manipulation routines” could be the name of a topic).
ISpecialWinHelpViewer provides support for responding to specialized WinHelp
messages that an application running under Windows may receive and which are
not easily generalizable. In general, only applications operating in the Windows
environment need to implement this interface, and even then it is only required for
applications that make extensive use of non-standard WinHelp messages.
IHelpManager provides a mechanism for the Help viewer to communicate back to the
application’s Help Manager and request additional information. IHelpManager is
obtained at the time the Help viewer registers itself.
IHelpSystem provides a mechanism through which TApplication passes Help requests
on to the Help system. TApplication obtains an instance of an object which
implements both IHelpSystem and IHelpManager at application load time and exports
that instance as a property; this allows other code within the application to file Help
requests directly when appropriate.
IHelpSelector provides a mechanism through which the Help system can invoke the
user interface to ask which Help viewer should be used in cases where more than one
viewer is capable of handling a Help request, and to display a Table of Contents. This
display capability is not built into the Help Manager directly to allow the Help
Manager code to be identical regardless of which widget set or class library is in use.

Implementing ICustomHelpViewer
The ICustomHelpViewer interface contains three types of methods: methods used to
communicate system-level information (for example, information not related to a
particular Help request) with the Help Manager; methods related to showing Help
based upon a keyword provided by the Help Manager; and methods for displaying a
table of contents.

Building applications, components, and libraries 8-25

Enabling Help in applications

Communicating with the Help Manager

The ICustomHelpViewer provides four functions that can be used to communicate
system information with the Help Manager:
• GetViewerName
• NotifyID
• ShutDown
• SoftShutDown
The Help Manager calls through these functions in the following circumstances:
• ICustomHelpViewer.GetViewerName : String is called when the Help Manager wants
to know the name of the viewer (for example, if the application is asked to display
a list of all registered viewers). This information is returned via a string, and is
required to be logically static (that is, it cannot change during the operation of the
application). Multibyte character sets are not supported.
• ICustomHelpViewer.NotifyID(const ViewerID: Integer) is called immediately
following registration to provide the viewer with a unique cookie that identifies it.
This information must be stored off for later use; if the viewer shuts down on its
own (as opposed to in response to a notification from the Help Manager), it must
provide the Help Manager with the identifying cookie so that the Help Manager
can release all references to the viewer. (Failing to provide the cookie, or providing
the wrong one, causes the Help Manager to potentially release references to the
wrong viewer.)
• ICustomHelpViewer.ShutDown is called by the Help Manager to notify the Help
viewer that the Manager is shutting down and that any resources the Help viewer
has allocated should be freed. It is recommended that all resource freeing be
delegated to this method.
• ICustomHelpViewer.SoftShutDown is called by the Help Manager to ask the Help
viewer to close any externally visible manifestations of the Help system (for
example, windows displaying Help information) without unloading the viewer.

Asking the Help Manager for information

Help viewers communicate with the Help Manager through the IHelpManager
interface, an instance of which is returned to them when they register with the Help
Manager. IHelpManager allows the Help viewer to communicate four things:
• A request for the window handle of the currently active control.
• A request for the name of the Help file which the Help Manager believes should
contain help for the currently active control.
• A request for the path to that Help file.
• A notification that the Help viewer is shutting itself down in response to
something other than a request from the Help Manager that it do so.

8-26 Developer’s Guide

 Enabling Help in applications

IHelpManager.GetHandle : LongInt is called by the Help viewer if it needs to know the

handle of the currently active control; the result is a window handle.
IHelpManager.GetHelpFile: String is called by the Help viewer if it needs to know the
name of the Help file which the currently active control believes contains its Help.
IHelpManager.Release is called to notify the Help Manager when a Help viewer is
disconnecting. It should never be called in response to a request through
ICustomHelpViewer.ShutDown; it is only used to notify the Help Manager of
unexpected disconnects.

Displaying keyword-based Help

Help requests typically come through to the Help viewer as either keyword-based
Help, in which case the viewer is asked to provide help based upon a particular
string, or as context-based Help, in which case the viewer is asked to provide help
based upon a particular numeric identifier.
Note Numeric Help contexts are the default form of Help requests in applications running
under Windows, which use the WinHelp system; while CLX supports them, they are
not recommended for use in CLX applications because most Linux Help systems do
not understand them.
ICustomHelpViewer implementations are required to provide support for keyword-
based Help requests, while IExtendedHelpViewer implementations are required to
support context-based Help requests.
ICustomHelpViewer provides three methods for handling keyword-based Help:
• UnderstandsKeyword
• GetHelpStrings
• ShowHelp
ICustomHelpViewer.UnderstandsKeyword(const HelpString: String): Integer
is the first of the three methods called by the Help Manager, which will call each
registered Help viewer with the same string to ask if the viewer provides help for
that string; the viewer is expected to respond with an integer indicating how many
different Help pages it can display in response to that Help request. The viewer can
use any method it wants to determine this — inside the IDE, the HyperHelp viewer
maintains its own index and searches it. If the viewer does not support help on this
keyword, it should return zero. Negative numbers are currently interpreted as
meaning zero, but this behavior is not guaranteed in future releases.
ICustomHelpViewer.GetHelpStrings(const HelpString: String): TStringList

Building applications, components, and libraries 8-27

Enabling Help in applications

is called by the Help Manager if more than one viewer can provide Help on a topic.
The viewer is expected to return a TStringList, which is freed by the Help Manager.
The strings in the returned list should map to the pages available for that keyword,
but the characteristics of that mapping can be determined by the viewer. In the case
of the WinHelp viewer on Windows and the HyperHelp viewer on Linux, the string
list always contains exactly one entry. HyperHelp provides its own indexing, and
duplicating that elsewhere would be pointless duplication. In the case of the Man
page viewer (Linux), the string list consists of multiple strings, one for each section of
the manual which contains a page for that keyword.
ICustomHelpViewer.ShowHelp(const HelpString: String)
is called by the Help Manager if it needs the Help viewer to display help for a
particular keyword. This is the last method call in the operation; it is guaranteed to
never be called unless the UnderstandsKeyword method is invoked first.

Displaying tables of contents

ICustomHelpViewer provides two methods relating to displaying tables of contents:
• CanShowTableOfContents
• ShowTableOfContents
The theory behind their operation is similar to the operation of the keyword Help
request functions: the Help Manager first queries all Help viewers by calling
ICustomHelpViewer.CanShowTableOfContents : Boolean and then invokes a particular
Help viewer by calling ICustomHelpViewer.ShowTableOfContents.
It is reasonable for a particular viewer to refuse to allow requests to support a table of
contents. The Man page viewer does this, for example, because the concept of a table
of contents does not map well to the way Man pages work; the HyperHelp viewer
supports a table of contents, on the other hand, by passing the request to display a
table of contents directly to WinHelp on Windows and HyperHelp on Linux. It is not
reasonable, however, for an implementation of ICustomHelpViewer to respond to
queries through CanShowTableOfContents with the answer True, and then ignore
requests through ShowTableOfContents.

Implementing IExtendedHelpViewer
ICustomHelpViewer only provides direct support for keyword-based Help. Some
Help systems (especially WinHelp) work by associating numbers (known as context
IDs) with keywords in a fashion which is internal to the Help system and therefore
not visible to the application. Such systems require that the application support
context-based Help in which the application invokes the Help system with that
context, rather than with a string, and the Help system translates the number itself.

8-28 Developer’s Guide

 Enabling Help in applications

Applications can talk to systems requiring context-based Help by extending the

object that implements ICustomHelpViewer to also implement IExtendedHelpViewer.
IExtendedHelpViewer also provides support for talking to Help systems that allow you
to jump directly to high-level topics instead of using keyword searches. The built-in
WinHelp viewer does this for you automatically.
IExtendedHelpViewer exposes four functions. Two of them—UnderstandsContext and
DisplayHelpByContext—are used to support context-based Help; the other two—
UnderstandsTopic and DisplayTopic—are used to support topics.
When an application user presses F1, the Help Manager calls
IExtendedHelpViewer.UnderstandsContext(const ContextID: Integer;
const HelpFileName: String): Boolean
and the currently activated control supports context-based, rather than keyword-
based Help. As with ICustomHelpViewer.UnderstandsKeyword, the Help Manager
queries all registered Help viewers iteratively. Unlike the case with
ICustomHelpViewer.UnderstandsKeyword, however, if more than one viewer supports
a specified context, the first registered viewer with support for a given context is
invoked.
The Help Manager calls
IExtendedHelpViewer.DisplayHelpByContext(const ContextID: Integer;
const HelpFileName: String)
after it has polled the registered Help viewers.
The topic support functions work the same way:
IExtendedHelpViewer.UnderstandsTopic(const Topic: String): Boolean
is used to poll the Help viewers asking if they support a topic;
IExtendedHelpViewer.DisplayTopic(const Topic: String)
is used to invoke the first registered viewer which reports that it is able to provide
help for that topic.

Implementing IHelpSelector
IHelpSelector is a companion to ICustomHelpViewer. When more than one registered
viewer claims to provide support for a given keyword, context, or topic, or provides
a table of contents, the Help Manager must choose between them. In the case of
contexts or topics, the Help Manager always selects the first Help viewer that claims
to provide support. In the case of keywords or the table of context, the Help Manager
will, by default, select the first Help viewer. This behavior can be overridden by an
application.

Building applications, components, and libraries 8-29

Enabling Help in applications

To override the decision of the Help Manager in such cases, an application must
register a class that provides an implementation of the IHelpSelector interface.
IHelpSelector exports two functions: SelectKeyword, and TableOfContents. Both take as
arguments a TStrings containing, one by one, either the possible keyword matches or
the names of the viewers claiming to provide a table of contents. The implementor is
required to return the index (in the TStringList) that represents the selected string; the
TStringList is then freed by the Help Manager.
Note The Help Manager may get confused if the strings are rearranged; it is recommended
that implementors of IHelpSelector refrain from doing this. The Help system only
supports one HelpSelector; when new selectors are registered, any previously
existing selectors are disconnected.

Registering Help system objects

For the Help Manager to communicate with them, objects that implement
ICustomHelpViewer, IExtendedHelpViewer, ISpecialWinHelpViewer, and IHelpSelector
must register with the Help Manager.
To register Help system objects with the Help Manager, you need to:
• Register the Help viewer.
• Register the Help Selector.

Registering Help viewers

The unit that contains the object implementation must use HelpIntfs. An instance of
the object must be declared in the var section of the implementing unit.
The initialization section of the implementing unit must assign the instance variable
and pass it to the function RegisterViewer. RegisterViewer is a flat function exported by
the HelpIntfs unit, which takes as an argument an ICustomHelpViewer and returns an
IHelpManager. The IHelpManager should be stored for future use.

Registering Help selectors

The unit that contains the object implementation must use either Forms in the VCL or
QForms in CLX. An instance of the object must be declared in the var section of the
implementing unit.
The initialization section of the implementing unit must register the Help selector
through the HelpSystem property of the global Application object:
Application.HelpSystem.AssignHelpSelector(myHelpSelectorInstance)
This procedure does not return a value.

8-30 Developer’s Guide

 Using Help in a VCL application

Using Help in a VCL application

The following sections explain how to use Help within a VCL application.
• How TApplication processes VCL Help~
• How VCL controls process Help
• Calling a Help system directly~
• Using IHelpSystem

How TApplication processes VCL Help

TApplication in the VCL provides four methods that are accessible from application
code:

Table 8.5 Help methods in TApplication

Method Description
HelpCommand Takes a Windows Help style HELP_COMMAND and passes it off to WinHelp.
Help requests forwarded through this mechanism are passed only to
implementations of IspecialWinHelpViewer.
HelpContext Invokes the Help System with a request for context-based Help.
HelpKeyword Invokes the HelpSystem with a request for keyword-based Help.
HelpJump Requests the display of a particular topic.

All four functions take the data passed to them and forward it through a data
member of TApplication, which represents the Help system. That data member is
directly accessible through the property HelpSystem.

How VCL controls process Help

All VCL controls that derive from TControl expose several properties that are used by
the Help system: HelpType, HelpContext, and HelpKeyword.
The HelpType property contains an instance of an enumerated type that determines if
the control’s designer expects help to be provided via keyword-based Help or
context-based Help. If the HelpType is set to htKeyword, then the Help system expects
the control to use keyword-based Help, and the Help system only looks at the
contents of the HelpKeyword property. Conversely, if the HelpType is set to htContext,
the Help system expects the control to use context-based Help and only looks at the
contents of the HelpContext property.
In addition to the properties, controls expose a single method, InvokeHelp, that can be
called to pass a request to the Help system. It takes no parameters and calls the
methods in the global Application object, which correspond to the type of Help the
control supports.
Help messages are automatically invoked when F1 is pressed because the KeyDown
method of TWinControl calls InvokeHelp.

Building applications, components, and libraries 8-31

Using Help in a CLX application

Using Help in a CLX application

The following sections explain how to use Help within a CLX application.
• How TApplication processes CLX Help~
• How CLX controls process Help
• Calling a Help system directly~
• Using IHelpSystem

How TApplication processes CLX Help

TApplication in a CLX application provides two methods that are accessible from
application code:
• ContextHelp, which invokes the Help system with a request for context-based Help
• KeywordHelp, which invokes the Help system with a request for keyword-based
Help
Both functions take as an argument the context or keyword being passed and
forward the request on through a data member of TApplication, which represents the
Help system. That data member is directly accessible through the read-only property
HelpSystem.

How CLX controls process Help

All controls that derive from TControl expose four properties which are used by the
Help system: HelpType, HelpFile, HelpContext, and HelpKeyword. HelpFile is supposed
to contain the name of the file in which the control’s help is located; if the help is
located in an external Help system that does not care about file names (say, for
example, the Man page system), then the property should be left blank.
The HelpType property contains an instance of an enumerated type which determines
if the control’s designer expects help to be provided via keyword-based Help or
context-based Help; the other two properties are linked to it. If the HelpType is set to
htKeyword, then the Help system expects the control to use keyword-based Help, and
the Help system only looks at the contents of the HelpKeyword property. Conversely,
if the HelpType is set to htContext, the Help system expects the control to use context-
based Help and only looks at the contents of the HelpContext property.
In addition to the properties, controls expose a single method, InvokeHelp, which can
be called to pass a request to the Help system. It takes no parameters and calls the
methods in the global Application object, which correspond to the type of help the
control supports.
Help messages are automatically invoked when F1 is pressed because the KeyDown
method of TWidgetControl calls InvokeHelp.

8-32 Developer’s Guide

 Calling a Help system directly

Calling a Help system directly

For additional Help system functionality not provided by VCL or CLX applications,
TApplication provides a read-only property that allows direct access to the Help
system. This property is an instance of an implementation of the interface
IHelpSystem. IHelpSystem and IHelpManager are implemented by the same object, but
one interface is used to allow the application to talk to the Help Manager, and one is
used to allow the Help viewers to talk to the Help Manager.

Using IHelpSystem
IHelpSystem allows an application to do three things:
• Provides path information to the Help Manager.
• Provides a new Help selector.
• Asks the Help Manager to display Help.
Providing path information is important because the Help Manager is platform-
independent and Help system-independent and so is not able to ascertain the
location of Help files. If an application expects Help to be provided by an external
Help system that is not able to ascertain file locations itself, it must provide this
information through the IHelpSystem’s ProvideHelpPath method, which allows the
information to become available through the IHelpManager’s GetHelpPath method.
(This information propagates outward only if the Help viewer asks for it.)
Assigning a Help selector allows the Help Manager to delegate decision-making in
cases where multiple external Help systems can provide Help for the same keyword.
For more information, see the section “Implementing IHelpSelector” on page 8-29.
IHelpSystem exports four procedures and one function to request the Help Manager
to display Help:
• ShowHelp
• ShowContextHelp
• ShowTopicHelp
• ShowTableOfContents
• Hook
Hook is intended entirely for WinHelp compatibility and should not be used in a CLX
application; it allows processing of WM_HELP messages that cannot be mapped
directly onto requests for keyword-based, context-based, or topic-based Help. The
other methods each take two arguments: the keyword, context ID, or topic for which
help is being requested, and the Help file in which it is expected that help can be
found.
In general, unless you are asking for topic-based help, it is equally effective and more
clear to pass help requests to the Help Manager through the InvokeHelp method of
your control.

Building applications, components, and libraries 8-33

Customizing the IDE Help system

Customizing the IDE Help system

The IDE supports multiple Help viewers in exactly the same way that a VCL or CLX
application does: it delegates Help requests to the Help Manager, which forwards
them to registered Help viewers. The IDE makes use of the same WinHelpViewer
that the VCL uses.
The IDE comes with two Help viewers installed: the HyperHelp viewer, which
allows Help requests to be forwarded to HyperHelp, an external WinHelp emulator
under which the Kylix Help files are viewed, and the Man page viewer, which allows
you to access the Man system installed on most Unix machines. Because it is
necessary for Kylix Help to work, the HyperHelp viewer may not be removed; the
Man page viewer ships in a separate package whose source is available in the
examples directory.
To install a new Help viewer in the IDE, you do exactly what you would do in a VCL
or CLX application, with one difference. You write an object that implements
ICustomHelpViewer (and, if desired, IExtendedHelpViewer) to forward Help requests to
the external viewer of your choice, and you register the ICustomHelpViewer with the
IDE.
To register a custom Help viewer with the IDE:
1 Make sure that the unit implementing the Help viewer contains HelpIntfs.pas.
2 Build the unit into a design-time package registered with the IDE, and build the
package with runtime packages turned on. (This is necessary to ensure that the
Help Manager instance used by the unit is the same as the Help Manager instance
used by the IDE.)
3 Make sure that the Help viewer exists as a global instance within the unit.
4 In the initialization section of the unit, make sure that the instance is passed to the
RegisterHelpViewer function.

8-34 Developer’s Guide

 Chapter

Developing the application

Chapter9
9
user interface
When you open the IDE or create a new project, a blank form is displayed on the
screen. You design your application’s user interface (UI) by placing and arranging
visual components, such as windows, menus, and dialog boxes, from the Component
palette onto the form.
Once a visual component is on the form, you can adjust its position, size, and other
design-time properties, and code its event handlers. The form takes care of the
underlying programming details.
The following sections describe some of the major interface tasks, such as working
with forms, creating component templates, adding dialog boxes, and organizing
actions for menus and toolbars.

Controlling application behavior

TApplication, TScreen, and TForm are the classes that form the backbone of all
applications by controlling the behavior of your project. The TApplication class forms
the foundation of an application by providing properties and methods that
encapsulate the behavior of a standard program. TScreen is used at runtime to keep
track of forms and data modules that have been loaded as well as maintaining
system-specific information such as screen resolution and available display fonts.
Instances of the TForm class are the building blocks of your application’s user
interface. The windows and dialog boxes in your application are based on TForm.

Developing the application user interface 9-1

Controlling application behavior

Working at the application level

The global variable Application, of type TApplication, is in every VCL- or CLX-based
application. Application encapsulates your application as well as providing many
functions that occur in the background of the program. For instance, Application
handles how you call a Help file from the menu of your program. Understanding
how TApplication works is more important to a component writer than to developers
of stand-alone applications, but you should set the options that Application handles in
the Project|Options Application page when you create a project.
In addition, Application receives many events that apply to the application as a whole.
For example, the OnActivate event lets you perform actions when the application first
starts up, the OnIdle event lets you perform background processes when the
application is not busy, the OnMessage event lets you intercept Windows messages
(on Windows only), the OnEvent event lets you intercept events, and so on. Although
you can’t use the IDE to examine the properties and events of the global Application
variable, another component, TApplicationEvents, intercepts the events and lets you
supply event-handlers using the IDE.

Handling the screen

A global variable of type TScreen called Screen is created when you create a project.
Screen encapsulates the state of the screen on which your application is running.
Common tasks performed by Screen include specifying:
• The look of the cursor.
• The size of the window in which your application is running.
• A list of fonts available to the screen device.
• Multiple screen behavior (Windows only).
If your Windows application runs on multiple monitors, Screen maintains a list of
monitors and their dimensions so that you can effectively manage the layout of your
user interface.
For CLX applications, the default behavior is that applications create a screen
component based on information about the current screen device and assign it to
Screen.

9-2 Developer’s Guide

 Setting up forms

Setting up forms
TForm is the key class for creating GUI applications. When you open a default project
or create a new project, a form appears on which you can begin your UI design.

Using the main form

The first form you create and save in a project becomes, by default, the project’s main
form, which is the first form created at runtime. As you add forms to your projects,
you might decide to designate a different form as your application’s main form. Also,
specifying a form as the main form is an easy way to test it at runtime, because unless
you change the form creation order, the main form is the first form displayed in the
running application.
To change the project main form:
1 Choose Project|Options and select the Forms page.
2 In the Main Form combo box, select the form you want to use as the project’s main
form and choose OK.
Now if you run the application, the form you selected as the main form is displayed.

Hiding the main form

You can prevent the main form from appearing when your application starts by
using the global Application variable (described in , “Working at the application
level,” on page 9-2).
To hide the main form at startup:
1 Choose Project|View Source to display the main project file.
2 Add the following code after the call to Application.CreateForm and before the call
to Application.Run.
Application.ShowMainForm := False;
Form1.Visible := False; { the name of your main form may differ }
Note You can set the form’s Visible property to False using the Object Inspector at design
time rather than setting it at runtime as in the previous example.

Developing the application user interface 9-3

Setting up forms

Adding forms
To add a form to your project, select File|New|Form. You can see all your project’s
forms and their associated units listed in the Project Manager (View|Project
Manager) and you can display a list of the forms alone by choosing View|Forms.

Linking forms
Adding a form to a project adds a reference to it in the project file, but not to any
other units in the project. Before you can write code that references the new form,
you need to add a reference to it in the referencing forms’ unit files. This is called form
linking.
A common reason to link forms is to provide access to the components in that form.
For example, you’ll often use form linking to enable a form that contains data-aware
components to connect to the data-access components in a data module.
To link a form to another form,
1 Select the form that needs to refer to another.
2 Choose File|Use Unit.
3 Select the name of the form unit for the form to be referenced.
4 Choose OK.
Linking a form to another just means that the uses clauses of one form unit contains a
reference to the other’s form unit, meaning that the linked form and its components
are now in scope for the linking form.

Avoiding circular unit references

When two forms must reference each other, it’s possible to cause a “Circular
reference” error when you compile your program. To avoid such an error, do one of
the following:
• Place both uses clauses, with the unit identifiers, in the implementation parts of
the respective unit files. (This is what the File|Use Unit command does.)
• Place one uses clause in an interface part and the other in an implementation
part. (You rarely need to place another form’s unit identifier in this unit’s interface
part.)
Do not place both uses clauses in the interface parts of their respective unit files. This
generates the “Circular reference” error at compile time.

9-4 Developer’s Guide

 Setting up forms

Managing layout
At its simplest, you control the layout of your user interface by where you place
controls in your forms. The placement choices you make are reflected in the control’s
Top, Left, Width, and Height properties. You can change these values at runtime to
change the position and size of the controls in your forms.
Controls have a number of other properties, however, that allow them to
automatically adjust to their contents or containers. This allows you to lay out your
forms so that the pieces fit together into a unified whole.
Two properties affect how a control is positioned and sized in relation to its parent.
The Align property lets you force a control to fit perfectly within its parent along a
specific edge or filling up the entire client area after any other controls have been
aligned. When the parent is resized, the controls aligned to it are automatically
resized and remain positioned so that they fit against a particular edge.
If you want to keep a control positioned relative to a particular edge of its parent, but
don’t want it to necessarily touch that edge or be resized so that it always runs along
the entire edge, you can use the Anchors property.
If you want to ensure that a control does not grow too big or too small, you can use
the Constraints property. Constraints lets you specify the control’s maximum height,
minimum height, maximum width, and minimum width. Set these to limit the size
(in pixels) of the control’s height and width. For example, by setting the MinWidth
and MinHeight of the constraints on a container object, you can ensure that child
objects are always visible.
The value of Constraints propagates through the parent/child hierarchy so that an
object’s size can be constrained because it contains aligned children that have size
constraints. Constraints can also prevent a control from being scaled in a particular
dimension when its ChangeScale method is called.
TControl introduces a protected event, OnConstrainedResize, of type
TConstrainedResizeEvent:
TConstrainedResizeEvent = procedure(Sender: TObject; var MinWidth, MinHeight, MaxWidth,
MaxHeight: Integer) of object;
This event allows you to override the size constraints when an attempt is made to
resize the control. The values of the constraints are passed as var parameters which
can be changed inside the event handler. OnConstrainedResize is published for
container objects (TForm, TScrollBox, TControlBar, and TPanel). In addition,
component writers can use or publish this event for any descendant of TControl.
Controls that have contents that can change in size have an AutoSize property that
causes the control to adjust its size to its font or contained objects.

Developing the application user interface 9-5

Using forms

Using forms
When you create a form from the IDE, Delphi automatically creates the form in
memory by including code in the main entry point of your application function.
Usually, this is the desired behavior and you don’t have to do anything to change it.
That is, the main window persists through the duration of your program, so you
would likely not change the default behavior when creating the form for your main
window.
However, you may not want all your application’s forms in memory for the duration
of the program execution. That is, if you do not want all your application’s dialogs in
memory at once, you can create the dialogs dynamically when you want them to
appear.
Forms can be modal or modeless. Modal forms are forms with which the user must
interact before switching to another form (for example, a dialog box requiring user
input). Modeless forms are windows that are displayed until they are either obscured
by another window or until they are closed or minimized by the user.

Controlling when forms reside in memory

By default, Delphi automatically creates the application’s main form in memory by
including the following code in the application’s main entry point:
Application.CreateForm(TForm1, Form1);
This function creates a global variable with the same name as the form. So, every
form in an application has an associated global variable. This variable is a pointer to
an instance of the form’s class and is used to reference the form while the application
is running. Any unit that includes the form’s unit in its uses clause can access the
form via this variable.
All forms created in this way in the project unit appear when the program is invoked
and exist in memory for the duration of the application.

Displaying an auto-created form

If you choose to create a form at startup, and do not want it displayed until sometime
later during program execution, the form’s event handler uses the ShowModal
method to display the form that is already loaded in memory:
procedure TMainForm.Button1Click(Sender: TObject);
begin
ResultsForm.ShowModal;
end;
In this case, since the form is already in memory, there is no need to create another
instance or destroy that instance.

9-6 Developer’s Guide

 Using forms

Creating forms dynamically

You may not always want all your application’s forms in memory at once. To reduce
the amount of memory required at load time, you may want to create some forms
only when you need to use them. For example, a dialog box needs to be in memory
only during the time a user interacts with it.
To create a form at a different stage during execution using the IDE, you:
1 Select the File|New|Form from the main menu to display the new form.
2 Remove the form from the Auto-create forms list of the Project|Options|Forms
page.
This removes the form’s invocation at startup. As an alternative, you can manually
remove the following line from program’s main entry point:
Application.CreateForm(TResultsForm, ResultsForm);
3 Invoke the form when desired by using the form’s Show method, if the form is
modeless, or ShowModal method, if the form is modal.
An event handler for the main form must create an instance of the result form and
destroy it. One way to invoke the result form is to use the global variable as follows.
Note that ResultsForm is a modal form so the handler uses the ShowModal method.
procedure TMainForm.Button1Click(Sender: TObject);
begin
ResultsForm := TResultForm.Create(self);
try
ResultsForm.ShowModal;
finally
ResultsForm.Free;
end;
end;
In the above example, note the use of try..finally. Putting in the line ResultsForm.Free; in
the finally clause ensures that the memory for the form is freed even if the form
raises an exception.
The event handler in the example deletes the form after it is closed, so the form
would need to be recreated if you needed to use ResultsForm elsewhere in the
application. If the form were displayed using Show you could not delete the form
within the event handler because Show returns while the form is still open.
Note If you create a form using its constructor, be sure to check that the form is not in the
Auto-create forms list on the Project Options|Forms page. Specifically, if you create
the new form without deleting the form of the same name from the list, Delphi
creates the form at startup and this event-handler creates a new instance of the form,
overwriting the reference to the auto-created instance. The auto-created instance still
exists, but the application can no longer access it. After the event-handler terminates,
the global variable no longer points to a valid form. Any attempt to use the global
variable will likely crash the application.

Developing the application user interface 9-7

Using forms

Creating modeless forms such as windows

You must guarantee that reference variables for modeless forms exist for as long as
the form is in use. This means that these variables should have global scope. In most
cases, you use the global reference variable that was created when you made the
form (the variable name that matches the name property of the form). If your
application requires additional instances of the form, declare separate global
variables for each instance.

Creating a form instance using a local variable

A safer way to create a unique instance of a modal form is to use a local variable in the
event handler as a reference to a new instance. If a local variable is used, it does not
matter whether ResultsForm is auto-created or not. The code in the event handler
makes no reference to the global form variable. For example:
procedure TMainForm.Button1Click(Sender: TObject);
var
RF:TResultForm;
begin
RF:=TResultForm.Create(self)
RF.ShowModal;
RF.Free;
end;
Notice how the global instance of the form is never used in this version of the event
handler.
Typically, applications use the global instances of forms. However, if you need a new
instance of a modal form, and you use that form in a limited, discrete section of the
application, such as a single function, a local instance is usually the safest and most
efficient way of working with the form.
Of course, you cannot use local variables in event handlers for modeless forms
because they must have global scope to ensure that the forms exist for as long as the
form is in use. Show returns as soon as the form opens, so if you used a local variable,
the local variable would go out of scope immediately.

Passing additional arguments to forms

Typically, you create forms for your application from within the IDE. When created
this way, the forms have a constructor that takes one argument, Owner, which is the
owner of the form being created. (The owner is the calling application object or form
object.) Owner can be nil.
To pass additional arguments to a form, create a separate constructor and instantiate
the form using this new constructor. The example form class below shows an
additional constructor, with the extra argument whichButton. This new constructor is
added to the form class manually.
TResultsForm = class(TForm)
ResultsLabel: TLabel;
OKButton: TButton;
procedure OKButtonClick(Sender: TObject);

9-8 Developer’s Guide

 Using forms

private
public
constructor CreateWithButton(whichButton: Integer; Owner: TComponent);
end;
Here’s the manually coded constructor that passes the additional argument,
whichButton. This constructor uses the whichButton parameter to set the Caption
property of a Label control on the form.
constructor CreateWithButton(whichButton: Integer; Owner: TComponent);
begin
inherited Create(Owner);
case whichButton of
1: ResultsLabel.Caption := 'You picked the first button.';
2: ResultsLabel.Caption := 'You picked the second button.';
3: ResultsLabel.Caption := 'You picked the third button.';
end;
end;
When creating an instance of a form with multiple constructors, you can select the
constructor that best suits your purpose. For example, the following OnClick handler
for a button on a form calls creates an instance of TResultsForm that uses the extra
parameter:
procedure TMainForm.SecondButtonClick(Sender: TObject);
var
rf: TResultsForm;
begin
rf := TResultsForm.CreateWithButton(2, self);
rf.ShowModal;
rf.Free;
end;

Retrieving data from forms

Most real-world applications consist of several forms. Often, information needs to be
passed between these forms. Information can be passed to a form by means of
parameters to the receiving form’s constructor, or by assigning values to the form’s
properties. The way you get information from a form depends on whether the form is
modal or modeless.

Retrieving data from modeless forms

You can easily extract information from modeless forms by calling public member
functions of the form or by querying properties of the form. For example, assume an
application contains a modeless form called ColorForm that contains a listbox called
ColorListBox with a list of colors (“Red,” “Green,” “Blue,” and so on). The selected
color name string in ColorListBox is automatically stored in a property called

Developing the application user interface 9-9

Using forms

CurrentColor each time a user selects a new color. The class declaration for the form is
as follows:
TColorForm = class(TForm)
ColorListBox:TListBox;
procedure ColorListBoxClick(Sender: TObject);
private
FColor:String;
public
property CurColor:String read FColor write FColor;
end;
The OnClick event handler for the listbox, ColorListBoxClick, sets the value of the
CurrentColor property each time a new item in the listbox is selected. The event
handler gets the string from the listbox containing the color name and assigns it to
CurrentColor. The CurrentColor property uses the setter function, SetColor, to store the
actual value for the property in the private data member FColor:
procedure TColorForm.ColorListBoxClick(Sender: TObject);
var
Index: Integer;
begin
Index := ColorListBox.ItemIndex;
if Index >= 0 then
CurrentColor := ColorListBox.Items[Index]
else
CurrentColor := '';
end;
Now suppose that another form within the application, called ResultsForm, needs to
find out which color is currently selected on ColorForm whenever a button (called
UpdateButton) on ResultsForm is clicked. The OnClick event handler for UpdateButton
might look like this:
procedure TResultForm.UpdateButtonClick(Sender: TObject);
var
MainColor: String;
begin
if Assigned(ColorForm) then
begin
MainColor := ColorForm.CurrentColor;
{do something with the string MainColor}
end;
end;
The event handler first verifies that ColorForm exists using the Assigned function. It
then gets the value of ColorForm’s CurrentColor property.
Alternatively, if ColorForm had a public function named GetColor, another form could
get the current color without using the CurrentColor property (for example, MainColor
:= ColorForm.GetColor;). In fact, there’s nothing to prevent another form from getting
the ColorForm’s currently selected color by checking the listbox selection directly:
with ColorForm.ColorListBox do
MainColor := Items[ItemIndex];

9-10 Developer’s Guide

 Using forms

However, using a property makes the interface to ColorForm very straightforward

and simple. All a form needs to know about ColorForm is to check the value of
CurrentColor.

Retrieving data from modal forms

Just like modeless forms, modal forms often contain information needed by other
forms. The most common example is when form A launches modal form B. When
form B is closed, form A needs to know what the user did with form B to decide how
to proceed with the processing of form A. If form B is still in memory, it can be
queried through properties or member functions just as in the modeless forms
example above. But how do you handle situations where form B is deleted from
memory upon closing? Since a form does not have an explicit return value, you must
preserve important information from the form before it is destroyed.
To illustrate, consider a modified version of the ColorForm form that is designed to be
a modal form. The class declaration is as follows:
TColorForm = class(TForm)
ColorListBox:TListBox;
SelectButton: TButton;
CancelButton: TButton;
procedure CancelButtonClick(Sender: TObject);
procedure SelectButtonClick(Sender: TObject);
private
FColor: Pointer;
public
constructor CreateWithColor(Value: Pointer; Owner: TComponent);
end;
The form has a listbox called ColorListBox with a list of names of colors. When
pressed, the button called SelectButton makes note of the currently selected color
name in ColorListBox then closes the form. CancelButton is a button that simply closes
the form.
Note that a user-defined constructor was added to the class that takes a Pointer
argument. Presumably, this Pointer points to a string that the form launching
ColorForm knows about. The implementation of this constructor is as follows:
constructor TColorForm(Value: Pointer; Owner: TComponent);
begin
FColor := Value;
String(FColor^) := '';
end;
The constructor saves the pointer to a private data member FColor and initializes the
string to an empty string.
Note To use the above user-defined constructor, the form must be explicitly created. It
cannot be auto-created when the application is started. For details, see “Controlling
when forms reside in memory” on page 9-6.

Developing the application user interface 9-11

Using forms

In the application, the user selects a color from the listbox and presses SelectButton to
save the choice and close the form. The OnClick event handler for SelectButton might
look like this:
procedure TColorForm.SelectButtonClick(Sender: TObject);
begin
with ColorListBox do
if ItemIndex >= 0 then
String(FColor^) := ColorListBox.Items[ItemIndex];
end;
Close;
end;
Notice that the event handler stores the selected color name in the string referenced
by the pointer that was passed to the constructor.
To use ColorForm effectively, the calling form must pass the constructor a pointer to
an existing string. For example, assume ColorForm was instantiated by a form called
ResultsForm in response to a button called UpdateButton on ResultsForm being clicked.
The event handler would look as follows:
procedure TResultsForm.UpdateButtonClick(Sender: TObject);
var
MainColor: String;
begin
GetColor(Addr(MainColor));
if MainColor <> '' then
{do something with the MainColor string}
else
{do something else because no color was picked}
end;

procedure GetColor(PColor: Pointer);

begin
ColorForm := TColorForm.CreateWithColor(PColor, Self);
ColorForm.ShowModal;
ColorForm.Free;
end;
UpdateButtonClick creates a String called MainColor. The address of MainColor is
passed to the GetColor function which creates ColorForm, passing the pointer to
MainColor as an argument to the constructor. As soon as ColorForm is closed it is
deleted, but the color name that was selected is still preserved in MainColor,
assuming that a color was selected. Otherwise, MainColor contains an empty string
which is a clear indication that the user exited ColorForm without selecting a color.
This example uses one string variable to hold information from the modal form. Of
course, more complex objects can be used depending on the need. Keep in mind that
you should always provide a way to let the calling form know if the modal form was
closed without making any changes or selections (such as having MainColor default
to an empty string).

9-12 Developer’s Guide

 Reusing components and groups of components

Reusing components and groups of components

You can save and reuse work you’ve done with components using several tools:
• Configure and save groups of components in component templates. See “Creating
and using component templates” on page 9-13.
• Save forms, data modules, and projects in the Object Repository. The Repository
gives you a central database of reusable elements and lets you use form
inheritance to propagate changes. See “Using the Object Repository” on page 8-21.
• Save frames on the Component palette or in the Repository. Frames use form
inheritance and can be embedded into forms or other frames. See “Working with
frames” on page 9-14.
• Create a custom component, the most complicated but most flexible way of reusing
code. See Chapter 1, “Overview of component creation,” of the Component Writer’s
Guide.

Creating and using component templates

You can create templates that are made up of one or more components. After
arranging components on a form, setting their properties, and writing code for them,
save them as a component template. Later, by selecting the template from the
Component palette, you can place the preconfigured components on a form in a
single step; all associated properties and event-handling code are added to your
project at the same time.
Once you place a template on a form, you can reposition the components
independently, reset their properties, and create or modify event handlers for them
just as if you had placed each component in a separate operation.
To create a component template,
1 Place and arrange components on a form. In the Object Inspector, set their
properties and events as desired.
2 Select the components. The easiest way to select several components is to drag the
mouse over all of them. Gray handles appear at the corners of each selected
component.
3 Choose Component|Create Component Template.
4 Specify a name for the component template in the Component Template
Information edit box. The default proposal is the component type of the first
component selected in step 2 followed by the word “Template.” For example, if
you select a label and then an edit box, the proposed name will be
“TLabelTemplate.” You can change this name, but be careful not to duplicate
existing component names.

Developing the application user interface 9-13

Working with frames

5 In the Palette page edit box, specify the Component palette page where you want
the template to reside. If you specify a page that does not exist, a new page is
created when you save the template.
6 Next to Palette Icon, select a bitmap to represent the template on the palette. The
default proposal will be the bitmap used by the component type of the first
component selected in step 2. To browse for other bitmaps, click Change. The
bitmap you choose must be no larger than 24 pixels by 24 pixels.
7 Click OK.
To remove templates from the Component palette, choose Component|Configure
Palette.

Working with frames

A frame (TFrame), like a form, is a container for other components. It uses the same
ownership mechanism as forms for automatic instantiation and destruction of the
components on it, and the same parent-child relationships for synchronization of
component properties.
In some ways, however, a frame is more like a customized component than a form.
Frames can be saved on the Component palette for easy reuse, and they can be nested
within forms, other frames, or other container objects. After a frame is created and
saved, it continues to function as a unit and to inherit changes from the components
(including other frames) it contains. When a frame is embedded in another frame or
form, it continues to inherit changes made to the frame from which it derives.
Frames are useful to organize groups of controls that are used in multiple places in
your application. For example, if you have a bitmap that is used on multiple forms,
you can put it in a frame and only one copy of that bitmap is included in the
resources of your application. You could also describe a set of edit fields that are
intended to edit a table with a frame and use that whenever you want to enter data
into the table.

Creating frames
To create an empty frame, choose File|New|Frame, or choose File|New|Other and
double-click Frame. You can then drop components (including other frames) onto
your new frame.
It is usually best—though not necessary—to save frames as part of a project. If you
want to create a project that contains only frames and no forms, choose File|New|
Application, close the new form and unit without saving them, then choose File|
New|Frame and save the project.
Note When you save frames, avoid using the default names Unit1, Project1, and so forth,
since these are likely to cause conflicts when you try to use the frames later.

9-14 Developer’s Guide

 Working with frames

At design time, you can display any frame included in the current project by
choosing View|Forms and selecting a frame. As with forms and data modules, you
can toggle between the Form Designer and the frame’s form file by right-clicking and
choosing View as Form or View as Text.

Adding frames to the Component palette

Frames are added to the Component palette as component templates. To add a frame
to the Component palette, open the frame in the Form Designer (you cannot use a
frame embedded in another component for this purpose), right-click the frame, and
choose Add to Palette. When the Component Template Information dialog opens,
select a name, palette page, and icon for the new template.

Using and modifying frames

To use a frame in an application, you must place it, directly or indirectly, on a form.
You can add frames directly to forms, to other frames, or to other container objects
such as panels and scroll boxes.
The Form Designer provides two ways to add a frame to an application:
• Select a frame from the Component palette and drop it onto a form, another frame,
or another container object. If necessary, the Form Designer asks for permission to
include the frame’s unit file in your project.
• Select Frames from the Standard page of the Component palette and click on a
form or another frame. A dialog appears with a list of frames that are already
included in your project; select one and click OK.
When you drop a frame onto a form or other container, Delphi declares a new class
that descends from the frame you selected. (Similarly, when you add a new form to a
project, Delphi declares a new class that descends from TForm.) This means that
changes made later to the original (ancestor) frame propagate to the embedded
frame, but changes to the embedded frame do not propagate backward to the
ancestor.
Suppose, for example, that you wanted to assemble a group of data-access
components and data-aware controls for repeated use, perhaps in more than one
application. One way to accomplish this would be to collect the components into a
component template; but if you started to use the template and later changed your
mind about the arrangement of the controls, you would have to go back and
manually alter each project where the template was placed.

Developing the application user interface 9-15

Working with frames

If, on the other hand, you put your database components into a frame, later changes
would need to be made in only one place; changes to an original frame automatically
propagate to its embedded descendants when your projects are recompiled. At the
same time, you are free to modify any embedded frame without affecting the original
frame or other embedded descendants of it. The only limitation on modifying
embedded frames is that you cannot add components to them.
Figure 9.1 A frame with data-aware controls and a data source component

In addition to simplifying maintenance, frames can help you to use resources more
efficiently. For example, to use a bitmap or other graphic in an application, you might
load the graphic into the Picture property of a TImage control. If, however, you use
the same graphic repeatedly in one application, each Image object you place on a
form will result in another copy of the graphic being added to the form’s resource
file. (This is true even if you set TImage