Скачать: CL | DM;

Альтернатива WebBrowser-a   Найти похожие ветки 

← →
Rust007 ©   (2006-01-24 18:33) [0]

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

---

← →
Rouse_ ©   (2006-01-24 21:17) [1]

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

---

← →
Кефир87 ©   (2006-01-24 22:02) [2]

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

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

---

← →
Rust007 ©   (2006-01-24 22:27) [3]

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

---

← →
Кефир87 ©   (2006-01-24 22:33) [4]

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

---

← →
Rouse_ ©   (2006-01-24 22:48) [5]

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

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.

---

← →
Rust007 ©   (2006-01-24 23:13) [6]

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

---

← →
Rouse_ ©   (2006-01-24 23:22) [7]

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

---

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

> Поняли!!!

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

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

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

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

---

← →
Rust007 ©   (2006-01-25 21:30) [9]

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

---

← →
Gero ©   (2006-01-25 21:45) [10]

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

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

---

← →
Сайбель Алексей ©   (2006-01-25 22:05) [11]

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

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

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

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

---

← →
Кефир87 ©   (2006-01-25 22:12) [12]

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

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

---

← →
Rust007 ©   (2006-01-26 16:16) [13]

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

---

← →
Gero ©   (2006-01-26 16:22) [14]

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

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

---

← →
аноним   (2006-01-30 12:48) [15]

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

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.48 MB
Время: 0.031 c