Изучение компонентов Delphi

Автор работы: Пользователь скрыл имя, 01 Мая 2012 в 13:29, лабораторная работа

Краткое описание

Цель работы: Построение иерархии объектов
Задание: Необходимо создать иерархическое дерево объектов с использованием виртуальных правил, статических и динамических методов. Программа должна содержать дерево объектов с отображением их свойств в таблице, в зависимости от того, какой элемент дерева выбран. Дерево объектов должно заполняться динамически (в конструкторе формы). Каждый класс должен содержаться в отдельном модуле.

Скачать целиком (175.96 Кб) Сколько стоит заказать работу?
Содержимое работы - 1 файл

Лаба3.doc

— 234.00 Кб (Скачать файл)

img1.Visible:=False;

img2.Visible:=False;

img3.Visible:=False;

img5.Visible:=False;

img4.Visible:=False ;

img7.Visible:=False ;

end;

end; 

procedure TForm1.tv1Click(Sender: TObject); 

begin

i:=tv1.Selected.AbsoluteIndex ; 

if i=1 then begin

img2.Visible:=false;

img1.Visible:=False;

img3.Visible:=False;

img4.Visible:=False;

img5.Visible:=False;

img6.Visible:=False ;

img7.Visible:=False ;

Strngrd1.Cells[0,1] :='Модель';Strngrd1.Cells[1,1]:='конь и слон';

Strngrd1.Cells[0,2]:='Сила фигур';Strngrd1.Cells[1,2]:='Конь = Слон = 3 пешки';  end;

if i=2 then   begin

img1.Visible:=True;

img2.Visible:=False;

img3.Visible:=False;

img4.Visible:=False;

img5.Visible:=False;

img6.Visible:=False ;

img7.Visible:=False ;

Strngrd1.Cells[0,1] :='Ход';Strngrd1.Cells[1,1]:='русской буквой «Г»';

Strngrd1.Cells[0,2]:='Особенность';Strngrd1.Cells[1,2]:='ходит  не по прямой линии'; end;

 if i=3 then       begin

img2.Visible:=True;

img1.Visible:=False;

img3.Visible:=False;

img4.Visible:=False;

img5.Visible:=False;

img6.Visible:=False ;

img7.Visible:=False ;

Strngrd1.Cells[0,1] :='Ход';Strngrd1.Cells[1,1]:='любое число полей  по диагоналям';

Strngrd1.Cells[0,2]:='Особенность';Strngrd1.Cells[1,2]:='перешагивает  через свои и чужие фигуры';end; 

 if i=4 then     begin

img2.Visible:=false;

img1.Visible:=False;

img3.Visible:=False;

img4.Visible:=False;

img5.Visible:=False;

img6.Visible:=False ;

img7.Visible:=False ;

Strngrd1.Cells[0,1] :='Модель';Strngrd1.Cells[1,1]:='ладья и ферзь';

Strngrd1.Cells[0,2]:= 'Сила фигур';Strngrd1.Cells[1,2]:='Ладья = 4,5 пешек,Ферзь = 9 пешек'; end;

if i=0 then    begin

img1.Visible:=False;

img2.Visible:=False;

img3.Visible:=False;

img4.Visible:=False;

img5.Visible:=False;

img6.Visible:=False ;

img7.Visible:=true ;

Strngrd1.Cells[0,1] :='Игрок';Strngrd1.Cells[1,1]:='16 фигур';

Strngrd1.Cells[0,2]:= 'Колчиство игроков';Strngrd1.Cells[1,2]:='2 человека';

end; 

if i=5 then     begin

img3.Visible:=True;

img1.Visible:=False;

img2.Visible:=False;

img4.Visible:=False;

img5.Visible:=False;

img6.Visible:=False ;

img7.Visible:=False ;

Strngrd1.Cells[0,1] :='Ход';Strngrd1.Cells[1,1]:='на любое число  полей  по вертикали или  горизонтали';

Strngrd1.Cells[0,2]:= 'Особенность';Strngrd1.Cells[1,2]:='переводится  как «крепостная башня»';

end;

if i=6 then     begin

img4.Visible:=True;

img1.Visible:=False;

img2.Visible:=False;

img3.Visible:=False;

img5.Visible:=False;

img6.Visible:=False ;

img7.Visible:=False ;

Strngrd1.Cells[0,1] :='Ход';Strngrd1.Cells[1,1]:='на любое число  полей  по вертикали,горизонтали,диагонали';

Strngrd1.Cells[0,2]:= 'Особенность';Strngrd1.Cells[1,2]:='в старину  ходил лишь на одно поле  по диагонали';

end;

if i=7 then     begin

img2.Visible:=false;

img1.Visible:=False;

img3.Visible:=False;

img4.Visible:=False;

img5.Visible:=False;

img6.Visible:=False ;

img7.Visible:=False ;

Strngrd1.Cells[0,1] :='Модель';Strngrd1.Cells[1,1]:='король';

Strngrd1.Cells[0,2]:= 'Сила фигуры';Strngrd1.Cells[1,2]:='король=4-5 пешки';

end;

if i=8 then     begin

img5.Visible:=True;

img1.Visible:=False;

img2.Visible:=False;

img3.Visible:=False;

img4.Visible:=False;

img6.Visible:=False ;

img7.Visible:=False ;

Strngrd1.Cells[0,1] :='Ход';Strngrd1.Cells[1,1]:=' на одно поле  по вертикали, горизонтали или  диагонали';

Strngrd1.Cells[0,2]:= 'Особенность';Strngrd1.Cells[1,2]:='читается самой важной фигурой';

end;

if i=9 then     begin

img2.Visible:=false;

img1.Visible:=False;

img3.Visible:=False;

img4.Visible:=False;

img5.Visible:=False;

img6.Visible:=False ;

img7.Visible:=False ;

Strngrd1.Cells[0,1] :='Модель';Strngrd1.Cells[1,1]:='пешка';

Strngrd1.Cells[0,2]:= 'Сила фигуры';Strngrd1.Cells[1,2]:='самая слабая фигура';

end;

if i=10 then     begin

img6.Visible:=True;

img1.Visible:=False;

img2.Visible:=False;

img3.Visible:=False;

img4.Visible:=False;

img5.Visible:=False ;

img7.Visible:=False ;

Strngrd1.Cells[0,1] :='Ход';Strngrd1.Cells[1,1]:=' на одно поле  по вертикали вперёд';

Strngrd1.Cells[0,2]:= 'Особенность';Strngrd1.Cells[1,2]:='бьёт одно  поле по диагонали вперёд';

end;

end; 
 

procedure TForm1.btn4Click(Sender: TObject);

begin

ShowMessage('Описание  шахматных фигур');

end; 

end.


Информация о работе Изучение компонентов Delphi