Мастера DELPHI (документация, исходники, скачать)

Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

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

Помогите с пунктами

StiTch © (2008-05-22 20:22:00)
Удалено модератором
Примечание: восстановление закрытой ветки

TIF (2008-05-22 21:07:00) [1]
У браузера нет загрузки из файлов :) Не надо так буквально понимать "заменить мемо на веббраузер" %)

Я имел ввиду заменить

Memo1.Lines.LoadFromFile('C:\Users\Public\555\'+IntToStr(ComboBox1.ItemIndex+1)+'.txt');
на
Webbrowser1.Navigate('C:\Users\Public\555\'+IntToStr(ComboBox1.ItemIndex+1)+'.htm');

StiTch (2008-05-22 21:04:00) [2]
пишет
[Error] Unit1.pas(246): Undeclared identifier: 'LoadFromFile'
[Error] Unit1.pas(248): '.' expected but ';' found
[Warning] Unit1.pas(254): Text after final 'END.' - ignored by compiler
[Fatal Error] Project1.dpr(5): Could not compile used unit 'Unit1.pas'

чё делать???

TIF (2008-05-22 21:04:00) [3]
Я практически весь день на связи %) Так что не разойдусь ;)

StiTch (2008-05-22 20:59:00) [4]
ща попробую...не расходитесь плиз)))

TIF (2008-05-22 20:58:00) [5]
> переменая
Sorry великому-могучему: переме нная

TIF (2008-05-22 20:58:00) [6]
Сделал за полминуты :)))

procedure TForm1.ComboBox1Change(Sender: TObject);
begin

Memo1.Lines.LoadFromFile('C:\Users\Public\555\'+IntToStr(ComboBox1.ItemIndex+1)+'.txt');

end;

Думаю, не проблема, вместо .txtнаписать .htm, вместо Memoиспользовать WebBrowser

У ComboBox свойство Styleя выставил как csDropDownList

Разобраться с кодом думаю будет просто ;)

PS:
> FileIndex := ComboBox.ItemIndex;
> Webbrowser1.Stop;
> Webbrowser1.Navigate(Format('F:\%d.html', [FileIndex])
> );

А не является ли тут переменая FileIndex лишней? Навигацию можно было сделать и без неё...

Но всё равно, этот код не прокатит. Смотри мой и удачи :^)

StiTch (2008-05-22 20:52:00) [7]
да не..не срочно...но хочу поскорее сделать...
я думаю,что это не сложно...просто не пойму принцип...
смотри...есть ComboBox...в нём
Пункт1
Пункт2
Пункт3

нада чтобы при выборе пункт1 открывался файл 1.html
при выборе пункт2 открывался файл 2.html
при выборе пункт3 открывался файл 3.html

можно ли сделать через If Then???
или как?

TIF (2008-05-22 20:48:00) [8]
> низя...нада именно самому...без компонентов дополнительных

Это где такие условия жёсткие? Опять какая-нить курсовая горит и надо срочно завтра сдать?

Ладно, сейчас специально в делфи попробую смоделировать :)

StiTch (2008-05-22 20:46:00) [9]

> Я посоветовал БЕСПЛАТНЫЙ КОМПОНЕНТВ котором всё это реализовано.
> Всё готовое, на блюдечке, даже мучаться не надо

низя...нада именно самому...без компонентов дополнительных

Терапевт (2008-05-22 20:45:00) [10]

> StiTch © (22.05.08 20:22)
> Слишком быстро закрывают темы...

Ладно хоть не удаляют...

http://www.delphimaster.ru/forums.shtml
Рекомендуется:
....................
Корректно оформляйте заголовок ветки, который должен кратко отражать суть вопроса. Ветки, озаглавленные «Нужна помощь», «Срочно, горю», «Help», «Памогите, кто знаете» и т.п. будут удаляться в обязательном порядке.

TIF (2008-05-22 20:43:00) [11]
Я посоветовал БЕСПЛАТНЫЙ КОМПОНЕНТ

В котором всё это реализовано. Всё готовое, на блюдечке, даже мучаться не надо

StiTch (2008-05-22 20:40:00) [12]
какой бы пункт не выбирал открываеца тока 1.html

TIF (2008-05-22 20:39:00) [13]
Я уже дал ответ в прошлой ветке! Повторить?!

StiTch (2008-05-22 20:37:00) [14]
всё равно не понятно...объясни плиз...

ZENsan (2008-05-22 20:33:00) [15]
var
FileIndex: Integer;

...

procedure TForm1.ComboBox1Change(Sender: TObject);
begin
if ComboBox.ItemIndex <> FileIndex then
begin
FileIndex := ComboBox.ItemIndex;
Webbrowser1.Stop;
Webbrowser1.Navigate(Format('F:\%d.html', [FileIndex]));
end;
end;

StiTch (2008-05-22 20:30:00) [16]
а как это будет выглядеть?

zensan (2008-05-22 20:28:00) [17]
ComboBox.ItemIndex не пойдёт...?

Наверх

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