Справочная система по визуальным компонентам Delphi

По условию задачи необходимо разработать справочную систему по визуальным компонентам Delphi. Поэтому будет целесообразно описать конкретно постановку данной задачи, объяснить ее предназначение и функции; для кого предназначена, и основные требования по данной задаче.

Существуют две основные категории пользователей: начинающие и опытные. Опытные в Delphi пользователи, особо не нуждаются в справочной системе по визуальным компонентам, за исключением некоторых случаев, когда им непонятно, как работает и что делает определенная функция или компонент. Но вот неполная или непонятная документация может отпугнуть начинающих пользователей Delphi, которые могут составлять большую часть всех пользователей. Поэтому при разработке справочной системы необходимо ориентироваться именно на начинающего пользователя.

Определим два основных требования к справочной системе:

• Справочная система должна быть понятной;

• Справочная система должна быть полной.

Глава 2:

TForm1 = class(TForm)

ListBox1: TListBox;

RichEdit1: TRichEdit;

MainMenu1: TMainMenu;

N1: TMenuItem;

N2: TMenuItem;

N3: TMenuItem;

N4: TMenuItem;

PopupMenu1: TPopupMenu;

N5: TMenuItem;

N6: TMenuItem;

SaveDialog1: TSaveDialog;

N7: TMenuItem;

procedure ListBox1DblClick(Sender: TObject);

procedure N4Click(Sender: TObject);

procedure N5Click(Sender: TObject);

procedure N6Click(Sender: TObject);

procedure PopupMenu1Popup(Sender: TObject);

procedure N2Click(Sender: TObject);

procedure N7Click(Sender: TObject);

procedure N1Click(Sender: TObject);

procedure FormCreate(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

Form1: TForm1;

implementation

{$R *.dfm}

{Процедура разработчика событий в ListBox1}

procedure TForm1.ListBox1DblClick(Sender: TObject);

begin

Richedit1.PlainText :=false;

Richedit1.Lines.LoadFromFile('archive\'+ListBox1.Items[ListBox1.itemindex]+'.rtf') ;

end;

{Процедура появления информационного окна «О программе»}

procedure TForm1.N4Click(Sender: TObject);

begin

showmessage('Справочная система по визуальным компонентам'+#13+'среды программирования Delphi' );

end;

{Процедура выделения всего текста в RichEdit1}

procedure TForm1.N5Click(Sender: TObject);

begin