Delphi-PRAXiS

Delphi-PRAXiS (https://www.delphipraxis.net/forum.php)
-   Object-Pascal / Delphi-Language (https://www.delphipraxis.net/32-object-pascal-delphi-language/)
-   -   Delphi Edgebrowser will immer noch nicht (https://www.delphipraxis.net/208367-edgebrowser-will-immer-noch-nicht.html)

Delbor 20. Jul 2021 14:11

Delphi-Version: 10.4 Sydney

Edgebrowser will immer noch nicht
 
Hi zusammen

Sozusagen der erste Teil dieses Threads findet sich hier. Ich hab inzwischen die Navigate-Anweisung aus dem FormCreate der Demo auskommentiert und stattdessen ins Click-Ereignis des GO-Buttons verlegt. Das funktioniert einwandfrei, wenn auch - vermutlich der Zwischenvariable X wegen - etwas langsam.

Ich wollte den Edge ja eigentlich in einem Frame anzeigen, was schiefging, egal wie ich es versuchte. So hab ich den Edge auf eine eigene Form verlegt und ihn da versucht, über Formereignisse anzuzeigen - Fehlanzeige. Ich hab auch versucht, den Edge (mit Pdf) per Buttonclick anzuzeigen. In der Demo funktionierte das, in meinem Programm aber nicht.

Hier einige Codeschnipsel aus meinem Programm:
Delphi-Quellcode:
procedure TOpenFileFrame.TVFilesExplorerMouseUp(Sender: TObject;
  Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
  var AnItem: TTreeNode; ATextSelection :String;
begin
  AnItem := TVFilesExplorer.GetNodeAt(X, Y);
  if not AnItem.HasChildren then
  begin
    FFileName := AnItem.Text;
    ATextSelection := PNameRec(AnItem.Data)^.RealName;
//    if Assigned(OnTextSelectionEvent) then
//      OnTextSelectionEvent(Sender,ATextSelection);
    if ExtractFileExt(ATextSelection) = AnsiLowerCase('.pdf') then
      Showmessage('Dies isteine PDF-Datei!');
    EdgeBrowserform.Url := ATextSelection;
    EdgeBrowserForm.Show;
//    EdgeBrowserform.EdgeBrowser1.Navigate(ATextSelection);  (1) einer derersten Versuche

//    HomeOfficerFeMain.EdgeBrowser1.SetFocus;                   (2)Ein weiterer Versuch in OnActivate
//    HomeOfficerFeMain.EdgeBrowser1.Navigate(ATextSelection);

  end;
end;
Wieso tut ein Button-Click in der Demo (direkt auf der Form) und bei mir, ebenfalls direkt auf der Form, tut er nicht?

Gruss
Delbor

Der schöne Günther 20. Jul 2021 15:20

AW: Edgebrowser will immer noch nicht
 
Kannst du das nicht einmal zusammenkürzen sodass ein ausführbares Beispiel entsteht?

Wenn ich das richtig im Kopf hatte muss man sich die Ziel-URL halt merken und muss das Navigieren nachholen wenn das Ding zum ersten mal sichtbar ist und fertig initialisiert hat. Bei einem Formular wäre das OnActivate-Event eine gute Wahl, bei einem PageControl müsste man es noch verzögern bis die entsprechende Seite aufgerufen wird.

Delbor 20. Jul 2021 17:30

AW: Edgebrowser will immer noch nicht
 
Liste der Anhänge anzeigen (Anzahl: 2)
Hi Günther

Ich denke, ich hab des Rätsels Lösung gefunden. Aber erstmal 2 jpegs:
Anhang 54197
Anhang 54196
Ich wollte noch 2 Zips anhängen, aber das ging zum ersten schief. Die erste der Zip-Dateien war mit 14MB wesentlich grösser als die erlaubten 5MB, so dass ich mir das ganze nochmal vorknöpfen muss.
Die beiden Jpegs zeigen, was in meinem Programm gefehlt hatte: zum einen die DLL, zum andern aber die EdgeBrowserTest.exe.WebView2
Die EdgeBrowserTest ist die Form als jetzt eigenständige Anwendung, die ich meiner Anwendung spendiert hatte, nachdem ich die Anzeige des Browserframes eingestellt hatte.

Gruss
Delbor


Alle Zeitangaben in WEZ +1. Es ist jetzt 20:25 Uhr.

Powered by vBulletin® Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024 by Thomas Breitkreuz