Как сделать калькулятор в Delphi?
Delphi - объектно-ориентированный язык программирования, разработанный компанией Borland в 1995 году. Он основан на языке программирования Pascal, но имеет более расширенные возможности и добавлены новые функции.
Как Delphi реализует многоплатформенную разработку?
Delphi является интегрированной средой разработки (IDE), которая позволяет разрабатывать программное обеспечение для различных платформ, включая Windows, macOS, Android и iOS. Delphi достигает многоплатформенности с помощью...
Использовать событие OnDocumentComplete у TWebBrowser при наличии фреймов
{
When loading a page based on different frames into webbrowser
control, "ONDocumentComplete" fires each time one of the frames
gets completed. How can I find out, when this last Point
is reached and get this final url?
}
{
Wenn eine Seite mit Frames in den Webbrowser geladen wird, wird
"OnDocumentComplete" jedesmal ausgelцst, wenn eine Frame fertig
geladen ist.
Ich benцtige bei aber ein Ereignis, nachdem alle
Frames geladen wurden. Aus der Hilfe geht hervor, dass dies mit dem Ereignis
OnDocumentComplete realisiert werden kann.
}
procedure TForm1.WebBrowser1DocumentComplete(Sender: TObject;
const
pDisp: IDispatch; var
URL: OleVariant);
var
CurWebrowser: IWebBrowser;
TopWebBrowser: IWebBrowser;
Document: OleVariant;
WindowName: string
;
begin
CurWebrowser := pDisp as
IWebBrowser;
TopWebBrowser := (Sender as
TWebBrowser).DefaultInterface;
if
CurWebrowser = TopWebBrowser then
ShowMessage('Complete document was loaded')
else
begin
Document := CurWebrowser.Document;
WindowName := Document.ParentWindow.Name;
ShowMessage(Format('Frame "%s" was loaded', [WindowName]));
end
;
end
;