Delphi-PRAXiS

Delphi-PRAXiS (https://www.delphipraxis.net/forum.php)
-   GUI-Design mit VCL / FireMonkey / Common Controls (https://www.delphipraxis.net/18-gui-design-mit-vcl-firemonkey-common-controls/)
-   -   Delphi Button mit Timer1 drücken! (https://www.delphipraxis.net/98094-button-mit-timer1-druecken.html)

taktaky 21. Aug 2007 11:14


Button mit Timer1 drücken!
 
Hallo

wenn ich ein Button verwende, um Inhalt eines Feldes in Webbrowser zu kopieren dann funktioniert

wenn ich aber den Timer verwende dann erscheint eine Fehlermeldung beim kopieren:

procedure TForm1.Timer1Timer(Sender: TObject);
begin
if WebBrowser1.OleObject.document.forms.item(0).eleme nts.item('feld1').value = Edit1.Text then Edit2.Text:=Edit1.Text
end;

Warum beim Button funktioniert und beim Timer nicht?

Hier ist die Fehler-Meldung wenn ich Timer verwende statt Button:
http://members.lycos.co.uk/forforums...mer-error1.jpg

http://members.lycos.co.uk/forforums...mer-error2.jpg

deswegen wollte ich nun einen anderen Weg nehmen
da über das das Drücken auf Button1 funktioniert, möchte ich einen Timmer so erstellen, dass er nach ein paar Sekunden das Button 1 drückt :gruebel:

Gruß

Bernhard Geyer 21. Aug 2007 11:34

Re: Button mit Timer1 drücken!
 
Der Webbrowser hat Events die Ausgelößt werden wenn das Dokument vollständig geladen ist. Erst ab diesen zeitpunkt solltest du auf das (HTML-)Dokument zugreifen. Davor wird das document noch nil sein.

taktaky 21. Aug 2007 12:08

Re: Button mit Timer1 drücken!
 
der Timer ist deaktiviert und wird nur durch ein Button aktiviert wenn der Webbrowser vollständig
geladen wird : Timer1.Enabled:=true

trotzdem erscheint die Fehlermeldung !!!

beispiel

Delphi-Quellcode:
procedure TForm1.Button1Click(Sender: TObject);
begin
Timer1.Enabled:=true
end;

procedure TForm1.Timer1Timer(Sender: TObject);
begin
Edit1.Text:=WebBrowser1.OleObject.document.forms.item(0).elements.item('feld1').value

end;
2. Frage: kann man Timer so erstellen, dass er ein Button drückt?

Gruß

Blackheart 21. Aug 2007 12:25

Re: Button mit Timer1 drücken!
 
Versuchs mal so...
Delphi-Quellcode:
procedure TForm1.Button1Click(Sender: TObject);
begin
Timer1.Enabled:=true;
end;

procedure TForm1.Timer1Timer(Sender: TObject);
begin
Timer1.Enabled:=False;
Edit1.Text:=WebBrowser1.OleObject.document.forms.item(0).elements.item('feld1').value;

end;
Zu 2.

Delphi-Quellcode:
procedure TForm1.Button2Click(Sender: TObject);
begin
Button1.Click;
end;

taktaky 21. Aug 2007 12:49

Re: Button mit Timer1 drücken!
 
zu 1. geht
zu 2. geht :) Danke!

Also der Fehler erscheint nicht mehr !!!

Wie kann ich nun den Timer verwenden ohne Button

Ich möchte dass der Timer die Felder in Webbrowser1 überprüft ohne ich den ein Button klicken zu müssen um Timer zu aktivieren?

Ich meine wie kann ich den Timer aktivieren, wenn der Webbrowser1 vollständig geladen wird?

Gruß


Alle Zeitangaben in WEZ +1. Es ist jetzt 17:26 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