Others

Unit unit1; interfaceuses windows, messages, sysutils, variants, classes, graphics, controls, forms, dialogs, xmldom, xmlintf, msxmldom, xmldoc, stdctrls; Type tform1 = Class (tform) button1: tbutton; xmldocument1: txmldocument; Procedure formcreate

Create a new VCL Forms Application project, Code Two Class : One is a tform class; the other is a tform1 class; tform1 inherits from tform. Tform is the parent class of tform1, and tform1 is the Child class of tform. unit unit1;

VaR B: byte; W: word; C: Cardinal; begin {byte is a 1-byte (8-bit) unsigned integer with a maximum value of 111111112} ASM mov B, 111111b; end; showmessage (inttostr (B); {255} {word is a 2-byte (16-bit) unsigned integer with a maximum value of 11111

// Declaration: getkeyboardtype (ntypeflag: INTEGER {0: keyboard type; 1: keyboard subtype; 2: Number of function keys}): integer; // example: Procedure tform1.formcreate (Sender: tobject); var I: integer; List: tstringlist; begin list: =

// Replace the common string var REG: tperlregex; begin REG: = tperlregex. Create (NiL); Reg. Subject: = 'I love Delphi, But Delphi doesn't love me! '; Reg. regEx: = 'delphi '; Reg. replacement: = '◆ '; Reg. replaceall; showmessage (Reg. subject); //

// greedy match var REG: tperlregex; begin REG: = tperlregex. create (NiL); Reg. subject: = ' title content '; Reg. regEx: = ' '; // all matches, because the two ends are: Reg. replacement: = '◆ '; Reg. replaceall; showmessage (Reg. subject); /

Run: Unit unit1; interfaceuses windows, messages, sysutils, variants, classes, graphics, controls, forms, dialogs, stdctrls, comctrls; Type tform1 = Class (tform) hotkey1: thotkey; memo1: tmemo; checkbox1: tcheckbox; checkbox2: tcheckbox;

In this example: After the message wm_nchittest is returned, the result parameter indicates the part of the window where the mouse is located. Form Design Steps: after creating a project, add a menu; set the autoscroll attribute of

Unit unit1; interfaceuses windows, messages, sysutils, variants, classes, graphics, controls, forms, dialogs, stdctrls; Type tform1 = Class (tform) button1: tbutton; memo1: tmemo; procedure button1click (Sender: tobject); end; var form1: tform1;

// Texture painter var G: tgpgraphics; IMG: tgpimage; TB: tgptexturebrush; begin G: = tgpgraphics. create (canvas. handle); IMG: = tgpimage. create ('C: \ temp \ small.jpg '); TB: = tgptexturebrush. create (IMG); G. fillellipse (TB, 0, 0, self.

Download the source code in this example and run: Production process: 1. After creating a new project, add form2, form3, form4, and form5; 2. Add a tprogressbar and tlabel respectively on form5 (use the default name ); 3. Open the project

Problem Source: http://www.cnblogs.com/del/archive/2008/05/14/1089344.html#1196271 In this example: Code File: Unit unit1; interfaceuses windows, messages, sysutils, variants, classes, graphics, controls, forms, dialogs,

// Declaration: drawtextex (DC: HDC; {Device handle} lpchtext: pchar; {text} cchtext: integer; {number of characters to be drawn;-1 indicates all} var P4: trect; {rectangular structure} dwdtformat: uint; {Option} dtparams: pdrawtextparams

// Single-character char and ansichar (in the current version (2007), they are the same thing, only 1 byte) var C: Char; {the value range of the char type is: #0 .. #255, in hexadecimal format: #$0 .. # $ ff} begin {value assignment in decimal

I have known a value assignment instruction (mov) of an Assembly and an addition instruction (ADD), so I can give an example. For example: Add ax, BX; this is equivalent to ax: = AX + bx in Delphi; In addition, a list is provided in

Unit unit1; interfaceuses windows, messages, extensions, variants, classes, graphics, controls, forms, dialogs, stdctrls; Type tform1 = Class (tform) button1: tbutton; Procedure button1click (Sender: tobject); end; var form1: tform1; implementation {

Function length (S: String {string; or an array}): integer; Example: // String (same as ansistring in Delphi 2007) var S: string; I: integer; begin S: = 'delphi '; I: = length (s ); showmessage (inttostr (I); {6} end; //

Unit unit1; interfaceuses windows, messages, sysutils, variants, classes, graphics, controls, forms, dialogs, xmldom, xmlintf, msxmldom, xmldoc, stdctrls; Type tform1 = Class (tform) xmldocument1: txmldocument; memo1: tmemo; button1: tbutton; button2

Unit unit1; interfaceuses windows, messages, sysutils, variants, classes, graphics, controls, forms, dialogs, stdctrls; Type tform1 = Class (tform) memo1: tmemo; button1: tbutton; button2: tbutton; button3: tbutton; Procedure submit (Sender: tobject

// Color transparency var G: tgpgraphics; SB: tgpsolidbrush; begin G: = tgpgraphics. create (canvas. handle); SB: = tgpsolidbrush. create (makecolor (128,255, 128); {indicates translucent} G. fillrectangle (SB, 10, 10, 100,100); sb. free; G. free;