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

← →
StiTch © (2008-05-22 20:22) [0]

Удалено модератором
Примечание: восстановление закрытой ветки

← →
zensan © (2008-05-22 20:28) [1]

ComboBox.ItemIndex не пойдёт...?

← →
StiTch © (2008-05-22 20:30) [2]

а как это будет выглядеть?

← →
ZENsan © (2008-05-22 20:33) [3]

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:37) [4]

всё равно не понятно...объясни плиз...

← →
TIF © (2008-05-22 20:39) [5]

Я уже дал ответ в прошлой ветке! Повторить?!

← →
StiTch © (2008-05-22 20:40) [6]

какой бы пункт не выбирал открываеца тока 1.html

← →
TIF © (2008-05-22 20:43) [7]

Я посоветовал БЕСПЛАТНЫЙ КОМПОНЕНТ

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

← →
Терапевт (2008-05-22 20:45) [8]

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

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

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

← →
StiTch © (2008-05-22 20:46) [9]

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

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

← →
TIF © (2008-05-22 20:48) [10]

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

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

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

← →
StiTch © (2008-05-22 20:52) [11]

да не..не срочно...но хочу поскорее сделать...
я думаю,что это не сложно...просто не пойму принцип...
смотри...есть ComboBox...в нём
Пункт1
Пункт2
Пункт3

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

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

← →
TIF © (2008-05-22 20:58) [12]

Сделал за полминуты :)))

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 лишней? Навигацию можно было сделать и без неё...

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

> переменая
Sorry великому-могучему: переменная

ща попробую...не расходитесь плиз)))

Я практически весь день на связи %) Так что не разойдусь ;)

пишет
[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"

чё делать???

У браузера нет загрузки из файлов :) Не надо так буквально понимать "заменить мемо на веббраузер" %)

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

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

Помогите с пунктами Найти похожие ветки