Others

Current understanding of hooks: For example, we double-click a window with the mouse, or enter a letter a for a window;First, we found that these events are not windows, but systems! Then the system will tell you: Hello! What are you going to

In this example: Unit unit1; interfaceuses windows, messages, sysutils, variants, classes, graphics, controls, forms, dialogs, percentages, stdctrls; Type tform1 = Class (tform) treeview1: ttreeview; checkbox1: tcheckbox; checkbox2:

Add Panel1, paintbox1, and button1 to the form, CodeAs follows: Procedure tform1.button1click (Sender: tobject); var CVS: TCanvas; begin {paintbox1 is like a form and has the canvas attribute} paintbox1.canvas. brush. color: = clred; paintbox1.

Problem Source: http://www.cnblogs.com/del/archive/2009/03/12/1409708.html#1475240 In this example: Custom class (tmybutton ): Unit unit2; interfaceuses windows, messages, classes, graphics, stdctrls; Type tmybutton = Class

This is obtained immediately after the page is downloaded: Unit unit1; interfaceuses windows, messages, sysutils, variants, classes, graphics, controls, forms, dialogs, olectrls, shdocvw, stdctrls; Type tform1 = Class (tform) webbrowser1:

Now I want to create a resource file with two icons and call it. 1. Create a new project and save it. Note that {$ R *. Res} will not be deleted this time} 2. Copy two ICO files to the project directory, for example, icofile_1.ico and icofile_2

// The three variables in the example allow absolute to get a piece, which is sometimes very convenient; but I still don't think of it, I am still not familiar with it. procedure tform1.formcreate (Sender: tobject); var num: int64; Pt: tpoint

In fact, Delphi 2006 already supports Operator overloading, but the for Win32 version is only supported in record. What is the use of Operator Overloading? For example:For example, you may ask, "Who are the two of you? "In fact, you are asking: "

Sysutils. Examples. encodedatesysutils. encodetimedateutils. Examples. Examples. encodedatetimedateutils. encodedateweekdateutils. example. tryencodedatetimedateutils. example. Example Unit unit1; interfaceuses windows, messages, extensions,

Function createwaitabletimer (lptimerattributes: psecurityattributes; {Security} bmanualreset: bool; {true: scheduling multiple threads; false: Scheduling only one thread} lptimername: pwidechar {name}): thandle; stdcall; {return handle} function

Comparedatetime, comparedate, and comparetime return-1, 0, and 1; The former = the latter: returns 0; The former> the latter: return 1; Former True and false are returned for samedatetime, samedate, and Sametime. Unit unit1; interfaceuses

In this example: Unit unit1; interfaceuses windows, messages, sysutils, variants, classes, graphics, controls, forms, dialogs, percentages, stdctrls; Type tform1 = Class (tform) treeview1: ttreeview; button1: tbutton; button2: tbutton;

Two multithread synchronization methods are available: Criticalsection (critical section) and mutex (mutex). The two Synchronization Methods are similar, but they have different scopes; The criticalsection is similar to a public restroom with only

In this example: Code File: Unit unit1; interfaceuses windows, messages, sysutils, variants, classes, graphics, controls, forms, dialogs, Dib, stdctrls; Type tform1 = Class (tform) dxpaintbox1: bytes; button1: tbutton; button2:

Problem Source: http://www.cnblogs.com/del/archive/2009/01/20/1353117.html#1435746 Principle Analysis: Two shellapi functions are required: dragacceptfiles and dragqueryfile; Use dragacceptfiles (window handle, true); to allow the

In this example: Unit unit1; interfaceuses windows, messages, sysutils, variants, classes, graphics, controls, forms, dialogs, grids, dbgrids, DB, dbclient, stdctrls, comctrls, extctrls; type tform1 = Class (tform) performance1:

In this example, the same rectangle is initialized in five ways to run: Unit unit1; interfaceuses windows, messages, sysutils, variants, classes, graphics, controls, forms, dialogs, stdctrls; Type tform1 = Class (tform) button1: tbutton;

Running result of this example: Clsid: {557CF400-1A04-11D3-9A73-0000F81EF32E}FormatID: {B96B3CAB-0728-11D3-9D7B-0000F81EF32E}CodecName: Built-in BMP CodecDllName: FormatDescription: BMPFilenameExtension: *.BMP;*.DIB;*.RLEMimeType: image/bmpFlags: 6

Unit dirtreeview; interfaceuses sysutils, classes, controls, forms, comctrls; Type encoding = Class (ttreeview) Private frootpath: string; fext: string; ffilename: string; protected procedure collapse (node: ttreenode); override; Procedure expand

{Location object :} reload // reload the current document replace // Replace the current document assign with the new document // load the new document href // set or return the complete urlprotocol // set or return the current URL protocol host //