WebBrowser

[alikus]

var
Doc : OleVariant;
begin
Doc := WebBrowser1.Document;
Doc.Body.scroll:='no';


Kodunu kullanarak webbrowser de scroll 'u kaldırdım. Fakat geri nasıl koyacağız. Doc.Body.scroll:='yes'; denedim olmadı. Yardımlarınızı bekliyorum.

[husonet]

Ben bir form açarak denedim Scrollu kadırıyor ve Tekrar koyuyor 3 adet button ekleyerek test ettim.

Kod: Tümünü seç

procedure TForm1.Button1Click(Sender: TObject);
begin
    wEBbROWSER1.Navigate('www.husonet.com');
end;

procedure TForm1.Button2Click(Sender: TObject);
var
    Doc : OleVariant;
begin
    Doc := WebBrowser1.Document;
    Doc.Body.scroll:='no';
end;

procedure TForm1.Button3Click(Sender: TObject);
var
    Doc : OleVariant;
begin
    Doc := WebBrowser1.Document;
    Doc.Body.scroll:='Yes';
end;

Kolay Gelsin...

[alikus]

Ama bende olmuyor. Sizin yaptığınız gibi ayrı bir projede deneme yaptım çalışıyor. Fakat benim projede çalışmıyor neden olabilir. Yardımlarınız için teşkkürler.

Kod: Tümünü seç

var
  Doc : OleVariant;
begin
if copy(URL,1,34)='http://localhost/bant/Siparisf.php' then
   begin
      Doc := WebBrowser1.Document;
      Doc.Body.scroll:='Yes';
   end
 else
   begin
      Doc := WebBrowser1.Document;
      Doc.Body.scroll:='no';
   end;
end;

[husonet]

Tanımlamış olduğun URL değişkeni nedir webbrowser'a nasıl yönlendiriyorsun?

Bence siz mantık hatası yapıyorsunuz

istediğiniz kod şu şekilde olmalı önce Global bir değişken tanımlayın

Kod: Tümünü seç

var
  ScrolPoz:Integer;

Sonra Button'un Click eventine aşağıdaki kodu yazın.

Kod: Tümünü seç

procedure TForm1.Button1Click(Sender: TObject);
var
  Doc : OleVariant;
begin
if ScrolPoz = 0 then
   begin
      ScrolPoz := 1;
      Doc := WebBrowser1.Document;
      Doc.Body.scroll:='no';
   end
 else
   begin
      ScrolPoz := 0;
      Doc := WebBrowser1.Document;
      Doc.Body.scroll:='yes';
   end;
end;

Kolay Gelsin...

[alikus]

sonuçta yaptığın şey bir test

if ScrolPoz = 0 then
....

ile

if copy(URL,1,34)='http://localhost/bant/Siparisf.php' then
....

arasındaki fark nedir. Ve bu teste göre işlem yaptırıyoruz. ve sonuçta yapılan işlem
Doc := WebBrowser1.Document;
Doc.Body.scroll:='yes';
Programı adım adım çalıştırdığımızda adımlarda bir sorun olmuyor hata da vermiyor. Ama Doc.Body.scroll:='yes'; kodudan bir sonuç alamıyoruz.

[husonet]

Arasında fark vardır tabiki dönen sonuç aynı olacağı için hep aynı blok devreye girecektir. Yazdığım kodu incelerseniz arasındaki fark açıktır.

Kolay Gelsin...

[alikus]

Hayır hep aynı blok devreye girmiyor. Çünkü açılan safya hep " 'http://localhost/bant/Siparisf.php' " olmuyor ki hep aynı blok devreye girsin. Birde adım adım çalıştırdığımda " Doc.Body.scroll:='Yes';"
kodunu işleme girdiğini görebiliyorum ama sonuç alamıyorum.

[husonet]

Ben ya sizi anlamıyorum ya siz beni

Her neyse belki anlayan cıkar


Kolay Gelsin...