基础常识问题,关于消息。
private procedure SyncCall(var Msg: TMessage); message WM_USER; public { Public declarations } end;var Form1: TForm1;implementation{$R *.dfm}procedure TForm1.Button1Click(Sender: TObject);begin SyncCall();//直接调用过程 //通过消息触发过程 SendMessage(Handle, WM_USER, Longint(stMessage), Longint(Data));end;procedure SyncCall();beginend;procedure TForm1.SyncCall(var Msg: TMessage);beginend;