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?