webbrowser checkbox tıklama

[mrmarman]

Adım adım ilerlersek vakit uygun olursa yardımcı olmaya gayret ederim. Balık tutma kısmında destek olalım. Umuyorum ki WEB platformuna aşinasınızdır. Yoksa can sıkıcı bir hal alacaktır. Buna alışmak lazım.

procedure TForm1.DoCheck( aRowIdx, aCheckIdx:Integer; aState: boolean; aWebBrowser: TWebBrowser; aDoClick:boolean = false  );
var
  LDoc              : IHTMLDocument2;
  LAll              : IHTMLElementCollection;
  LTableBody        : IHTMLElement;
  ...
  ...
begin
  if not Supports(aWebBrowser.OleObject.Document, IHTMLDocument2, LDoc)
    then Exit;

...
...

burada WebBrowser içinden Document kısmını DOM nesnesi olarak aldık. Alamasaydık procedure EXIT ile terk edilecektir.

Buradan adımlayarak siz kod yazmaya başlayın destek olalım. Burada yapılacak iş LAll collection'unda bu DOM nesneside dizi olarak sorgulanarak "TBODY" tablo gövdesini   LTableBody  nesnesine almak. Böylece tablo içerisinde döngü kurma imkanı elde edeceksiniz.

Döngü bile lazım değil, işte matematiğini vermeye çalıştığım nokta tespiti bir odaklanma ile tek seferde ilgili checkbox erişip 

(LElement as IHTMLInputElement).checked := true;

 
diyerek Check iişareti koymak veya false ile iişareti kaldırmak imkanı olacak.