В первый раз, когда я ездил в Дельфи, я чувствовал себя довольно хорошо, но мой английский был очень плохим, и я не узнал многих элементов управления внутри.
Когда я впервые начал идти на компьютер, я написал случайную программу, которая могла бы изменить цвет фона формы.
единица единицы 1;
интерфейс
Использование
Windows, сообщения, Sysutils, варианты, классы, графика, управления, формы,
Диалоги, stdctrls;
тип
Tform1 = class (tform)
Баттон1: Tbutton;
Button2: Tbutton;
Баттон4: Tbutton;
Кнопка5: Tbutton;
Кнопка6: Tbutton;
Button3: Tbutton;
Процедура Button1click (отправитель: tobject);
процедура Button2click (отправитель: tobject);
процедура Button4click (отправитель: Tobject);
процедура Button5click (отправитель: tobject);
процедура Button6click (отправитель: tobject);
процедура Button3click (отправитель: Tobject);
Частный
{Частные объявления}
публичный
{Публичные объявления}
конец;
вар
Форма1: tform1;
Выполнение
{$ R *.dfm}
Процедура tform1.button1click (отправитель: tobject);
Начинать
Form1.caption: = 'красный фон';
form1.color: = clred // Цвет формы изменяется
конец;
Процедура tform1.button2click (отправитель: tobject);
Начинать
form1.caption: = 'белый фон';
form1.color: = clwhite
конец;
Процедура tform1.button4click (отправитель: tobject);
Начинать
form1.caption: = 'Blue Founal';
form1.color: = clblue
конец;
Процедура tform1.button5click (отправитель: tobject);
Начинать
form1.caption: = 'желтый фон';
form1.color: = clyellow
конец;
Процедура tform1.button6click (отправитель: tobject);
Начинать
form1.caption: = 'зеленый фон';
form1.color: = clgreen
конец;
Процедура tform1.button3click (отправитель: tobject);
Начинать
Form1.close
конец;
конец.
Я был очень рад написать с ним небольшой код в первый раз.