TWebbrowser: Auswahlmenü <option> auswählen und "anklicken&

[DelphiPeter]

Hallo Delphi Freunde!

Hat jemand eine Idee, wie ich einen Eintrag eines Auswahlmenüs <option> auswählen kann, quasi einen Klick und die Auswahl "simulieren" ?
Habe dazu einfach keine Idee :-(

Gruß,
Peter

[Oldy]

Also vorerst..
ich hab keine ahnung ob das funkitoniert :)

in der wbcrtl.pas findet man folgendes:

Delphi-Quellcode:

function WbSetCheckBoxField(WebBrowser: TWebBrowser; FieldName: string; Checked: boolean): Boolean; 
var
  Field: TPoint;
begin
  // Position des Felds holen
  if not WbFindField(WebBrowser, FieldName, Field) then
  begin
    Result := false;  // Feld existiert nicht
    exit;             // Ende
  end;
  try
    // CheckBox setzen
    WebBrowser.OleObject.Document.forms.Item(Field.x).Item(Field.y).Checked := Checked;
    Result := True;
  except
    Result := false;
    Exit;
  end;
end;

Damit setzt man den Check-Status der Checkbox.

Eventuell geht das ja auch so:

Delphi-Quellcode:

function WbSetBoxIndex(WebBrowser: TWebBrowser; FieldName: string; index: integer;): Boolean; 
var
  Field: TPoint;
begin
  // Position des Felds holen
  if not WbFindField(WebBrowser, FieldName, Field) then
  begin
    Result := false;  // Feld existiert nicht
    exit;             // Ende
  end;
  try
    // Setzten
    WebBrowser.OleObject.Document.forms.Item(Field.x).Item(Field.y).itemindex:= index;
    Result := True;
  except
    Result := false;
    Exit;
  end;
end;

überhaupt nicht getestet , nur reine vermutung..