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