Kod: Tümünü seç
procedure TForm1.Button1Click(Sender: TObject);
var
document: IHTMLDocument2;
selectionObj: IHTMLSelectionObject;
selectionRange: IHtmlTxtRange;
selectedText: String;
selectedHtml: String;
selectedIndex:Integer;
selectedElement:IHTMLElement;
selectedTagName:string;
sayi:Integer;
begin
document := WebBrowser1.Document as IHTMLDocument2;
selectionObj := document.selection;
selectionRange := selectionObj.CreateRange as IHtmlTxtRange;
selectedText := selectionRange.text;
selectedHtml:= selectionRange.htmlText;
selectedElement :=selectionRange.parentElement;
selectedElement.setAttribute('prog','biz',1);
selectedTagName:=selectedElement.tagName;
ShowMessage(selectedTagName);
ShowMessage(selectedText);
WebBrowser1.OleObject.Document.all.tags(selectedTagName).item(0);
end;ben Twebbrowser dan seçilen elemanın kaçıncı eleman olduğunu öğrenmek istiyorum. Ama seçilen elemanın tag namesini
Kod: Tümünü seç
document := WebBrowser1.Document as IHTMLDocument2;
selectionObj := document.selection;
selectionRange := selectionObj.CreateRange as IHtmlTxtRange;
selectedText := selectionRange.text;
selectedHtml:= selectionRange.htmlText;
selectedElement :=selectionRange.parentElement;
selectedTagName:=selectedElement.tagName;
ShowMessage(selectedTagName);
ShowMessage(selectedText);
tagname TD olarak geri dönüyor ama
WebBrowser1.OleObject.Document.all.tags(selectedTagName).item(0).innerHtml;
böyle olunca hata veriyor
selectedTagName yerine TD yazınca hiçbir problem yok
WebBrowser1.OleObject.Document.all.tags('TD').item(0).innerHtml; //problem yok
bu nasıl bir problem kafam almıyor. sonuçta ikiside string.
Yardımlarınızı bekliyorum
