Others

There are already defined system command constants (I think there are some problems ): SC _size = 61440; SC _move = 61456; SC _minimize = 61472; rows = 61488; SC _nextwindow = 61504; SC _prevwindow = 61520; SC _close = 61536; SC _vscroll = 61

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 formmousedown

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

Problem Source: http://www.cnblogs.com/del/archive/2008/11/27/967440.html#1384363 Unit unit1; interfaceuses windows, messages, extensions, variants, classes, graphics, controls, forms, dialogs, stdctrls; Type tform1 = Class (tform) button1:

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; button5: tbutton; Procedure

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);

Tgplineargradientbrush. create (rect: tgprect; {linear gradient boundary} color1, color2: tgpcolor; {linear gradient start color and end color} mode: tlineargradientmode {Gradient Direction, see the following table }); tgplineargradientbrush. create

Lstrcmp is case sensitive; lstrcmpi is case insensitive. return values:-1, 0, and 1, where 0 indicates the same. Unit unit1; interfaceuses windows, messages, sysutils, variants, classes, graphics, controls, forms, dialogs, stdctrls; Type

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

First, the conversion function: Unit unit1; interfaceuses windows, messages, sysutils, variants, classes, graphics, controls, forms, dialogs, stdctrls; Type tform1 = Class (tform) button1: tbutton; button2: tbutton; procedure button1click

In this example: Unit unit1; interfaceuses windows, messages, sysutils, variants, classes, graphics, controls, forms, dialogs; Type tform1 = Class (tform) Procedure formpaint (Sender: tobject); end; vaR form1: tform1; implementation {$ R *.

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

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; button5: tbutton; Procedure

In this example, the color of the cursor is modified ,: Code File: Unit unit1; interfaceuses windows, messages, sysutils, variants, classes, graphics, controls, forms, dialogs, stdctrls, extctrls; Type tform1 = Class (tform)

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

Test: Custom myshape unit: Unit myshape; interfaceuses windows, classes, graphics, controls; Type tmyshapetype = (strectangle, stsquare, stroundrect, stroundsquare, stellipse, stcircle, stpolygon); tpoints = array of tpoint;

The lparam parameter of the wm_syscommand message is the mouse position, the low is X, and the high is Y. The following three programs use different types of message parameters. It is more convenient to use twmsyscommand and more orthodox to use

You can customize a line cap using GDI +. In this example, the starting line cap is a small rectangle and the ending line cap is a small triangle. In this example: Code file: Unit unit1; interfaceuses windows, messages, sysutils, variants,

In this example: Code file: Unit unit1; interfaceuses windows, messages, sysutils, variants, classes, graphics, controls, forms, dialogs, classes, extctrls; Type tform1 = Class (tform) combox1: tcombobox; combox2: outputs; outputs: outputs;

In this example: Code file: unit Unit1;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls;type TForm1 = class(TForm) CheckBox1: TCheckBox; CheckBox2: TCheckBox; procedure