webbrowser da belli bir kordinatı göstermek

Yapmak istediğiniz işle ilgili doğru bileşeni bulmak için burayı kullanabilirsiniz. Sadece bulmak için, diğer sorular Programlama forumuna lütfen.
Forum kuralları
Bu forum sadece yapacağınız işle alakalı doğru bileşeni bulmak içindir. Şöyle bir şey yapmam lazım, hangi bileşeni kullanıyım diyorsanız, doğru yerdesiniz.
Cevapla
forza_0707
Üye
Mesajlar: 8
Kayıt: 12 Eyl 2010 12:50

webbrowser da belli bir kordinatı göstermek

Mesaj gönderen forza_0707 »

arkadaşlar webbrowser da kaydırma çubuklarınla oynayarak belli bir kordinatı gösterip sonra çubukları kaybettircem bilen birisi varmı :)
destiny24
Üye
Mesajlar: 131
Kayıt: 22 Tem 2010 09:42

Re: webbrowser da belli bir kordinatı göstermek

Mesaj gönderen destiny24 »

zamanında ben de çok aradım böyle bir şey ama sanırım yok
Kullanıcı avatarı
Battosai
Üye
Mesajlar: 1316
Kayıt: 01 Eki 2007 12:02
Konum: Ankara

Re: webbrowser da belli bir kordinatı göstermek

Mesaj gönderen Battosai »

Bu sitede cevabı bulunmakta....ben bunu nasıl çalıştıracağım dersen yada nasıl kullanacağım wb da javascript çalıştırma mevzusunu araştır...
http://www.mediacollege.com/internet/ja ... croll.html
orhancc
Üye
Mesajlar: 585
Kayıt: 24 Ağu 2010 02:14
Konum: İstanbul / Kadıköy
İletişim:

Re: webbrowser da belli bir kordinatı göstermek

Mesaj gönderen orhancc »

Kod: Tümünü seç

procedure ScrollBrowserWindowBy(const window: IHTMLWindow2; iX:Integer; iY:Integer);
var
  index: Integer;
  oleIndex: OleVariant;
  frameDispatch: IDispatch;
  childWindow: IHTMLWindow2;
  document: IHTMLDocument2;
begin
  if Assigned(window) then
  try
    window.scrollBy(iX,iY);
    // If there are any frames then try scrolling them.
    document := window.Document as IHTMLDocument2;
    if Assigned(document) then
      for index := 1 to document.Frames.Length do
      begin
        oleIndex := index-1;
        frameDispatch := document.Frames.Item(oleIndex);
        if Assigned(frameDispatch) then
        begin
          childWindow := frameDispatch as IHTMLWindow2;
          ScrollBrowserWindowBy(childWindow,iX,iY);
        end;
      end;
  except
  on E: Exception do begin end;
  end;
end;

Kullanımı:

var
  document: IHTMLDocument2;
begin
  document := webBrowser.Document as IHTMLDocument2;
  if Assigned(document) then
    ScrollBrowserWindowBy(document.parentWindow,5,10);
Cevapla