La primera vez que fui a Delphi, me sentí bastante bien, pero mi inglés era una lástima y no reconocí muchos de los controles en el interior.
Cuando comencé a ir a la computadora, escribí un programa aleatorio que podría cambiar el color de fondo del formulario.
Unidad Unidad1;
interfaz
usos
Windows, mensajes, sysutils, variantes, clases, gráficos, controles, formularios,
Diálogo, stdctrls;
tipo
TForm1 = class (tForm)
Botón 1: tbutton;
Button2: tbutton;
Button4: tbutton;
Button5: tbutton;
Button6: tbutton;
Button3: tbutton;
Procedimiento botón1Click (remitente: tobject);
procedimiento Button2Click (remitente: tobject);
Button de procedimiento4Click (remitente: tobject);
procedimiento Button5Click (remitente: tobject);
Procedimiento Button6Click (remitente: tobject);
procedimiento Button3Click (remitente: tobject);
Privado
{Declaraciones privadas}
público
{Declaraciones públicas}
fin;
varilla
Form1: tform1;
Implementación
{$ R *.dfm}
procedimiento tForm1.Button1Click (remitente: tobject);
Comenzar
form1.caption: = 'fondo rojo';
form1.color: = clred // El color de la forma se cambia
fin;
procedimiento tForm1.Button2Click (remitente: tobject);
Comenzar
form1.caption: = 'fondo blanco';
form1.color: = clwhite
fin;
procedimiento tForm1.Button4Click (remitente: tobject);
Comenzar
form1.caption: = 'fondo azul';
form1.color: = clblue
fin;
procedimiento tForm1.Button5Click (remitente: tobject);
Comenzar
form1.caption: = 'fondo amarillo';
form1.color: = clyellow
fin;
procedimiento tForm1.Button6Click (remitente: tobject);
Comenzar
form1.caption: = 'fondo verde';
form1.color: = clgreen
fin;
procedimiento tForm1.Button3Click (remitente: tobject);
Comenzar
form1.clar
fin;
fin.
Estaba muy feliz de escribir un pequeño código con él por primera vez.