Dialogs

[Home][Support][TEmbeddedWB][Dialogs]

Dialogs

Here are the available Dialogs in EmbeddedWB:

Procedure Find:

Procedure Options:

Procedure Open:

This procedure does not work in IE5.

Procedure PageSetup:

Procedure PrintSetup:

Procedure SaveAs:

Procedure Properties:

Tips & Tricks

1. Change Caption and Icon in Webbrowser's default Dialog-boxes

You can change the content of the caption-bar in TWebbrowsers built-in dialog-boxes. The following sample shows how to replace "Microsoft Internet Explorer" or "Internet Explorer" with the title and icon defined for your project:

Add to private section in your main form:

procedure WMActivate(var Msg: TWMActivate); message WM_ACTIVATE;

Procedure TForm1.WMActivate(var Msg: TWMActivate);
var
S: String;
wnd: HWND;
I: Integer;
begin
If Msg.Active=0 then
begin
wnd := Msg.ActiveWindow;
SendMessage(wnd, WM_SETICON, ICON_SMALL, Application.Icon.Handle);
I := GetWindowTextLength(wnd);
SetLength(S, I + 1);
GetWindowText(Wnd, PChar(S), I + 1);
S := StringReplace(S, 'Microsoft ', '', []);
S := StringReplace(S, 'Internet Explorer', Application.Title, []);
SetWindowText(Wnd, Pchar(S));
end;
end;

2. Disable built-in Dialog-boxes.

It is not always a good idea to use Silent-property to prevent 'Internet Explorer Script Error'-dialogs and other standard messageboxes from showing up. Instead you can use the following solution. To disable all 'Internet Explorer' messageboxes:

Add to private section in your main form:

procedure WMActivate(var Msg: TWMActivate); message WM_ACTIVATE;

procedure TForm1.WMActivate(var Msg: TWMActivate);
var
S: String;
wnd: HWND;
I: Integer;
begin
If Msg.Active=0 then
begin
wnd := Msg.ActiveWindow;
I := GetWindowTextLength(wnd);
SetLength(S, I + 1);
GetWindowText(Wnd, PChar(S), I + 1);
If Pos('Internet Explorer', S)>0 then Sendmessage(wnd,WM_CLOSE,0,0);
end;
end;

3. Keep Contextmenu but disable "View Source"

You do not need to remove the right-click context-menu if you only want to disable "View Source".

Add the following key to the registry:

HKEY_LOCAL_MACHINE\Software\Microsoft\Internet Explorer\View Source Editor\Editor Name

Set Value of 'Editor Name' to an exe-file, that does nothing but shows a messagebox: "View Source is not available".

[Home][News][Products][Downloads][Support][Forum][Credits]

Created by
Per Lindsø Larsen

bsalsa@bsalsa.no-ip.info