Formulaire的TEXTE：
objet Form1 : TForm1
Gauche = 192
Haut = 107
BorderStyle = bsAucun
Légende = 'Form1'
Hauteur du client = 348
Largeur client = 536
Couleur = clBtnFace
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Police.Hauteur = -11
Police.Nom = 'MS Sans Serif'
Police.Style = []
OldCreateOrder = Faux
OnCreate = Bouton1Clic
PixelsParPouce = 96
Hauteur du texte = 13
objet Button1 : TButton
Gauche = 392
Haut = 152
Largeur = 75
Hauteur = 25
Légende = 'Bouton1'
Ordre de tabulation = 0
SurClic = Bouton1Clic
fin
objet Button2 : TButton
Gauche = 432
Haut = 24
Largeur = 17
Hauteur = 17
Légende = 'Bouton2'
Ordre de tabulation = 1
SurClic = Bouton2Clic
fin
objet Button3 : TButton
Gauche = 448
Haut = 40
Largeur = 17
Hauteur = 17
Légende = 'Bouton2'
Ordre de tabulation = 2
SurClic = Bouton3Clic
fin
objet Button4 : TButton
Gauche = 464
Haut = 56
Largeur = 17
Hauteur = 17
Légende = 'Bouton2'
Ordre de tabulation = 3
SurClic = Bouton4Clic
fin
fin
各种不同的事件声名：
TForm1 = classe(TForm)
Bouton1 : TButton ;
Bouton2 : TButton ;
Bouton3 : TButton ;
Bouton 4 : T Bouton ;
PProcédure Button1Click (Expéditeur : TObject );
procédure Button2Click (Expéditeur : TObject);
procédure Button3Click (Expéditeur : TObject);
procédure Button4Click (Expéditeur : TObject);
privé
procédure WMmove (var Message : TWMNCHITTEST); Message WM_NCHITTEST ;
{ Déclarations privées }
publique
{ Déclarations publiques }
fin;
var
Formulaire1 : TForm1 ;
mise en œuvre
{$R *.DFM}
procédure TForm1.WMmove(var Message : TWMNCHITTEST);
commencer
Message.Résultat := HTCAPTION ;
fin;
procédure TForm1.Button1Click(Expéditeur : TObject);
var
R1, R2, R3, R4, R5 : HRGN ;
commencer
R1 := CreateEllipticRgn(0,0,Round(ClientWidth / 2),ClientHeight);
R2 := CreateEllipticRgn(Round(ClientWidth / 2),0,ClientWidth,ClientHeight);
R3 := CreateEllipticRgn(Round(ClientWidth / 4 ),Round(ClientHeight / 4 *3),Round(ClientWidth / 4 *3),ClientHeight);
R4 := CreateRectRgn(0,0,0,0);
R5 := CreateRectRgn(0,0,0,0);
CombinerRgn(R4,R2,R1,RGN_or);
CombinerRgn(R5,R4,R3,RGN_or);
SetWindowRGN(Poignée,R5,Vrai);
SupprimerObjet(R1);
SupprimerObjet(R2);
SupprimerObjet(R3);
SupprimerObjet(R4);
SupprimerObjet(R5);
fin;
procédure TForm1.Button2Click(Expéditeur : TObject);
commencer
SendMessage (Poignée, WM_SYSCOMMAND, SC_MINIMIZE,0);
fin;
procédure TForm1.Button3Click(Expéditeur : TObject);
commencer
SendMessage (Poignée, WM_SYSCOMMAND, SC_DEFAULT,0);
fin;
procédure TForm1.Button4Click(Expéditeur : TObject);
commencer
application.Terminer ;
fin;
fin.