Форум: "Начинающим";
Текущий архив: 2006.02.19;
Скачать: [xml.tar.bz2];
Вниз
Альтернатива 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 вся ветка
Форум: "Начинающим";
Текущий архив: 2006.02.19;
Скачать: [xml.tar.bz2];
Память: 0.48 MB
Время: 0.044 c
