Ver Mensaje Individual
  #3  
Antiguo 11-10-2013
avechuche avechuche is offline
Miembro
NULL
 
Registrado: may 2013
Posts: 23
Reputación: 0
avechuche Va por buen camino
Bueno encontre pero lo resumi como me parecio a mi y anda perfecto.

Código:
procedure TForm1.WebBrowserDocumentComplete(ASender: TObject;
  const pDisp: IDispatch; const URL: OleVariant);
var    
    sHTML: IHTMLDocument3;
    ObjElement: IHTMLElement;
    InputElement: IHTMLInputElement;
begin
    
    sHTML := (WebBrowser.Document as IHTMLDocument3);

    ObjElement := sHTML.getElementById('elementoQueSeBusca');
    if Assigned(ObjElement) then
        begin
            ObjElement.QueryInterface(IHTMLInputElement, InputElement);
            if Assigned(InputElement) then InputElement.value := 'Algo de texto';
        end;
end;
Pero lo hice "sin entender", no se lo que hace esto "ObjElement.QueryInterface(IHTMLInputElement, InputElement);".

Lo que tmb necesito es poder hacer clic en un boton.

Lo que he notado es lo siguiente.
Tengo un PageControl con 3 pestañas, cuando compilo, muestro predeterminadamente la pestaña 2 y en la 1 se carga una pagina web que después de terminar de cargarla, tendria que rellenar el input que muestro arriba, el problema es que la página carga lo mas bien, pero hasta que yo no muestro la pestaña 1, no me rellena el input, es por algo en especial o es asi?
Responder Con Cita