TWebbrowser / TMultiview

[Rollo62]

Vielleicht ist das auch eine Option ?

[Sir Rufo]

Wenn man keine statischen Bereiche links und rechts benötogt, dann schiebt man den Browser einfach immer über die Formgrenzen hinaus.

Screenshot.PNG

Siehe Anhang (Source & EXE)

[Darlo]

Zitat von Sir Rufo:

Wenn man keine statischen Bereiche links und rechts benötogt, dann schiebt man den Browser einfach immer über die Formgrenzen hinaus.

Anhang 44755

Siehe Anhang (Source & EXE)

Was dann leider zumindest unter iOS nicht nativ wirkt.

[greenmile]

Zitat von Sir Rufo:

Wenn man keine statischen Bereiche links und rechts benötogt, dann schiebt man den Browser einfach immer über die Formgrenzen hinaus.

Sehr geile Idee Danke!

[Darlo]

Hi,

hier das Beispiel zu meinem Ansatz.

Delphi-Quellcode:

procedure TForm1.MultiView1StartHiding(Sender: TObject);
begin
  img.free;
  webbrowser1.Visible := true;
end;

procedure TForm1.MultiView1StartShowing(Sender: TObject);
begin
  img := TImage.Create(self);
  img.Parent := laContent;
  img.Align := TAlignLayout.AlClient;
  img.Bitmap :=  webbrowser1.MakeScreenshot;
  webbrowser1.Visible := false;
end;

[Sir Rufo]

Du solltest den Code noch ändern zu

Delphi-Quellcode:

procedure TForm1.MultiView1StartHiding(Sender: TObject);
begin
  img.DisposeOf;
  img := nil;
  webbrowser1.Visible := true;
end;

sonst hast du unter ARC (iOS) einen Memleak

Besser wäre es wohl insgesamt das Image-Control nicht ständig zu erzeugen, sondern dort auch mit der Sichtbarkeit zu arbeiten.

[Darlo]

Hi,

ja, da stimme ich Dir voll zu, habe das nur schnell getippt um zu zeigen dass der Ansatz dank FMX-Boardmitteln leicht umzusetzen ist.

[greenmile]

Beides gute Ideen und ein guter Workaround. Vielen Dank!!