управление скролом в WebBrowser - Общие вопросы Delphi - Страница 2

MyLastHit · 21.08.2010, 20:59

все сохраняется и открывается, На первых порах твой код переводит скрол вниз, но потом(записей через 30) отказывается это делать.

DIgorevich · 21.08.2010, 21:05

Поясни немного, что значит "потом(записей через 30)"?

MyLastHit · 21.08.2010, 21:29

Обрати внимание на мой код. Принцип работы:
В Мемо пишется текст, при нажатии на Button1 текст вставляется в ХТМЛ тег,и сохраняется в index.html. Далее открывается index.html в webbrowser1, и так несколько раз. Скрол при этом стоит на месте.
Ставлю твой код, скрол опускается вместе с текстом, но где то при 10-20 нажатии по кнопке и добавлении записи твой код перестает работать, и скрол зависает в одном месте гдето посередине.

DIgorevich · 21.08.2010, 21:35

А твой код работает?? Там ведь WWW надо создавать еще... Если ты создаешь, то напиши полный листинг, а также уточни пожалуйста, по OnDocumentComplete у тебя этот код:

Код:

  webBrowser1.OleObject.Document.ParentWindow.ScrollBy(0, webBrowser1.OleObject.height);

MyLastHit · 21.08.2010, 21:55

Листинг... Хошь сам потести, Кинь Мемо, ВеБраузер, Кнопку ну процедуры повесь... ты и сам разберешься, скомпильни и создай записи кнопкой :

Код:

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, OleCtrls, SHDocVw;

type
  TForm1 = class(TForm)
    WebBrowser1: TWebBrowser;
    Button1: TButton;
    Memo1: TMemo;
    procedure FormCreate(Sender: TObject);
       
    procedure Button1Click(Sender: TObject);

    procedure WebBrowser1DocumentComplete(Sender: TObject;
      const pDisp: IDispatch; var URL: OleVariant);

  private
    { Private declarations }
  public
    { Public declarations }
  end;
Const
 a1='<html><head><meta http-equiv="Content-Language" content="ru"><meta http-equiv="Content-Type" content="text/html; charset=windows-1251"></head><body>';
 a2='</body></html>';

var
  Form1: TForm1;
  Str:String;
  WWW:TStrings;
implementation

{$R *.dfm}
procedure TForm1.FormCreate(Sender: TObject);
begin
 WWW:=TStringList.Create;
end;

procedure TForm1.Button1Click(Sender: TObject);
var z,k:string;
begin
 WWW.Clear;
 Str:=Str+'<p  style="margin-top: 0; margin-bottom: -4px"><font face="Verdana" color="#FF0000"> </font><span lang="en-us"><font face="Verdana"  color="#FF0000" size="2" ><b>'+
             'Тег </b>'+'</p> </font></span>'+
             '<font face="Verdana" size="2">'+'<p  style="margin-top: 0; margin-bottom: -4px">'+memo1.Text+'</p>'+'</font>';
 WWW.Add(a1);
 WWW.Add(Str);
 WWW.Add(a2);
 WWW.SaveToFile(ExtractFileDir(Application.ExeName)+'\Index.htm');
 memo1.Text:='';
 WEBbrowser1.Navigate(ExtractFileDir(Application.ExeName)+'\Index.htm');
end;
{твой код}
procedure TForm1.WebBrowser1DocumentComplete(Sender: TObject;
  const pDisp: IDispatch; var URL: OleVariant);
begin
  webBrowser1.OleObject.Document.ParentWindow.ScrollBy(0, webBrowser1.OleObject.height);
end;

end.

DIgorevich · 21.08.2010, 22:43

Все понял, посмотрел. Поставь вместо

Код:

  webBrowser1.OleObject.Document.ParentWindow.ScrollBy(0, webBrowser1.OleObject.height);

вот это:

Код:

  webBrowser1.OleObject.Document.ParentWindow.ScrollBy(0, Length(str));

MyLastHit · 21.08.2010, 22:46

Во)) кул, спасибо)

DIgorevich · 21.08.2010, 22:47

Не за что. Надеюсь, ты в курсе, что у String ограничение в 255 символов?

MyLastHit · 21.08.2010, 23:06

Эм. Нет... У стринг листа ограничение на 225 записей или у str на 225 симв?

Сразу вопрос: как убрать ограничение?

DIgorevich · 21.08.2010, 23:08

у str. Он ведь у тебя типа String

21.08.2010, 20:59	#11
MyLastHit Очень суровый Участник клуба Регистрация: 17.12.2009 Сообщений: 1,988	все сохраняется и открывается, На первых порах твой код переводит скрол вниз, но потом(записей через 30) отказывается это делать. Ненавижу быть как все, но люблю, чтобы все были как я.

21.08.2010, 21:05	#12
DIgorevich Погулять вышел Участник клуба Регистрация: 17.05.2010 Сообщений: 1,573	Поясни немного, что значит "потом(записей через 30)"? Никогда не знаешь, где тебе повезет... (Фрай)

21.08.2010, 21:29	#13
MyLastHit Очень суровый Участник клуба Регистрация: 17.12.2009 Сообщений: 1,988	Обрати внимание на мой код. Принцип работы: В Мемо пишется текст, при нажатии на Button1 текст вставляется в ХТМЛ тег,и сохраняется в index.html. Далее открывается index.html в webbrowser1, и так несколько раз. Скрол при этом стоит на месте. Ставлю твой код, скрол опускается вместе с текстом, но где то при 10-20 нажатии по кнопке и добавлении записи твой код перестает работать, и скрол зависает в одном месте гдето посередине. Ненавижу быть как все, но люблю, чтобы все были как я.

21.08.2010, 21:35	#14
DIgorevich Погулять вышел Участник клуба Регистрация: 17.05.2010 Сообщений: 1,573	А твой код работает?? Там ведь WWW надо создавать еще... Если ты создаешь, то напиши полный листинг, а также уточни пожалуйста, по OnDocumentComplete у тебя этот код: Код: `webBrowser1.OleObject.Document.ParentWindow.ScrollBy(0, webBrowser1.OleObject.height);` Никогда не знаешь, где тебе повезет... (Фрай)

21.08.2010, 22:43	#16
DIgorevich Погулять вышел Участник клуба Регистрация: 17.05.2010 Сообщений: 1,573	Все понял, посмотрел. Поставь вместо Код: `webBrowser1.OleObject.Document.ParentWindow.ScrollBy(0, webBrowser1.OleObject.height);` вот это: Код: `webBrowser1.OleObject.Document.ParentWindow.ScrollBy(0, Length(str));` Никогда не знаешь, где тебе повезет... (Фрай)

21.08.2010, 22:46	#17
MyLastHit Очень суровый Участник клуба Регистрация: 17.12.2009 Сообщений: 1,988	Во)) кул, спасибо) Ненавижу быть как все, но люблю, чтобы все были как я.

21.08.2010, 22:47	#18
DIgorevich Погулять вышел Участник клуба Регистрация: 17.05.2010 Сообщений: 1,573	Не за что. Надеюсь, ты в курсе, что у String ограничение в 255 символов? Никогда не знаешь, где тебе повезет... (Фрай)

21.08.2010, 23:06	#19
MyLastHit Очень суровый Участник клуба Регистрация: 17.12.2009 Сообщений: 1,988	Эм. Нет... У стринг листа ограничение на 225 записей или у str на 225 симв? Сразу вопрос: как убрать ограничение? Ненавижу быть как все, но люблю, чтобы все были как я.

21.08.2010, 23:08	#20
DIgorevich Погулять вышел Участник клуба Регистрация: 17.05.2010 Сообщений: 1,573	у str. Он ведь у тебя типа String Никогда не знаешь, где тебе повезет... (Фрай)

Похожие темы
Тема	Автор	Раздел	Ответов	Последнее сообщение
Управление процессами	An123	Помощь студентам	2	18.12.2009 23:14
Смена данных в ячейках, скролом	valerij	Microsoft Office Excel	6	05.12.2009 15:24
Управление с клавиатуры	kpishnik	Помощь студентам	10	27.07.2008 18:38
Управление голосом	L0gic	Общие вопросы Delphi	13	13.10.2007 10:23
Помогите со скролом	Dude_first	Общие вопросы Delphi	1	11.09.2007 16:31