Банк рефератов содержит более 364 тысяч рефератов, курсовых и дипломных работ, шпаргалок и докладов по различным дисциплинам: истории, психологии, экономике, менеджменту, философии, праву, экологии. А также изложения, сочинения по литературе, отчеты по практике, топики по английскому.
Полнотекстовый поиск
Всего работ:
364150
Теги названий
Разделы
Авиация и космонавтика (304)
Административное право (123)
Арбитражный процесс (23)
Архитектура (113)
Астрология (4)
Астрономия (4814)
Банковское дело (5227)
Безопасность жизнедеятельности (2616)
Биографии (3423)
Биология (4214)
Биология и химия (1518)
Биржевое дело (68)
Ботаника и сельское хоз-во (2836)
Бухгалтерский учет и аудит (8269)
Валютные отношения (50)
Ветеринария (50)
Военная кафедра (762)
ГДЗ (2)
География (5275)
Геодезия (30)
Геология (1222)
Геополитика (43)
Государство и право (20403)
Гражданское право и процесс (465)
Делопроизводство (19)
Деньги и кредит (108)
ЕГЭ (173)
Естествознание (96)
Журналистика (899)
ЗНО (54)
Зоология (34)
Издательское дело и полиграфия (476)
Инвестиции (106)
Иностранный язык (62792)
Информатика (3562)
Информатика, программирование (6444)
Исторические личности (2165)
История (21320)
История техники (766)
Кибернетика (64)
Коммуникации и связь (3145)
Компьютерные науки (60)
Косметология (17)
Краеведение и этнография (588)
Краткое содержание произведений (1000)
Криминалистика (106)
Криминология (48)
Криптология (3)
Кулинария (1167)
Культура и искусство (8485)
Культурология (537)
Литература : зарубежная (2044)
Литература и русский язык (11657)
Логика (532)
Логистика (21)
Маркетинг (7985)
Математика (3721)
Медицина, здоровье (10549)
Медицинские науки (88)
Международное публичное право (58)
Международное частное право (36)
Международные отношения (2257)
Менеджмент (12491)
Металлургия (91)
Москвоведение (797)
Музыка (1338)
Муниципальное право (24)
Налоги, налогообложение (214)
Наука и техника (1141)
Начертательная геометрия (3)
Оккультизм и уфология (8)
Остальные рефераты (21697)
Педагогика (7850)
Политология (3801)
Право (682)
Право, юриспруденция (2881)
Предпринимательство (475)
Прикладные науки (1)
Промышленность, производство (7100)
Психология (8694)
психология, педагогика (4121)
Радиоэлектроника (443)
Реклама (952)
Религия и мифология (2967)
Риторика (23)
Сексология (748)
Социология (4876)
Статистика (95)
Страхование (107)
Строительные науки (7)
Строительство (2004)
Схемотехника (15)
Таможенная система (663)
Теория государства и права (240)
Теория организации (39)
Теплотехника (25)
Технология (624)
Товароведение (16)
Транспорт (2652)
Трудовое право (136)
Туризм (90)
Уголовное право и процесс (406)
Управление (95)
Управленческие науки (24)
Физика (3463)
Физкультура и спорт (4482)
Философия (7216)
Финансовые науки (4592)
Финансы (5386)
Фотография (3)
Химия (2244)
Хозяйственное право (23)
Цифровые устройства (29)
Экологическое право (35)
Экология (4517)
Экономика (20645)
Экономико-математическое моделирование (666)
Экономическая география (119)
Экономическая теория (2573)
Этика (889)
Юриспруденция (288)
Языковедение (148)
Языкознание, филология (1140)

Лабораторная работа: Создание treeview в Delphi

Название: Создание treeview в Delphi
Раздел: Рефераты по информатике
Тип: лабораторная работа Добавлен 05:36:17 02 июня 2011 Похожие работы
Просмотров: 178 Комментариев: 2 Оценило: 0 человек Средний балл: 0 Оценка: неизвестно     Скачать

Форма:

Листинг программы :

unit Unit1;

interface

uses

Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

Dialogs, ComCtrls, StdCtrls, XPMan, SRColBtn, SRGrad, IniList, ImgList;

type

TForm1 = class(TForm)

Button1: TButton;

Button2: TButton;

Button3: TButton;

Button4: TButton;

Button5: TButton;

Memo1: TMemo;

TreeView1: TTreeView;

XPManifest1: TXPManifest;

Button7: TButton;

Button8: TButton;

Button9: TButton;

Button6: TButton;

Button10: TButton;

SRGradient1: TSRGradient;

ImageList1: TImageList;

procedure Button1Click(Sender: TObject);

procedure Button2Click(Sender: TObject);

procedure Button3Click(Sender: TObject);

procedure Button4Click(Sender: TObject);

procedure Button5Click(Sender: TObject);

procedure Button6Click(Sender: TObject);

procedure Button7Click(Sender: TObject);

procedure Button8Click(Sender: TObject);

procedure FormClose(Sender: TObject; var Action: TCloseAction);

procedure FormShow(Sender: TObject);

procedure TreeView1Click(Sender: TObject);

procedure Button9Click(Sender: TObject);

procedure Button10Click(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

Form1: TForm1;

f:TextFile; s,c:String; i:integer;

implementation

uses Unit2;

{$R *.dfm}

//кнопка «Добавить элемент»

procedure TForm1.Button1Click(Sender: TObject);

var captionStr:string;

NewNode:TTreeNode;

Begin

//обнуляем строку, которая будет использоваться для хранения имени будущего элемента //дерева

CaptionStr:='';

//выводим на экран окно ввода. Если окно было закрыто не кнопкой OK, то происходит //выход из процедуры

if not InputQuery('Добавить элемент', 'Введите заголовок элемента', CaptionStr) then exit;

//добавляем новый элемент в наше дерево

NewNode:=Treeview1.Items.Add(Treeview1.Selected, CaptionStr);

//если компонент не является верхним в дереве, то изменяем значение ImageIndex //созданного нами элемента на 1 (по умолчанию это значение 0)

if newnode.Parent<>nil then newnode.ImageIndex:=1;

end;

//кнопка «Удалить »

procedure TForm1.Button2Click(Sender: TObject);

begin

//проверяю есть ли выделенный элемент в дереве

if treeview1.Selected<>nil then

begin

//если да, то выводим на экран сообщение

if MessageDlg('Вы действительно хотите удалить запись?', mtWarning,[mbYes,mbNo],0)=mrYes then

//удаляем элемент дерева

treeview1.items.delete(treeview1.selected);

end;

//очищаем memo1.

memo1.Text:='';

end;

//кнопка «Выход»

procedure TForm1.Button3Click(Sender: TObject);

begin

//выход из программы

close;

end;

//кнопка «Сохранить в файл»

procedure TForm1.Button4Click(Sender: TObject);

begin

//сохраняем изменения в файл tree. dat

TreeView1.SaveToFile(ExtractFilePath(Application.ExeName)+'tree.dat');

end;

//кнопка «Загрузить из файла»

procedure TForm1.Button5Click(Sender: TObject);

begin

//если файл с указанным именем существует, то загружаем его

if FileExists(ExtractFilePath(Application.ExeName)+'tree.dat') then

TreeView1.LoadFromFile(ExtractFilePath(Application.ExeName)+'tree.dat');

end;

//кнопка «Изменить заголовок»

procedure TForm1.Button6Click(Sender: TObject);

var captionStr:string;

begin

CaptionStr:='';

if not InputQuery('Изменение заголовка', 'Введите заголовок элемента', CaptionStr) then exit;

//чтобы изменить имя надо изменить свойство Text для выделенного элемента

treeview1.Selected.Text:=CaptionStr;

end;

//кнопка «О программе»

procedure TForm1.Button7Click(Sender: TObject);

begin

//выводим новое окно с сообщением о создателе программы

ShowMessage('Программу выполнила студентка гр. ВТиПО-42р.'+#13+'Ахметова Индира'+#13+'2010 год');

end;

//кнопка «Добавить подэлемент»

//здесь код практически такой же, что и для кнопки «Добавить элемент»

procedure TForm1.Button8Click(Sender: TObject);

var captionStr:string;

NewNode:TTreeNode;

begin

CaptionStr:='';

if not InputQuery('Добавить подэлемент', 'Введите заголовок подэлемента', CaptionStr) then exit;

//разница лишь в том, что при добавлении нового элемента мы используем метод // AddChild, т.е. добавляем дочерний элемент

NewNode:=Treeview1.Items.AddChild(Treeview1.Selected, CaptionStr);

if newnode.Parent<>nil then newnode.ImageIndex:=1;

end;

//при закрытии программы сделаем возможность сохранения данных дерева

procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);

begin

treeview1.SaveToFile(ExtractFilePath(Application.ExeName)+'tree.dat');

end;

//при открытии программы сделаем возможность загрузки данных из дерева

procedure TForm1.FormShow(Sender: TObject);

begin

if FileExists(ExtractFilePath(Application.ExeName)+'tree.dat') then

TreeView1.LoadFromFile(ExtractFilePath(Application.ExeName)+'tree.dat');

end;

//при нажатии на элемент дерева

procedure TForm1.TreeView1Click(Sender: TObject);

begin

memo1.Clear;

//если файл существует, то данные добавляются в файл

if FileExists(IntToStr(TreeView1.Selected.AbsoluteIndex)) then

begin

AssignFile(f,inttostr(treeview1.Selected.AbsoluteIndex));

//открыть файл для чтения

reset(f);

while not EOF(f) do

Begin

//прочитать строку из файла

readln (f,s);

memo1.Lines.Add(s)end;

closefile(f) end else

//иначе, если файл не существует, то создаем новый

begin

memo1.Clear;

AssignFile(f,IntToStr(TreeView1.Selected.AbsoluteIndex));

Rewrite(f);

reset(f);

while not EOF(f) do

begin

readln (f,s);

memo1.Lines.Add(s)end ;

closefile(f) end;end;

//кнопка «Добавить описание»

procedure TForm1.Button9Click(Sender: TObject);

begin

memo1.SetFocus;

//в memo можно редактировать данные (информацию)

Memo1.ReadOnly:=false;

end;

//кнопка «Сохранить описание»

//сохраняем введенные в memoданные (информацию) в файл tree. dat

procedure TForm1.Button10Click(Sender: TObject);

begin

AssignFile(f,inttostr(treeview1.Selected.AbsoluteIndex));

rewrite(f);

for i:=0 to memo1.Lines.Count do

writeln(f, memo1.lines[i]); //записываем текст в него из МЕМО

closefile(f); //и закрываем

TreeView1.SaveToFile('tree.dat');

// memo доступен только для чтения

Memo1.ReadOnly:=true;

end;

end.

Оценить/Добавить комментарий
Имя
Оценка
Комментарии:
Где скачать еще рефератов? Здесь: letsdoit777.blogspot.com
Евгений08:22:26 19 марта 2016
Кто еще хочет зарабатывать от 9000 рублей в день "Чистых Денег"? Узнайте как: business1777.blogspot.com ! Cпециально для студентов!
11:14:14 29 ноября 2015

Работы, похожие на Лабораторная работа: Создание treeview в Delphi

Назад
Меню
Главная
Рефераты
Благодарности
Опрос
Станете ли вы заказывать работу за деньги, если не найдете ее в Интернете?

Да, в любом случае.
Да, но только в случае крайней необходимости.
Возможно, в зависимости от цены.
Нет, напишу его сам.
Нет, забью.



Результаты(150931)
Комментарии (1842)
Copyright © 2005-2016 BestReferat.ru bestreferat@mail.ru       реклама на сайте

Рейтинг@Mail.ru