Webbrowser noget

dvs jeg har flere spørgsmål:=)

Jeg har ikke afprøvet det, men jeg tror det virker

var
  Doc: IHTMLDocument2;
  AllElts: IHTMLElementCollection;
  Text, Text2: IHTMLInputTextElement;
begin
  Doc := wbDoc.Document as IHTMLDocument2;

  if Assigned(Doc) then
  begin
    AllElts := Doc.all;
    Text := AllElts.item(\'edit1id\', EmptyParam) as IHTMLInputTextElement;
    Text := AllElts.item(\'edit2id\', EmptyParam) as IHTMLInputTextElement;

    if Assigned(Text) and Assigned(Text2) then
    begin
      Text.value := RandomText(15);
      Text2.value := Text.value;
    end;
  end;

ups

Text := AllElts.item(\'edit1id\', EmptyParam) as IHTMLInputTextElement;
Text2 := AllElts.item(\'edit2id\', EmptyParam) as IHTMLInputTextElement;

okay den virkede:=)

når der klikkes på button1 i delphi så  skal der i html siden vælges option1 i en combobox..og button2 vælges der option2 i html siden osv...

sidste ting...

det der står i edit8 skal kopiers over i edit9, men med @kalpe.dk efter sig (kalpe.dk er mit domaine)
måske noget lignende det her..

if Assigned(Text3) and Assigned(Text4) then
    begin
      Text3.value := RandomText(15);
      Text4.value := (Text.value+@kalpe.dk);
    end;

eller

if Assigned(Text3) and Assigned(Text4) then
    begin
      Text3.value := RandomText(15);
      Text4.value := (\'Text.value\'+\'@kalpe.dk\');
    end;

Text4.value := Text.value + \'@kalpe.dk\';

okay den her har jeg klaret
  if Assigned(Text) and Assigned(Text3) then
    begin
      Text.value := RandomText(15);
      Text3.value := (Text.value+\'@kalpe.dk\');
    end;

den med emailen:=)

okay det har du også:=)

vedr options, kan du identificere dem på samme måde som et edit felt

det tror jeg godt, men jeg ved bare ikke hvordan jeg får den til, at vælge mellem option1 eller 2

du giver hver option et unikt id, ligesom editfelterne

okay jeg prøver lige

<SELECT name=.pw_q><OPTION selected
              value=\"\">[vælge]<OPTION
              value=\"What is your pet\'s name?\">What is your pet\'s name?<OPTION
              value=\"What was the name of your first school?\">What was the name
              of your first school?<OPTION
              value=\"Who was your childhood hero?\">Who was your childhood
              hero?<OPTION value=\"What is your favorite past-time?\">What is your
              favorite past-time?<OPTION
              value=\"What is your all-time favorite sports team?\">What is your
              all-time favorite sports team?<OPTION
              value=\"What is your father\'s middle name?\">What is your father\'s
              middle name?<OPTION value=\"What was your high school mascot?\">What
              was your high school mascot?<OPTION
              value=\"What make was your first car or bike?\">What make was your
              first car or bike?<OPTION
              value=\"Where did you first meet your spouse?\">Where did you first
              meet your spouse?</OPTION></SELECT>



okay jeg søgte lidt på nettet og fandt denne kode stump... .pw_q er vidst navnet på comboboxen
kan man ikke bruge value som ID? du må gerne skrive et kode eksempel:=)

følgende kode vælger det 6. element i ovenstående select

procedure TForm1.Button1Click(Sender: TObject);
var
  Doc: IHTMLDocument2;
  AllElts: IHTMLElementCollection;
  Select: IHTMLSelectElement;
begin
  Doc := WebBrowser1.Document as IHTMLDocument2;

  if Assigned(Doc) then
  begin
    AllElts := Doc.all;
    Select := AllElts.item(\'.pw_q\', EmptyParam) as IHTMLSelectElement;

    if Assigned(Select) then
      Select.selectedIndex := 5;
  end;
end;

http://www.eksperten.dk/spm/80377

Noget du skal have:)