1.首先放置TApplicationEvents控件。2.procedure TF_Main.ApplicationEvents1Message(var Msg: tagMSG; var Handled: Boolean);begin  case  Msg.Message of  WM_USER + 128:  Begin     case Msg.wParam of       1: F_Main. Button129Click(F_Main.Button129);       2: XXXXX;    

<br />unit Unit1; <br />interface <br />uses <br />   Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, <br />   Dialogs, ExtCtrls, StdCtrls; <br />type <br />   TForm1 = class(TForm) <br />     Label1: TLabel; <br />     Timer1: T

<br />unit   Unit1;   <br />    <br />  interface   <br />    <br />  uses   <br />      Windows,   Messages,   SysUtils,   Classes,   Graphics,   Controls,   Forms,   Dialogs,   <br />      StdCtrls;   <br /><br />  Const   <br />    WM_MINE=WM_USER+100;