42591

При натисненні на кнопку 1 змінити написання тексту деякої мітки (встановити атрібути курсив та підкреслений)

Лабораторная работа

Информатика, кибернетика и программирование

Розмістити на формі необхідні для виконання індивідуального завдання компоненти TEdit TLbel TButton. Програмний код: unit lb1; interfce uses Windows Messges SysUtils Vrints Clsses Grphics Controls Forms Dilogs StdCtrls; type TForm1 = clssTForm Button1: TButton; Button2: TButton; Edit1: TEdit; Lbel1: TLbel; procedure Button1ClickSender: TObject; procedure Button2ClickSender: TObject; privte { Privte declrtions } public { Public declrtions } end; vr Form1: TForm1;...

Украинкский

2013-10-30

66.5 KB

1 чел.

Міністерство освіти і науки, молоді та спорту України

Київська державна академія водного транспорту імені гетьмана Петра Коношевича-Сагайдачного

Звіт

По виконанню лабораторної роботи №1

З дисципліни «Основи програмування»

Виконав:

Студент І курсу

спеціальності «Програмна інженерія»

групи 1119

Харлим Сергій

Київ 2012

Завдання

1. Створити новий проект з одним головним вікном: FileNewApplication.

2. Зберігти файл проекту та файл модуля у власній директорії: FileSave Project As…

3. Змінити зовнішній вигляд форми за власним смаком:

  •  В заголовок форми додати назву групи, номер варіанту, власне прізвище та ініціали.
  •  Змінити розміри, колір та піктограму форми.

4. Розмістити на формі необхідні для виконання індивідуального завдання компоненти (TEdit, TLabel, TButton).

5. При створенні форми в мітці 1 вивести текст індивідуального завдання.

6. В редакторі коду написати необхідні процедури обробки подій, які б забезпечували необхідну функціональність додатку.

Індивідуальне завдання

15

При натисненні на кнопку 1 змінити написання тексту деякої мітки (встановити атрібути курсив та підкреслений). При натисненні на кнопку 2 в полі компоненту Edit1 вивести своє ім’я.

Програмний код:

unit laba1;

interface

uses

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

 Dialogs, StdCtrls;

type

 TForm1 = class(TForm)

   Button1: TButton;

   Button2: TButton;

   Edit1: TEdit;

   Label1: TLabel;

   procedure Button1Click(Sender: TObject);

   procedure Button2Click(Sender: TObject);

 private

   { Private declarations }

 public

   { Public declarations }

 end;

var

 Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);

begin

  Label1.Caption:='Text';

end;

procedure TForm1.Button2Click(Sender: TObject);

begin

  Label1.Caption:=Edit1.Text;

end;

end.

Результати роботи програми:


 

А также другие работы, которые могут Вас заинтересовать

6756. Гаметогенез у человека 27.78 KB
  Гаметогенез у человека Процесс образования половых клеток называется гаметогенез. Он происходит в половых органах - гонадах. Гаметогенез имеет определенные особенности, зависящие от пола организма, в котором происходит мейоз. Формирование мужск...
6757. Биохимические основы наследственности человека 30.86 KB
  Биохимические основы наследственностичеловека Химические основы наследственности. Несмотря на то, что ДНК была известна с 1869 г. и наличие её в хромосомах было хорошо доказано, эту молекулу считали слишком простой для передачи наследственной ...
6758. Закономерности наследование признаков человека 33.83 KB
  Закономерности наследование признаков человека Основные закономерности наследования признаков в поколениях были открыты чешским исследователем Г. Менделем, опубликовавшим в 1866 году Опыты над растительными гибридами. Статья не привлекла внимания ...
6759. Взаимодействие генов. Изменчивость 38.64 KB
  Взаимодействие генов. Изменчивость Взаимодействие генов. Признаки появляются в результате взаимодействия генотипа с окружающей средой. Различают взаимодействие аллельных и неаллельных генов. Взаимодействие аллельных генов. Полное доминирование...
6760. Генеалогический метод исследования наследственности человека 38.62 KB
  Генеалогический метод исследования наследственности человека В настоящее время медицинская генетика располагает огромным количеством методов исследования, позволяющих решать подавляющее большинство практических и теоретических вопросов. Ряд из этих ...
6761. Наследственность и патология. Хромосомные болезни человека 30.53 KB
  Наследственность и патология. Хромосомные болезни человека Наследственные факторы могут принимать самое непосредственное участие в формировании патологических процессов. Наследственность может быть этиологическим фактором или играть роль в патогенез...
6762. Клинические синдромы при аномалиях аутосом 36.82 KB
  Клинические синдромы при аномалиях аутосом. Нарушения нервно-психического и физического развития особенно характерны для изменений, затрагивающих количество или структуру аутосомных хромосом. Среди них чаще всего встречаются трисомии, в первую очере...
6763. Клинические синдромы при аномалиях половых хромосом 35.75 KB
  Клинические синдромы при аномалиях половых хромосом. Синдром Шерешевского-Тернера. В 1925 году Н.А.Шерешевский описал сочетание низкого роста, кожной складки и нарушения полового развития. В 1938 году Н. Тернер дал полное описание этого заболевания,...
6764. Клинические синдромы при структурных аномалиях хромосом 29.24 KB
  Клинические синдромы при структурных аномалиях хромосом. Структурные аномалии хромосом обычно сопровождаются меньшим генным дисбалансом, чем полные трисомии, поэтому они описаны у живорожденных детей для всех типов аутосом. Клинически и цитогенетиче...