(7) merangkak bentuk atau bentuk gambar kontrol
Buat form2 baru dan simpan sebagai capture2.pas. Atur empat properti dari Bordericons atribut ke false.
Borderstyle diatur ke BSNone, FormStyle diatur ke FSSTAYONTOP.
Dua variabel umum: Frect: Trect, FBMP: TBITMAP;
unit capture2;
antarmuka
penggunaan
Windows, pesan, sysutils, varian, kelas, grafik, kontrol, formulir,
Dialog;
jenis
Tform2 = class (tform)
Prosedur FormCreate (pengirim: Tobject);
Prosedur FormActivate (pengirim: Tobject);
Prosedur Formdestroy (pengirim: TOBJEK);
Prosedur FormPaint (Pengirim: Tobject);
Prosedur FormMouseUp (Pengirim: Tobject; Tombol: TMousebutton;
Shift: tshiftate; x, y: integer);
Pribadi
{Deklarasi Pribadi}
publik
Frect: Trect;
FBMP: tbitmap;
akhir;
var
Form2: tform2;
Pelaksanaan
{$ R *.dfm}
// Buat kursor kursor kustom baru dan letakkan di sumber daya capture2.res
// Dalam file, ada perbatasan persegi panjang putih 32*32 untuk menunjukkan kisaran penangkapan.
Prosedur TFORM2.FORMCREATE (Pengirim: Tobject);
var ADC: HDC;
const crhand = -18;
Mulai
Screen.cursors [crhand]: = loadCursor (hinstance, 'cursor_1');
Kursor: = CRHand;
fbmp: = tbitmap.create;
fbmp.width: = screen.width;
fbmp.height: = screen.height;
ADC: = getDC (0);
Bitblt (fbmp.canvas.handle, 0,0, screen.width, screen.height, adc, 0,0, srccopy);
Dirilis (0, ADC);
SetBounds (0,0, screen.width, screen.height);
akhir;
Prosedur tform2.Formactivate (pengirim: TOBJEK);
const crhand = -18;
Mulai
Screen.cursors [crhand]: = loadCursor (hinstance, pchar ('cursor_1'));
Kursor: = CRHand;
akhir;
Prosedur TFORM2.FORMDESTROY (Pengirim: Tobject);
Mulai
fbmp.free;
Screen.cursor: = crdefault;
akhir;
Prosedur tform2.FormPaint (pengirim: tobject);
Mulai
Canvas.draw (0,0, fbmp);
akhir;
Prosedur TFORM2.FORMMOUSEUP (Pengirim: Tobject; Tombol: TMousebutton;
Shift: tshiftate; x, y: integer);
Mulai
ModalResult: = mrok;
akhir;
akhir.