首页 > 代码库 > MainWndProc运行观察

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运行观察