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

[w1ny]

Привет всем) не может ли мне ктонить помочь создать электронный учебник в делфи,либо поделииться готовым исходником (если что вот мой маил w1ny_puh@mail.ru),заранее большое спасибо!

[Marsel737]

w1ny, лейблы накидай на форму, мемо и пропиши:

procedure TForm1.Label1Click(Sender: TObject);
begin
  Memo1.Lines.LoadFromFile('1.txt');
end;

За курсач первокурсника сойдет, ну еще всякие настройки можно сделать типа изменения размера, печать и т.д., япримерно такой сдавал на первом курсе, но у меня ещё тестирование было

[russian-stalker]

Я думаю лучше заюзать TWebBrowser

[Marsel737]

Но тогда придется ещё HTML изучать, а если текст не сложный и без всяких связей между собой, я имею в виду ссылки, то в мемо намного проще сделать

[w1ny]

я об этом думал но мне надо не так, а надо чтоб тыкая по основной теме открывались подтемы содеражщиеся в учебники то есть главы и чтоб я спокойно мог прыгать по ним вот)чтоб выгледело примерно так(возьмём любое даже придуманное название учебника)
>>Учебник по ява скрипатм(тыкаю сюда и появляетсо подтемы)
>>Глава1(подтемы)
>>Глава2
>>Глава3
ну и дальше в том же роде,и действаволо по такой системе по нажатию непосредственно по названию самого учебника он открывался в мемо,а тыкая по главам меня б просто перекидывало непосредственно к главе!как такое лучше сделать?

[russian-stalker]

Думаю такое легче всего сделать через WebBrowser.

[w1ny]

Сообщение от russian-stalker

Думаю такое легче всего сделать через WebBrowser.

а как это сджелать я этот компонент в делфи раньше не тыкал вообще))

[w1ny]

тема в верх)

[Marsel737]

Сообщение от w1ny

я об этом думал но мне надо не так, а надо чтоб тыкая по основной теме открывались подтемы содеражщиеся в учебники то есть главы и чтоб я спокойно мог прыгать по ним вот)чтоб выгледело примерно так(возьмём любое даже придуманное название учебника)
>>Учебник по ява скрипатм(тыкаю сюда и появляетсо подтемы)
>>Глава1(подтемы)
>>Глава2
>>Глава3
ну и дальше в том же роде,и действаволо по такой системе по нажатию непосредственно по названию самого учебника он открывался в мемо,а тыкая по главам меня б просто перекидывало непосредственно к главе!как такое лучше сделать?

Юзай TTreeView

[vasek123]

Сообщение от w1ny

а как это сджелать я этот компонент в делфи раньше не тыкал вообще))

Ну вот тебе в качестве примера:

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, Buttons, OleCtrls, SHDocVw, ExtCtrls, ActnMan,
  ActnColorMaps;

type
  TForm1 = class(TForm)
    Panel1: TPanel;
    Panel2: TPanel;
    WebBrowser1: TWebBrowser;
    BitBtn1: TBitBtn;
    BitBtn2: TBitBtn;
    BitBtn3: TBitBtn;
    procedure BitBtn1Click(Sender: TObject);
    procedure BitBtn2Click(Sender: TObject);
    procedure BitBtn3Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.BitBtn1Click(Sender: TObject);
begin
   WebBrowser1.Navigate('index.html');
end;

procedure TForm1.BitBtn2Click(Sender: TObject);
begin
  WebBrowser1.GoBack;
end;

procedure TForm1.BitBtn3Click(Sender: TObject);
begin
  WebBrowser1.GoForward;
end;

end.