Delphi da elektron darslik dasturi

Muallif: Mengliev sh.

Qo`shilgan sana: 2015-03-07

Delphi da elektron darslik dasturi

Quyida dizayni yaratib oling

Dastur kodi

unit Unit1;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, OleCtrls, SHDocVw, ComCtrls, ToolWin, StdCtrls;

type
TForm1 = class(TForm)
CoolBar1: TCoolBar;
ToolBar1: TToolBar;
TreeView1: TTreeView;
WebBrowser1: TWebBrowser;
Edit1: TEdit;
procedure TreeView1Change(Sender: TObject; Node: TTreeNode);
procedure FormCreate(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
implementation
{$R *.dfm}
procedure TForm1.TreeView1Change(Sender: TObject; Node: TTreeNode);
var s,s1:string;
begin
s1:=TreeView1.Selected.Text;
Edit1.Text := s1;
if s1 = 'Kirish.' then s :='D:\kirish.htm';
if s1 = 'Dasturlash asoslari’ s :='D:\D_A.htm';
if s1 = 'Delphi muhiti' then s :='D:\index0.htm';
if s1 = 'Birinchi loyha' then s :='D:\index1.htm';
if s1 = 'algaritmlar ' then s :='D:\index2.htm';
if s1 = 'Massivlar' then s :='D:\index3.htm';
if s1 = 'Belgilar va satrlar' then s :='D:\index4.htm';
if s1 = 'Fayllar then s :='D:\index5.htm';
if s1 = 'Programmst tomonidan aniqlanadigan turlar' then s :='D:\index6.htm';
if s1 = 'Delphi tilining grafik imkoniyatlari' then s :='D:\index7.htm';
if s1 = 'Delphi tilining multimedia imkoniyatlari' then s :='D:\index9.htm';
if s1 = 'Delphida qism programmalar va modullardan foydalanish' then s :='D:\index10.htm';
if s1 = 'Dasturni otlatka qilish' then s :='D:\index11.htm';
if s1 = 'Berilganlar bazalari' then s :='D:\index12.htm';
If s1='Delphi tilining boshqaruv strukturasi' then s:='D:\index13.htm';
If s1='Rekursiya ' then s:='D:\index14.htm';
If s1='Konsol dasturlar' then s:='D:\index15.htm';
if s1 = 'Adabiyotlar' then s :='D:\index16.htm';
WebBrowser1.Navigate(s);
end;
procedure TForm1.FormCreate(Sender: TObject);
begin
WebBrowser1.Navigate('D\Index.htm');
end;
end.

5705 marta o`qildi.

shoydullo adminstrator