Enable WebBrowser embedded in delphi to have no borders and no scroll bars

Code

{WB_Set3DBorderStyle}

Procedure WB_Set3DBorderStyle (Sender: TWebBrowser; bValue: Boolean );
Var
Document: IHTMLDocument2;
Element: IHTMLElement;
StrBorderStyle: string;
Begin
// Remove the border
Try
Document: = TWebBrowser (Sender). Document as IHTMLDocument2;
If Assigned (Document) then
Begin
Element: = Document. Body;
If Element <> nil then
Begin
Case bvalue
False: strborderstyle: = 'none ';
True: strborderstyle: = '';
End;
Element. style. borderstyle: = strborderstyle;
End;
End; // remove the scroll bar
Sender. oleobject. Document. Body. Scroll: = 'no ';
Except
//..
End;
End;

 

This function is called only when twebbrowser loads webpage files.

Replace the beginning of the HTML file
<! Doctype html public "-// W3C // dtd html 4.01 Transitional // EN">