The webbrowser of the parent in Delphi becomes a blank problem resolution (covering Createwnd and Destroywnd)

This time in a Delphi interface to open the function of the Web page, and this page is in the window can be fully displayed, can be reduced to another window on the panel display

However, when you change the window of the page, the WebBrowser control becomes blank.

Google on the internet for half a day, finally found on the CSDN solution:

Original address: http://bbs.csdn.NET/topics/200046109

[Delphi]View PlainCopy

2. Uses
4. SHDocVw, Windows, Controls, Forms, Classes;
8. Type
10. Tmywebbrowser = Class (Twebbrowser)
12. Private
14. protected
16. Actualhandle:hwnd;
18. procedure Createwnd; override;
20. procedure Destroywnd; override;
22. Public
24. end;
30. {Tmywebbrowser}
32. Procedure Tmywebbrowser.  Createwnd;
34. Begin
36. if (Actualhandle <> 0) and IsWindow (actualhandle) Then
38. begin
40. WindowHandle: = Actualhandle;
42. Actualhandle: = 0;
44. Windows. SetParent (WindowHandle, Twincontrol (self). Parent.  Handle);
46. //force A resize on the client window
48. MoveWindow (WindowHandle, 0, 0, Twincontrol (self). Parent. Width,
50. Twincontrol (self). Parent.   Height, true);
52. End
54. Else
56. inherited;
58. End
62. Procedure Tmywebbrowser.  Destroywnd;
64. Begin
66. if (csdestroying in componentstate) Then
68. inherited
70. Else
72. begin
74. //parent to the application window which was 0x0 in size
76. Windows. SetParent (WindowHandle, Forms. Application.  Handle);
78. //save the WindowHandle
80. Actualhandle: = WindowHandle;
82. //set it to 0 so Createwnd'll be called again ...
84. WindowHandle: = 0;
86. end;
88. End

http://blog.csdn.net/youthon/article/details/8450610

The webbrowser of the parent in Delphi becomes a blank problem resolution (covering Createwnd and Destroywnd)