Body.Style.Zoom

[Delphiturbo]

Ich bin nun fast soweit

Delphi-Quellcode:

procedure TForm1.WebBrowser1DocumentComplete(ASender: TObject;
  const pDisp: IDispatch; var URL: OleVariant);
var
  CurWebrowser: IWebBrowser;
  TopWebBrowser: IWebBrowser;
  Document: OleVariant;
  WindowName: string;

  Doc: IHTMLDocument2;
  body: OleVariant;
begin
  Doc := IHTMLDocument2(WebBrowser1.Document);
  body := Doc.Body;
  CurWebrowser := pDisp as IWebBrowser;
  if CurWebrowser = TopWebBrowser then
   begin
  body.Style.Zoom := '100%';
end
  else
  begin
  body.Style.Zoom := '150%';
  end;
end;

Quelle : http://www.swissdelphicenter.ch/de/showcode.php?id=1355

[Phoenix]

Da läuft es einem kalt den Rücken runter wenn ich so einen Quatsch an Code sehe

[Delphiturbo]

Zitat von Phoenix:

Da läuft es einem kalt den Rücken runter wenn ich so einen Quatsch an Code sehe

Ich habe nun den Code bearbeitet. Oder siehst Du immer noch einen Quatsch

[Phoenix]

Zitat von Delphiturbo:

Ich habe nun den Code bearbeitet. Oder siehst Du immer noch einen Quatsch

Ja.

• Was soll die If-Abfrage gegen einen nicht initialisierten Wert?
• Wozu lässt Du die Variablendeklarationen drin wenn Du sie nicht benutzt?

[taaktaak]

Arggggg, schau dir mal TopWebbrowser an ...

[mkinzler]

Dir scheint das Grundverständnis für die Vorgänge zu fehlen.
Mit .Navigate wird das Laden angestossen. Die Fertigstellung im DocumentComplete-Event.

[Delphiturbo]

Achso
Ich habe nur die Tutorial komplett getestet. Also so natürlich

Delphi-Quellcode:

// in uses : MSHTML
procedure TForm1.WebBrowser1DocumentComplete(Sender: TObject;
  const pDisp: IDispatch; var URL: OleVariant);
var
  Document: OleVariant;
  Doc: IHTMLDocument2;
  body: OleVariant;
begin
  Doc := IHTMLDocument2(WebBrowser1.Document);
  body := Doc.Body;
  body.Style.Zoom := '150%';
end;

[Phoenix]

So langsam scheint das was zu werden.

[Delphiturbo]

Ich wollte kein neues Thema öffnen
ich möchte statt '150%' eine Variable z.B. zoom nehmen
wie soll diese Variable eingegeben werden ?
zoom = 150

Delphi-Quellcode:

...
//Body.Style.Zoom :='150%';
Body.Style.Zoom :='(Pchar(zoom) + Pchar('%'))';

[DeddyH]

Zitat von Delphiturbo:

wie soll diese Variable eingegeben werden ?

Das frag ich mich auch. Welchen Typ soll sie denn haben?