Formulario的TEXTO：
objeto Formulario1: TForm1
Izquierda = 192
Arriba = 107
BorderStyle = bsNinguno
Título = 'Formulario1'
Altura del cliente = 348
Ancho del cliente = 536
Color = clBtnCara
Fuente.Charset = DEFAULT_CHARSET
Fuente.Color = clWindowText
Fuente.Altura = -11
Fuente.Nombre = 'MS Sans Serif'
Estilo de fuente = []
OldCreateOrder = Falso
Al crear = Botón1Clic
Píxeles por pulgada = 96
Altura del texto = 13
objeto Botón1: TButton
Izquierda = 392
Arriba = 152
Ancho = 75
Altura = 25
Título = 'Botón1'
Orden de tabulación = 0
Al hacer clic = Botón1Clic
fin
objeto Botón2: TButton
Izquierda = 432
Arriba = 24
Ancho = 17
Altura = 17
Título = 'Botón2'
Orden de tabulación = 1
Al hacer clic = Botón2Clic
fin
objeto Botón3: TButton
Izquierda = 448
Arriba = 40
Ancho = 17
Altura = 17
Título = 'Botón2'
Orden de tabulación = 2
Al hacer clic = Botón3Clic
fin
objeto Botón4: TButton
Izquierda = 464
Arriba = 56
Ancho = 17
Altura = 17
Título = 'Botón2'
Orden de tabulación = 3
Al hacer clic = Botón4Clic
fin
fin
各种不同的事件声名:
TForm1 = clase(TForm)
Botón1: TBotón;
Botón2: TBotón;
Botón3: TBotón;
Botón4: TBotón;
Botón de procedimiento 1 clic (Remitente: TObject);
procedimiento Button2Click(Remitente: TObject);
procedimiento Button3Click(Remitente: TObject);
procedimiento Button4Click(Remitente: TObject);
privado
procedimiento WMmove(var Mensaje: TWMNCHITTEST); Mensaje WM_NCHITTEST;
{ Declaraciones privadas }
público
{ Declaraciones públicas }
fin;
var
Formulario1: TForm1;
implementación
{$R *.DFM}
procedimiento TForm1.WMmove(var Mensaje: TWMNCHITTEST);
comenzar
Mensaje.Resultado := HTCAPTION;
fin;
procedimiento TForm1.Button1Click (Remitente: TObject);
var
R1,R2,R3,R4,R5: HRGN;
comenzar
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);
CombineRgn(R4,R2,R1,RGN_or);
CombineRgn(R5,R4,R3,RGN_or);
SetWindowRGN(Manejar,R5,Verdadero);
EliminarObjeto(R1);
EliminarObjeto(R2);
EliminarObjeto(R3);
EliminarObjeto(R4);
EliminarObjeto(R5);
fin;
procedimiento TForm1.Button2Click (Remitente: TObject);
comenzar
Enviar mensaje (mango, WM_SYSCOMMAND, SC_MINIMIZE, 0);
fin;
procedimiento TForm1.Button3Click(Remitente: TObject);
comenzar
Enviar mensaje (identificador, WM_SYSCOMMAND, SC_DEFAULT, 0);
fin;
procedimiento TForm1.Button4Click (Remitente: TObject);
comenzar
aplicación.Terminar;
fin;
fin.