代码举例：

var
 MyBtn:TButton;
begin
 MyBtn:=TButton.Create(Form1);
 MyBtn.Parent:=Form1;
 MyBtn.Left:=10;
 MyBtn.Top:=10;
 MyBtn.OnClick:=MyOnClick;
 MyBtn.Show;
end;

注：MyOnClick 为自编的事件过程。

下面详细的介绍一下具体的编程方法：

一、运行时生成可视控件：以下以TEdit 控件为例
1.在Form的Public中定义TEdit控件
　　Edit1:TEdit;
2.在需要生成的地方加入以下代码：
　　Edit1:=TEdit.Create(Self);
　　Edit1.Parent:=Form1;
　　Edit1.Left:=20;
　　Edit1.Top:=20;
　　Edit1.Text:='Edit1 Text';
3.使用完毕后，释放分配的资源（注意，这是初学者容易忘记的地方）
　　if  Assigned(Edit1) then Edit1.Free; 

二、运行时生成非可视控件：以下以TTimer控件为例
1.在Form的Public中定义TTimert控件
　　Timer1:TTimber;
2.在需要生成的地方加入以下代码：
　　Timer1:=TTimer.Create(Self); 
　　Timer1.OnTimer:=YourTimerAction;
注：YourTimerAction是自己定义的OnTimer事件。
3.使用完毕后，释放分配的资源 
　　if  Assigned(Timer1) then Timer1.Free; 

[上一页]      

请看下面的例子：

假设一个按钮有如下的事件：
procedure TForm1.Button1Click(Sender: TObject);
begin
 Edit1.Text:='Clicked!';
end;

现在想在一个菜单选项中实现同样的功能，由于是做同样的事，
所以自然不用将代码重写一遍，只需在菜单选项的事件中这样写：
procedure TForm1.Item1Click(Sender: TObject);
begin
 Button1Click(Self);
end;

当然，如果您只是想实现上述的功能，其实完全不必这样写代码。
因为 Delphi 的 TActionList 控件就是来实现这样的功能的。而
事实上，在大多数情况下您并不知道该菜单选项的固定事件，也
就是说，往往需要动态的指定该菜单选项的事件。您可以这样写：
 ...
 Item1.OnClick:=Button1Click;
 ...

在需要的时候，执行上述代码后，您的菜单选项的OnClick事件就
发生了改变。

[上一页]      

1、在 Form1 上放置 PopupMenu1(TPopupMenu) 与 Button1(TButton)，设置各种属性如下：

Form1
  PopupMenu:PopupMenu1
Button1
  Caption:菜单1234

2、为 Button1 赋以下事件响应：

procedure TForm1.Button1Click(Sender: TObject);
var
 MenuItem:array[1..4] of TMenuItem;
 I:Integer;
begin
 while PopupMenu1.Items.Count>0 do
 PopupMenu1.Items.Delete(0);
 for I:=1 to 4 do
 begin
  MenuItem[I]:=TMenuItem.Create(Self);
  MenuItem[I].Caption:=IntToStr(I);
  MenuItem[I].OnClick:=ShowIt;
  MenuItem1.Items.Add(MenuItem[I]);
 end;
end;

//注意，ShowIt 是程序中自制的 Procedure。

procedure TForm1.ShowIt(Sender:TObject);
begin
 with Sender as TMenuItem do
 ShowMessage(Caption);
end;

//当然，需要在程序中事先声明此过程。
//注意，在以上代码示例中并没有将生成的菜单选项进行释放；
//在实际程序中，必须在适当的时候，及时用 Free 方法清除。

[上一页]      

下流程图说明了消息传递的一般途径,如图所示:
其中 mainwndproc 是定义在 Twincontrol 类中的一个静态方法，不能被重载(Override)。它不直接处理消息，而是交由 wndproc 方法处理，并为 wndproc 方法提供一个异常处理模块。Mainwndproc 方法声明如下:
procedure MainWndProc(var Message:TMessage); Wndproc 是在 TControl 类中定义的一个虚拟方法,由它调用 dispatch 方法来进行消息的分配,wndproc 方法声明如下:

procedure WndProc(var Message:TMessage);virtual;
dispatch 方法是在 TObject 根类中定义的,其声明如下:
procedure Tobject.dispatch(var Message);
传递给 dispatch 的消息参数必须是一个记录类型,且这个记录中第一个入点必须是
一个 cardinal 类型的域(field),它包含了要分配的消息的消息号码.例如:
type
 Tmessage=record
  Msg:cardinal;
  wparam:word;
  lparam:longint;
  result:longint;
 end;

二.DELPHI 中的消息处理句柄
在 DELPHI 中用户可以自定义消息及消息处理句柄.消息处理句柄的定义有如下几个原则:消息处理句柄方法必须是一个过程,且只能传递一个 Tmessage 型变量参数. 方法声明后要有一个 message 命令,后接一个在 0 到 32767 之间的消息标号(整型常数).消息处理句柄方法不需要用 override 命令来显式指明重载祖先的一个消息处理句柄,另外它一般声明在构件的 protected 或 private 区.在消息处理句柄中一般先是用户自己对消息的处理,最后用 inherited 命令调用祖先类中对应此消息的处理句柄（有些情况下可能正相反）.由于可能对祖先类中对此消息的处理句柄的名字和参数类型不清楚,而调用命令 inherited 可以避免此麻烦,同样如果祖先类中没有对应此消息的处理句柄,inherited 就会自动调用 Defaulthandler 方法.（当然如果要屏蔽掉此消息,就不用 inherited 命令了）。
消息处理句柄方法声明为：
procedure Mymsgmethod(var message:Tmessage);message Msgtype;
同样用户也可以定义自己的消息,用户自定义消息应从WM_USER开始.
自定义消息及消息处理句柄举例如下:

constmy_paint=Wm_user+1;
type
 Tmypaint=record
 msgid:cardinal;
 msize:word;
 mcolor:longint;
 msgresult:longint;
end;

type
 Tmycontrol=class(TCustomControl)
 protected
 procedure change(var message:Tmypaint);message my_paint;
 .....
 end;
 ......
procedure Tmycontrol.change(var message:Tmypaint);
begin
 size:=message.msize;{设置Tmybutton尺寸属性}
 color:=message.mcolor;{设置Tmybutton颜色属性}
 {dosomethingelse}
 inherited;{交由Tcustomcontrol处理}
end;

procedure Tmyobject.wndproc(var message:Tmessage);
begin
 {...判断此消息是否该处理..}
 inherited wndproc(message);
 {未处理的消息交由父辈wndproc方法处理}
end;

由此可以看出在wndproc方法中处理消息的优势是可以过滤整个范围内的消息，
而不必为每个消息指定一个处理句柄，事实上Tcontrol构件中就是利用它来过
滤并处理所有的鼠标消息的(从WM_mousefirst到WM_mouselast，如下代码示).
同样利用它也可以阻止某些消息被发送给处理句柄。

procedure TControl.WndProc(var Message:TMessage);
begin
 if (Message.Msg>=WM_MOUSEFIRST) and (Message.Msg<=WM_MOUSELAST) then
 if Dragging
 then{处理拖曳事件}
 DragMouseMsg(TWMMouse(Message))
 else
 begin
  ...{处理其他鼠标消息}
 end;
 Dispatch(Message);
 {否则正常发送消息}
end;

下例为一简单的自定义构件例子：

Tmyedit类是从Tedit类派生出的一个新类，它的特点是在运行中不能获得焦
点，不能由键盘输入（有点类似Tlabel构件）.我们可在其wndproc方法中过
滤出WM_setfocus,WM_mousemove消息并进行处理来达到上述要求，源程序如
下：
unit myedit;

interface

uses
Windows,Messages,SysUtils,Classes,Graphics,Controls,Forms,Dialogs,
StdCtrls;

type

 Tmyedit=class(TEdit)
 private
  {Privatedeclarations}
 protected
  {Protected declarations}
  {other fields and methods}
procedure wndproc(var message:Tmessage);override;
public
 {Public declarations}
published
 {Published declarations}
end;
procedure Register;
implementation
procedure Register;
begin
 RegisterComponents('Samples',[Tmyedit]);
end;
procedure Tmyedit.wndproc(var message:tmessage);
begin
 if message.msg=wm_mousemove then
 begin
  cursor:=crarrow;
  {设置光标为crarrow,而不是缺省的crBeam光标}
  exit;
 end;
 if message.msg=wm_SetFocus then exit;
 {屏蔽掉WM_setfocus消息,不让Tmyedit控件获得输入焦点}
 inherited wndproc(message);
 {其他消息交父辈wndproc处理}
end;
end.

[上一页]      

首先定义常数
const
 EWX_FORCE=4; //关闭所有程序并以其他用户身份登录
 EWX_LOGOFF=0; //重新启动计算机并切换到MS-DOS方式
 EWX_REBOOT=2; //重新启动计算机
 EWX_SHUTDOWN=1;//关闭计算机

运行时给How赋值，让他等于EWX_SHUTDOWN或其他，调用以下语句

 ExitWindowsEx(How,0);

[上一页]      

Windows 提供给我们两个 API 函数，可以动态调整显示器的分辨率，
他们是 EnumDisplaySettings() 和 ChangeDisplaySettings()，
下面这个例子就是了

function DynamicResolution(X,Y:Word):BOOL;
var
 lpDevMode:TDeviceMode;
begin
 Result:=EnumDisplaySettings(nil,0,lpDevMode);
 if Result then
 begin
  lpDevMode.dmFields:=DM_PELSWIDTH Or DM_PELSHEIGHT;
  lpDevMode.dmPelsWidth:=X;
  lpDevMode.dmPelsHeight:=Y;
  Result:=ChangeDisplaySettings(lpDevMode,0)=DISP_CHANGE_SUCCESSFUL; 
 end
end;

procedure TForm1.Button1Click(Sender:TObject);
begin
 if DynamicResolution(640,480) then
 ShowMessage('Now is 640*480');
end;

procedure TForm1.Button2Click(Sender:TObject);
begin
 if DynamicResolution(800,600) then
 ShowMessage('Now is 800*600');
end;

[上一页]