Timer funktioniert nicht richtig nach Form Hide ?

[taktaky]

den Code in Timer oder in einem Button ist nicht das Problem

Obwohl das Feld, wo ich den text einfügen will, den Cursor hat und drin blinkt
aber das Button Senden wird schattiert !
Wer hat in diesem Fall den Focus?!
Das Feld, wo der Cursor blinkt?
Oder das Button, das schattiert wird ?

hallo @Phoenix, das ist genau was ich hier mach oder?

Delphi-Quellcode:

procedure TForm2.Button1Click(Sender: TObject);
begin
edit1.SetFocus;
sleep(100);
edit1.selectall;
sleep(100);
edit1.CopyToClipboard;
sleep(100);
Webbrowser1.OleObject.Document.All.Item('name').Focus;
Webbrowser1.ExecWB(OLECMDID_PASTE, 0);

end;

[Luckie]

Der Bneutzer wird sich freuen, wenn du ihm den Inhalt der Zwischenablage zerschiesst.

[taktaky]

Zitat von Luckie:

Der Bneutzer wird sich freuen, wenn du ihm den Inhalt der Zwischenablage zerschiesst.

Aber nicht in Hintergrund

Der Code oben in Button funktioniert nur einmal. ich muss das Programm beenden und wieder Starten, sonst läuft nicht
Das Problem liegt an setfocus vermute ich, da das Button "Senden" wenn ich die Form2 als erste mal aufrufe, wo alles in Ordnung läuft, sieht nicht schattiert aus.
Aber wenn ich die Form2, kurz ausblende mit Hide und wieder die Form mit Show einblende, dann läuft der Code nicht. Und wie gesagt der Button "Senden" bleibt immer schattiert, als wäre es, dass es den Focus hat !

[Daniel]

Dein Ansatz ist sehr wackelig, da die Sicherheits-Einstellungen je nach PC den Zugriff auf die Zwischenablage verhindern können.

Kurzes Googlen hat folgenden Link gebracht:
http://forums.microsoft.com/MSDN/Sho...23434&SiteID=1

Dort ist die Rede davon, über das Browser-Interface ein sog. "Region-Object" zu erzeugen, um damit gezielt Textmanipulationen vorzunehmen. Zugegeben, ich habe damit noch nichts getan, aber nun hast Du ein viel versprechendes neues Stichwort für Deine weiteren Bemühungen.

[taktaky]

>You could copy your variable to the clipboard and then use the webbrowser Execwb method to paste it into the document, but this may fail if the security settings prevent clipboard access.

Diese Idee funktioniert dann nicht immer?!
Also bei mir wenn ich die html code in Webbrowser so lade :
Webbrowser1.Navigate('c:\formular.htm');
Dann funktioniert immer

Ich lade aber mein html code in Webbrowser von einem memo :
LoadHTMLToWebbrowser(Webbrowser1,memo1.Lines);
darum klappt mit dem Code nicht nach Hide der Form

> Die Idee in dem Link, konnte ich nicht gut verstehen :
> Try adding a reference in your bho to mshtml.dll and create a region object (this will be the insertion point where > the carrot is positioned or the current text selection) and then set the innerText property of the region with your > variable's contents. You should be able to test if the region is within a tag of a certain type or class (Textarea).

hier ist my delphi Projekt :