Книга на делфи

[GidroFobia]

Ребят, помогите пожалуйста.
Хочу написать учебник, но не могу нормально разобраться

Можете скинуть исходник такой книги:
Слева находится ListBox, а справа так называемый браузер, который будет открывать HTML файлы сообтветствующие выбранной главе в ListBox.

[FaTaL]

А что именно то не получается?

[GidroFobia]

Я не знаю как сделать так, чтобы при нажатии на главу открывался определённый файлик в браузере справа

помогите пожалуйста

[unbanned]

как вариант, у лист бокса есть свойство ItemIndex
возвращает индекс выбранного элемента...(нумерация с 0 начинается, если что)
вот и ставьте обработчик на клик по листбоксу

[FaTaL]

при клике делайте WebBrowser1.Navigate ('Путь к файлу');

[unbanned]

ну вообщем да... что-то типо такого

procedure TForm1.lst1Click(Sender: TObject);
begin
  wb1.Navigate('file:///C:/text/part' + inttostr(lst1.ItemIndex + 1) + '.txt');
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
  lst1.Items.Text := 'Часть 1' + #13#10 + 'Часть 2' + #13#10 + 'Часть 3';
end;

[GidroFobia]

Можете пожалуйста прям целиком прект скинуть, а то я с делфи даже не на Вы

[unbanned]

эмм)

Хочу написать учебник, но не могу нормально разобраться

как же вы хотите написать тогда? это практически весь проект... кинуть на форму листбокс с браузером и создать обработчики с приведенным кодом - это элементарщина

[GidroFobia]

Должно выглядеть так?

unit Engine;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, jpeg, ExtCtrls;

type
  TForm1 = class(TForm)
    ListBox1: TListBox;
    textout: TMemo;
    Image1: TImage;
    procedure FormCreate(Sender: TObject);
    procedure ListBox1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

const
  pos1 = 'text 1';
  pos2 = 'text 2';
  pos3 = 'text 3';

implementation

{$R *.dfm}

procedure TForm1.FormCreate(Sender: TObject);
begin

  listbox1.Items.add('Оглавление');
  listbox1.Items.add('•1');
  listbox1.Items.add('•2');
  listbox1.Items.add('•3');
  Textout.Font.Style:=Textout.Font.Style+[fsbold];
   textout.Text:='«Будешь читать литературу для «чайников» - станешь «чайником» - программистская мудрость.'+
              ' Моя статья написана для начинающих программистов (НЕ ДЛЯ «ЧАЙНИКОВ»!!!), ее цель – избавить их'+
              ' от долгих бесполезных кликаний мышью по кнопкам, пытаясь «вслепую» создать более-менее удобный'+
              ' инсталлятор для своей программы. Сразу предупреждаю: в статье не будет сложных примеров скриптов,'+
              ' заумных фраз и обилия терминов. Здесь собран только самый необходимый минимум, который сделает процесс написания инсталлятора простым и понятным.';
end;

procedure TForm1.lst1Click(Sender: TObject);
begin
  wb1.Navigate('file:///C:/text/part' + inttostr(lst1.ItemIndex + 1) + '.txt');
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
  lst1.Items.Text := 'Часть 1' + #13#10 + 'Часть 2' + #13#10 + 'Часть 3';
end;

end.

[unbanned]

ну почти... второй OnCreate уберите))
смысл вы поняли?

wb1.Navigate('file:///C:/text/part' + inttostr(lst1.ItemIndex + 1) + '.txt'); - здесь загружается глава

inttostr(lst1.ItemIndex + 1) - вот это номер выбраной строчки в листбоксе т.е. номер главы которую надо подгрузить
'file:///C:/text/' - это папка сфайлами которые вы хотите подгружать
part' + inttostr(lst1.ItemIndex + 1) + '.txt' - это имя файла с главой (ну например part1.txt, part2.txt и т.д.)