Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by toms,
18. Mär 2005
Also in meinem Demo wird all das gezeigt...
aber so sollte es auch funktionieren:
var
vaIn, vaOut: OleVariant;
begin
(PageControl1.ActivePage.Controls as TWebBrowser).ControlInterface.ExecWB(OLECMDID_PRINT, OLECMDEXECOPT_DONTPROMPTUSER,
vaIn, vaOut);
Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by toms,
18. Mär 2005
Übers Menü File | Print...
oder so:
var
vaIn, vaOut: OleVariant;
begin
WebBrowser1.ControlInterface.ExecWB(OLECMDID_PRINT, OLECMDEXECOPT_DONTPROMPTUSER,
vaIn, vaOut);
Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by toms,
18. Mär 2005
Anfangs hat es nur einen TWebbrowser. Wenn OnNewWindow2 ausgelöst wird,
erzeuge ich auch dynamisch ein neues TTabSheet mit einem Webbrowser drauf:
procedure TfrmMyBrowser.WebBrowser1NewWindow2(Sender: TObject;
var ppDisp: IDispatch; var Cancel: WordBool);
var
NewWindow: TfrmMyBrowser;
ts: TTabSheet;
begin
Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by toms,
18. Mär 2005
Hi,
Schau dir mal die neuste Version vom Mini Webbrowser Demo an.