我认为这样比较好: <br>Var FResult: LongInt;<br>begin<br>FResult:= GetParent(YourHandle);<br>if FResult= 0 then ShowMessage('窗体句柄')<br>else if FResult= ERROR_INVALID_HANDLE then ShowMessage('无效句柄')<br>else ShowMessage('其他句柄');<br>end;<br>还有什么问题请贴出??????<br>呵呵~~~~~~~~~~~~~~~~`