| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

Альтернатива WebBrowser-a

Rust007 ©   (2006-01-24 18:33:00) 

Мне охото создать программу-справочник, текст я загружаю в WeBBrowser; Но я хочу, чтобы на форме отображался только текст и SCROL  браузера. Возможно ли создать такое приложение?

---

аноним   (2006-01-30 12:48:00) [1]

керк, кончай баловаться +)

---

Gero   (2006-01-26 16:22:00) [2]

> Вы наверное Петросяну расказы пишите!!!

Ты хочешь об этом поговорить?

---

Rust007   (2006-01-26 16:16:00) [3]

НУ вы и юмористы блин!!!! Вы наверное Петросяну расказы пишите!!!

---

Кефир87   (2006-01-25 22:12:00) [4]

> А чему вас там учат?

Блин. Глупый вопрос. Там учат албанский. Это все знают. 8)

---

Сайбель Алексей   (2006-01-25 22:05:00) [5]

Мне тоже искренне жалко его

> чтож поделаешь 15 лет в Бобруйской сельской школе сказываются

А чему вас там учат?

Выводи свой текст канвой, раз компоненты не нужны :O)

---

Gero   (2006-01-25 21:45:00) [6]

> 15 лет в Бобруйской сельской школе сказываются!!!

Ого, мои сочувствия. Оставаться 5 лет на второй год и в обычной школе не особо приятно, а в Бобруйской сельской так вобще.

---

Rust007   (2006-01-25 21:30:00) [7]

Вы не понимаете вопроса! ЛАДНО! Я хочу, чтобы мой текст(я так задумал) отображался в каком -нибудь компаненте, но при запуске программы, был виден только текст в компаненте!! Т.е было ощущение как буд-то тест размещён в Label-e а не в MEMO(для представления на пустой проект поставьте Label)!!!!!! Врятли вы поняли, чтож поделаешь 15 лет в Бобруйской сельской школе сказываются!!!

---

Кефир87   (2006-01-24 23:23:00) [8]

> Поняли!!!

Честно говоря не очень... особенно:

> при запуске проги компанент не виден, а текст в нем виден!
> !!!!!!!!!!

Если не нужен белый фон Memo, сделай его таким-же как у формы и BorderStyle (у Memo) сделай bsNone. Думаю подходящий эффект...

А с чего это мемо сдохнет? Грузи кусками?

---

Rouse_   (2006-01-24 23:22:00) [9]

компанент не виден, а текст в нем виден
Поняли!!!
Чесно? Нет :))

---

Rust007   (2006-01-24 23:13:00) [10]

У меня текст такой о..ый, что Memo сдохнет. Моя идея-изначально состояла в том, чтобы Загружать текст в какой-нибуть компанент,( при запуске проги компанент не виден, а текст в нем виден!!!!!!!!!!! )Ну и чтобы его скролировать можно было. У Browser-a так сделать нельзя, а у Memo темболее. Вот я и думаю, можно так сделать или нет!!! Поняли!!!

---

Rouse_   (2006-01-24 22:48:00) [11]

А кто шутит то?

unit Unit1;

interface

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

type
 TForm1 = class(TForm)
   Memo1: TMemo;
   WebBrowser1: TWebBrowser;
   procedure FormCreate(Sender: TObject);
   procedure WebBrowser1NavigateComplete2(Sender: TObject;
     const pDisp: IDispatch; var URL: OleVariant);
 end;

var
 Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.FormCreate(Sender: TObject);
begin
 WebBrowser1.Navigate('D:\Sait\old.htm');
end;

procedure TForm1.WebBrowser1NavigateComplete2(Sender: TObject;
 const pDisp: IDispatch; var URL: OleVariant);
var
 Document: IHtmlDocument2;
begin
 Document := WebBrowser1.Document as IHtmlDocument2;
 Memo1.Text := Document.body.outerText;
end;

end.

---

Кефир87   (2006-01-24 22:33:00) [12]

Кстати никто не шутил... Смысл использовать HTML если разметка не нужна?

---

Rust007   (2006-01-24 22:27:00) [13]

НЕ смешно!! Срочно надо!!! Че, нет что ли выхода!!! А!!!

---

Кефир87   (2006-01-24 22:02:00) [14]

> Угу, грузи все в TMemo...

...но только не HTML страницу 8)

---

Rouse_   (2006-01-24 21:17:00) [15]

Угу, грузи все в TMemo...

---

Наверх