Bonjour,
Le TWebBrowser possède-t'il une fonction de recherche de texte ?
Merci d'avance,
Michel
Bonjour,
Le TWebBrowser possède-t'il une fonction de recherche de texte ?
Merci d'avance,
Michel
J'ai trouvé ca sur le Net après pas mal de recherche car j'essayais de lui envoyer un CTRL+F sans succès :
Ca fonctionne en tout cas.
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30 procedure OpenFindDialog(WB: TWebBrowser); const CGID_WebBrowser: TGUID = '{ED016940-BD5B-11cf-BA4E-00C04FD70816}'; HTMLID_FIND = 1; var CmdTarget : IOleCommandTarget; vaIn, vaOut: OleVariant; PtrGUID: PGUID; begin New(PtrGUID); PtrGUID^ := CGID_WebBrowser; if WB.Document <> nil then try WB.Document.QueryInterface(IOleCommandTarget, CmdTarget); if CmdTarget <> nil then try CmdTarget.Exec(PtrGUID, HTMLID_FIND, 0, vaIn, vaOut); finally CmdTarget._Release; end; except end; Dispose(PtrGUID); end; procedure TForm1.Button1Click(Sender: TObject); begin OpenFindDialog(WebBrowser1); end;![]()
Bonjour,
C'est ce que j'ai trouvé aussi et effectivement ça fonctionne. C'est bizare que l'on n'ait pas songé à encapsuler ça dans le TWebBrowser. C'est pourtant une fonction primordiale.
En tous cas, merci.
Cordialement,
Michel
Partager