A primeira vez que fui a Delphi, me senti muito bem, mas meu inglês foi muito ruim e não reconheci muitos dos controles dentro.
Quando comecei a ir ao computador, escrevi um programa aleatório que poderia alterar a cor de fundo do formulário.
unidade de unidade1;
interface
usos
Janelas, mensagens, sysutils, variantes, classes, gráficos, controles, formulários,
Diálogos, stdctrls;
tipo
Tform1 = classe (tform)
Button1: tbutton;
Button2: tbutton;
Button4: tbutton;
Button5: tbutton;
Button6: tbutton;
Button3: tbutton;
Procedimento Button1Click (remetente: Tobject);
Procedimento Button2Click (remetente: Tobject);
Procedimento Button4Click (remetente: Tobject);
Procedimento Button5Click (remetente: TOBJECT);
Procedimento Button6Click (remetente: Tobject);
Procedimento Button3Click (remetente: Tobject);
Privado
{Declarações privadas}
público
{Declarações públicas}
fim;
var
Form1: TForm1;
Implementação
{$ R *.dfm}
procedimento TForm1.Button1Click (remetente: TOBJECT);
Começar
Form1.Caption: = 'Red Background';
form1.color: = clred // a cor do formulário é alterada
fim;
procedimento TForm1.Button2Click (remetente: TOBJECT);
Começar
Form1.Caption: = 'Bordal White';
Form1.Color: = ClWhite
fim;
procedimento TForm1.Button4Click (remetente: TOBJECT);
Começar
Form1.Caption: = 'Blang Background';
form1.color: = clblue
fim;
Procedimento TForm1.Button5Click (remetente: Tobject);
Começar
Form1.Caption: = 'Anterior Amarelo';
Form1.Color: = Clyellow
fim;
procedimento TForm1.Button6Click (remetente: TObject);
Começar
Form1.Caption: = 'Background Green';
form1.color: = clgreen
fim;
Procedimento TForm1.Button3Click (remetente: Tobject);
Começar
form1.close
fim;
fim.
Fiquei muito feliz em escrever um pequeno código com ele pela primeira vez.