Formulir的TEKS:
objek Formulir1: TForm1
Kiri = 192
Atas = 107
BorderStyle = bsTidak Ada
Keterangan = 'Formulir1'
Tinggi Klien = 348
Lebar Klien = 536
Warna = clBtnWajah
Font.Charset = DEFAULT_CHARSET
Font.Warna = clWindowText
Font.Tinggi = -11
Font.Nama = 'MS Sans Serif'
Font.Gaya = []
OldCreateOrder = Salah
OnCreate = Tombol1Klik
PikselPer Inci = 96
Tinggi Teks = 13
objek Tombol1: Tombol T
Kiri = 392
Atas = 152
Lebar = 75
Tinggi = 25
Keterangan = 'Tombol1'
Urutan Tab = 0
OnClick = Tombol1Klik
akhir
objek Button2: TButton
Kiri = 432
Atas = 24
Lebar = 17
Tinggi = 17
Keterangan = 'Tombol2'
Urutan Tab = 1
OnClick = Tombol2Klik
akhir
objek Button3: TButton
Kiri = 448
Atas = 40
Lebar = 17
Tinggi = 17
Keterangan = 'Tombol2'
TabPesanan = 2
OnClick = Tombol3Klik
akhir
objek Button4: TButton
Kiri = 464
Atas = 56
Lebar = 17
Tinggi = 17
Keterangan = 'Tombol2'
Urutan Tab = 3
OnClick = Tombol4Klik
akhir
akhir
各种不同的事件声名:
TForm1 = kelas(TForm)
Tombol1: Tombol T;
Tombol2: Tombol T;
Tombol3: Tombol T;
Tombol4: Tombol T;
Tombol Prosedur1Klik(Pengirim: TObject);
prosedur Button2Click(Pengirim: TObject);
prosedur Button3Click(Pengirim: TObject);
prosedur Button4Click(Pengirim: TObject);
pribadi
prosedur WMmove(var Pesan: TWMNCHITTEST); Pesan WM_NCITEST;
{ Deklarasi pribadi }
publik
{ Pernyataan publik }
akhir;
var
Formulir1: TForm1;
pelaksanaan
{$R *.DFM}
procedure TForm1.WMmove(var Pesan: TWMNCHITTEST);
mulai
Pesan.Hasil := HTCAPTION;
akhir;
prosedur TForm1.Button1Click(Pengirim: TObject);
var
R1,R2,R3,R4,R5: HRGN;
mulai
R1 := CreateEllipticRgn(0,0,Round(ClientWidth / 2),ClientHeight);
R2 := CreateEllipticRgn(Bulat(Lebar Klien / 2),0,Lebar Klien,Tinggi Klien);
R3 := CreateEllipticRgn(Bulat(Lebar Klien / 4 ),Bulat(Tinggi Klien / 4 *3),Bulat(Lebar Klien / 4 *3),Tinggi Klien);
R4 := BuatRectRgn(0,0,0,0);
R5 := BuatRectRgn(0,0,0,0);
GabungkanRgn(R4,R2,R1,RGN_atau);
GabungkanRgn(R5,R4,R3,RGN_atau);
SetWindowRGN(Pegangan,R5,Benar);
HapusObjek(R1);
Hapus Objek(R2);
Hapus Objek(R3);
HapusObjek(R4);
Hapus Objek(R5);
akhir;
procedure TForm1.Button2Click(Pengirim: TObject);
mulai
SendMessage(Menangani,WM_SYSCOMMAND,SC_MINIMIZE,0);
akhir;
prosedur TForm1.Button3Click(Pengirim: TObject);
mulai
Kirim Pesan(Menangani,WM_SYSCOMMAND,SC_DEFAULT,0);
akhir;
prosedur TForm1.Button4Click(Pengirim: TObject);
mulai
aplikasi.Hentikan;
akhir;
akhir.