23-02-2018, Saat: 16:20
(Son Düzenleme: 23-02-2018, Saat: 18:39, Düzenleyen: adelphiforumz.)
Selamlar
DocumentComplete içerisinde bir table'a yeni bir kolon eklemek ve kolon içeriğinede bir button eklemek istiyorum
Ekleme sırasında butona bir deger atanacak ve butona tıklandığında ise bu değere göre yeni delphi tarafında bir form açılıp bazı bilgiler gösterilecek.
bazı örneklere bakarak aşağıdaki gibi butona basılınca script ile işlem yapabildim.
Fakat script değilde Browserın "WBBeforeNavigate" özelliğinden yararlanarak basılan butonu bulmaya kalkınca event hiç bir şekilde tetiklenmiyor
Acaba bu işi nasıl çözebilirim.
Teşekkürler
DocumentComplete içerisinde bir table'a yeni bir kolon eklemek ve kolon içeriğinede bir button eklemek istiyorum
Ekleme sırasında butona bir deger atanacak ve butona tıklandığında ise bu değere göre yeni delphi tarafında bir form açılıp bazı bilgiler gösterilecek.
bazı örneklere bakarak aşağıdaki gibi butona basılınca script ile işlem yapabildim.
Fakat script değilde Browserın "WBBeforeNavigate" özelliğinden yararlanarak basılan butonu bulmaya kalkınca event hiç bir şekilde tetiklenmiyor
Acaba bu işi nasıl çözebilirim.
Teşekkürler
procedure TfrmWeb.WBDocumentComplete(ASender: TObject; const pDisp: IDispatch; var URL: OleVariant); var ovTable, ovTableDty: OleVariant; I, R, C : Integer; begin Table := nil; Table := fn_HtmlFindTable( WebBrowser, 'TableX'); ovTable := Table; if Table <> nil then begin for R := 1 to (ovTable.Rows.Length - 1) do begin ovTable.Rows.Item ( R ).InsertCell(10); ovTable.Rows.Item ( R ).Cells.Item(10).InnerHTML := '<TD><SPAN id=Button_' + IntToStr ( R ) + '</SPAN>'+ '<input type="button" onmouseover="myFunction()" ' + ' onclick="alert(' + #39 + 'clicked' + #39 + ')">'+ '<script>'+ 'function myFunction() {document.getElementById("Button_' + XXXXXXXX + '").click();}'+ '</script>'+ '</TD>'; end; end; end;
Bu dünyada kendine sakladığın bilgi ahirette işine yaramaz.