Als ich zum ersten Mal nach Delphi ging, fühlte ich mich ziemlich gut, aber mein Englisch war zu schlecht und ich erkannte nicht viele der Kontrollen im Inneren.
Als ich anfing, zum Computer zu gehen, schrieb ich ein zufälliges Programm, das die Hintergrundfarbe des Formulars ändern konnte.
Einheit Einheit1;
Schnittstelle
Verwendung
Fenster, Nachrichten, Systeme, Varianten, Klassen, Grafiken, Steuerelemente, Formulare,
Dialoge, Stdctrls;
Typ
Tform1 = Klasse (tform)
Button1: Tbutton;
Button2: Tbutton;
Button4: Tbutton;
Button5: Tbutton;
Button6: Tbutton;
Button3: Tbutton;
PROCEDURE Taste1Click (Absender: Tobject);
PROCEDURE Button2Click (Absender: Tobject);
PROCEDURE Button4Click (Absender: Tobject);
PROCEDURE Taste5Click (Absender: Tobject);
PROCEDURE TAFT6CLICK (Absender: Tobject);
PROCEDURE Button3Click (Absender: Tobject);
Privat
{Private Deklarationen}
öffentlich
{Öffentliche Erklärungen}
Ende;
var
Form1: tform1;
Durchführung
{$ R *.dfm}
procedure tform1.button1click (Absender: tobject);
Beginnen
Form1.Caption: = 'Roter Hintergrund';
Form1.Color: = clred // Die Farbe der Form wird geändert
Ende;
procedure tform1.button2click (Absender: tobject);
Beginnen
Form1.Caption: = 'weißer Hintergrund';
Form1.Color: = clwhite
Ende;
procedure tform1.button4click (Absender: tobject);
Beginnen
Form1.Caption: = 'Blauer Hintergrund';
Form1.Color: = clbLue
Ende;
procedure tform1.button5click (Absender: tobject);
Beginnen
Form1.Caption: = 'Gelber Hintergrund';
Form1.Color: = Clyellow
Ende;
procedure tform1.button6click (Absender: tobject);
Beginnen
Form1.Caption: = 'grüner Hintergrund';
Form1.Color: = clgreen
Ende;
procedure tform1.button3click (Absender: tobject);
Beginnen
Form1.CLOSE
Ende;
Ende.
Ich war sehr froh, zum ersten Mal einen kleinen Code damit zu schreiben.