Others

If you use Versions later than Delphi 2009, we recommend that you use: Http://www.cnblogs.com/del/archive/2009/12/11/1621790.html. The following figure shows how to use 2007. GDI + is a function library in windows. It comes from

In this example: Code File: Unit unit1; interfaceuses windows, messages, sysutils, variants, classes, graphics, controls, forms, dialogs; Type tform1 = Class (tform) Procedure formpaint (Sender: tobject ); procedure formclick

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

// RC file: sound1 wave "soundfile1.wav" sound2 wave "soundfile2.wav" //Code: Unit unit1; interfaceuses windows, messages, sysutils, variants, classes, graphics, controls, forms, dialogs, stdctrls; Type tform1 = Class (tform) button1: tbutton;

This conversion is generally used for webpage addresses. I don't know if Delphi has a ready-made function. // Function: function toutf8encode (STR: string): string; var B: byte; begin for B in bytesof (utf8encode (STR) do result: = format ('% S

I recently prepared to learn directsound, directmusic, and DirectShow, But I encountered many problems with wave files as soon as I got started. I had to go back and learn wave files. Basic knowledge of wave files We often see this

The igplineargradientbrush. Blend attribute corresponds to an igpblend object; The two parameters in tgpblend. Create (factors, positions); are single-type arrays,Factors color intensity factor, positions is the ratio of location offset. For

Auto-increment field: // CreateCubeMethod 1: Begin with clientdataset1 do begin fielddefs. add ('id', ftautoinc); fielddefs. add ('name', ftstring, 11); createdataset; end; // Method 2: Begin with tautoincfield. create (Self) Do begin fieldname:

It was suddenly found that the message unit finally provided several convenient message sending functions: Sendtextmessage, sendstructmessage, sendgetstructmessage, and sendgetintmessage Although the implementation of functions is very simple,

// Declaration: extracticon (hinst: hinst; {call the function's Program Instance} lpszexefilename: pchar; {file path; file may be *. EXE ,*. DLL ,*. ICO} niconindex: uint {icon index}): hicon; {return icon handle; returns the first icon handle when

In this example: Code File: Unit unit1; interfaceuses windows, messages, extensions, variants, classes, graphics, controls, forms, dialogs, stdctrls; Type tform1 = Class (tform) listbox1: tlistbox; Procedure formcreate (Sender:

Problem Source: http://www.cnblogs.com/del/archive/2008/11/22/1284923.html#1378410 Delphi 2009 uses multi-byte encoding (MBCS) by default. Delphi indicates tencoding. default. The following is an example of conversion between multi-byte

Drinking for one day, reinstalling the system for one day, and failing to blog for two days; continue learning... Ever wondered? Waitabletimer is in "timed wait". In the preceding example, the waitforsingleobject wait function "is also waiting",

In this example, a BMP image is embedded into the DLL as a source file, and then called. Step 1: Create a DLL project ,: Save the settings and use the default names here. Step 2: Create a source file ,: The Edit content is

On the component panel of delphix, the second is tdxdib; Tdxdib. DiB is the unique attribute of tdxdib (others are inherent in tcomponent ); The tdxdib. Dib attribute is a tdib object; Tdib and tbitmap both inherit from tgraphic directly.

In this example: Code File: Unit unit1; interfaceuses windows, messages, sysutils, variants, classes, graphics, controls, forms, dialogs; Type tform1 = Class (tform) Procedure formpaint (Sender: tobject ); procedure formcreate

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

In this example: Code File: Unit unit1; interfaceuses windows, messages, sysutils, variants, classes, graphics, controls, forms, dialogs, dxdraws, stdctrls; Type tform1 = Class (tform) dxdraw1: tdxdraw; Metadata: tdximagelist;

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

Igpgraphicspathiterator can traverse sub-paths and path tags in a path. Igpgraphicspathiterator. count; {total number of points} igpgraphicspathiterator. subpathcount; {number of sub-paths} igpgraphicspathiterator. hascurve; {include curve}