Einzelnen Beitrag anzeigen

shmia

Registriert seit: 2. Mär 2004
5.508 Beiträge
 
Delphi 5 Professional
 
#2

Re: TWebBrowser und Select-Feld: Bezeichnugenen auslesen???

  Alt 20. Jun 2008, 15:44
Mit diesem Codeschnipsel sollten alle deine 3 Fragen (leider in 3 verschiedenen Threads, obwohl sie thematisch eng zusammenhängen) beantwortet werden:
Delphi-Quellcode:
var
  Element : OleVariant;
  selcount, idx : integer;
begin
  // wir holen uns das Objekt
  Element := WebBrowser1.OleObject.Document.Forms.Item(0).Elements.Item(WideString('SelectBox'));

  selcount := Element.options.Length; // = die Anzahl der Optionen

  // zufällig eine dieser Optionen auswählen
  idx := system.Random(selcount); // Zufallszahl im Bereich 0..selcount-1
 
  // und setzen diesen Wert
  Element.value := Element.options.Item(idx).value;
Andreas
  Mit Zitat antworten Zitat