关于Perform的问题

Question

tmp:=Edit1.Perform(WM_GetTextLength,0,0)
push $00
xor ecx,ecx
mov edx,$0000000e
mov eax,[ebx+$000002f8]
Call TControl.Perform
mov esi,eaxPerform的参数是如何传递给他的？
似乎Delphi的参数传递方式有些奇怪
望高手指点

Answer 1

不懂。我看过一个拖动的程序，就是用PERFORM

Answer 2

因为寄存器有空，所以前两个参数用寄存器来传递
（你把后两个参数值改成非0值再观察汇编代码就知道了)
最后一个用堆栈传递。
eax为Self。