上面代码省略了……
h8 = FindWindowEx(h7, 0, "TGridPanel", vbNullString)
h9 = FindWindowEx(h8, 0, "TEdit", vbNullString)
h10 = FindWindowEx(h8, h9, "TEdit", vbNullString)
SendMessage h9, WM_SETTEXT, 0, ByVal "test1"
SendMessage h10, WM_SETTEXT, 0, ByVal "test2"