如題. 查閱論壇後.找不到答案 大家說的如下 Edits :=Docs.GetElementByID(FILE_NAME); Edits.Value :=FILE_DATA; 但只適用於一般的文字輸入框. 當遇到下拉式選單,或list 選單時 ,請問如何使用?

取得IHTMLDocument2界面,以IHTMLDocument2.forms.item取得下拉式選單物件的界面,轉成IHTMLSelectElement介面,呼叫IHTMLSelectElement.Value即可

可以舉了例子嗎?

如下:

procedure TForm1.BitBtn2Click(Sender: TObject);
var
  aDoc:IHTMLDocument2;
  aForm:IHTMLFormElement;
  aSel:IHTMLSelectElement;
begin
  aDoc:=(WebBrowser1.Document as IHTMLDocument2);
  aForm:=(aDoc.forms.item(2,'') as IHTMLFormElement);
  aSel:=(aForm.item('whichpage',0) as IHTMLSelectElement);
  aSel.selectedIndex:=2;
end;

我是以本站的"查看所有加入會員的名單"(http://delphi.ktop.com.tw/members.asp)的網頁做範例,這段程式會使得網頁中的"跳至頁次"出現"3",你可以試試看 另外,修正之前所講的,應該是先IHTMLDocument2以取得IHTMLFormElement介面,再以該介面取得IHTMLSelectElement界面,造成困擾,抱歉

謝謝版主給的提示 依照版主的方式.我依然出現錯誤. 但參考版主的指令...當頭棒喝 發覺只要如下即可 Edits :=Docs.GetElementByID(FILE_NAME); Edits.[/selectedIndex] := X; 謝謝版主.並提供大家經驗

上面打錯了 Sorry 應該是 Edits :=Docs.GetElementByID(FILE_NAME); Edits.selectedIndex := X; 不好意思.

提問者您好:


以上回應是否已得到滿意的答覆？


若已得到滿意的答覆，請在一週內結案，否則請在一週內回覆還有什麼未盡事宜，不然，
將由版主(尚無版主之區域將由副站長或站長)採自由心證,選擇較合適之解答予以結案處理，
被選上之答題者同樣會有加分獎勵，同時發問者將受到扣 1 分的處分。不便之處，請見諒。


有問有答有結案，才能有良性的互動，良好的討論環境需要大家共同維護，感謝您的配合。

------
我是機器人,我不接受簡訊.