初めてデルフィに行ったとき、私はかなり気分が良くなりましたが、私の英語はあまりにも悪いもので、内部のコントロールの多くを認識していませんでした。
私が最初にコンピューターに行き始めたとき、フォームの背景色を変更できるランダムプログラムを書きました。
ユニットユニット1;
インタフェース
用途
窓、メッセージ、sysutils、バリアント、クラス、グラフィック、コントロール、フォーム、
ダイアログ、stdctrls;
タイプ
tform1 = class（tform）
Button1：Tbutton;
Button2：tbutton;
Button4：Tbutton;
Button5：Tbutton;
Button6：Tbutton;
Button3：Tbutton;
手順button1click（sender：tobject）;
手順button2click（sender：tobject）;
手順button4click（sender：tobject）;
手順button5click（sender：tobject）;
手順button6click（sender：tobject）;
手順button3click（sender：tobject）;
プライベート
{プライベート宣言}
公共
{公開宣言}
終わり;
var
form1：tform1;
実装
{$ r *.dfm}
手順tform1.button1click（sender：tobject）;
始める
form1.caption：= 'Red Background';
form1.color：= clred //フォームの色が変更されます
終わり;
手順tform1.button2click（sender：tobject）;
始める
form1.caption：= '白い背景';
form1.color：= clwhite
終わり;
手順tform1.button4click（sender：tobject）;
始める
form1.caption：= 'Blue Background';
form1.color：= clblue
終わり;
手順tform1.button5click（sender：tobject）;
始める
form1.caption：= 'Yellow Background';
form1.color：= clowell
終わり;
手順tform1.button6click（sender：tobject）;
始める
form1.caption：= '緑の背景';
form1.color：= clgreen
終わり;
手順tform1.button3click（sender：tobject）;
始める
Form1.Close
終わり;
終わり。
私は初めて小さなコードを書いてとてもうれしかったです。