MainWndProc运行观察

MainWndProc运行观察

先把MainWndProc移到Public区域，然后改写成如下：
procedure TWinControl.MainWndProc(var Message: TMessage);
begin
WindowProc(Message);
end;

写个小程序观察汇编：
procedure TForm1.Button5Click(Sender: TObject);
var
m: Tmessage;
begin
m.WParam := 100;
m.Msg := WM_SIZE;
m.LParam := 20;
MainWndProc(m);
end;

MainWndProc运行观察

原文：http://www.cnblogs.com/findumars/p/4113505.html