(7) Crawl le formulaire de forme ou de contrôle
Créez un nouveau formulaire et enregistrez-le en capture2.pas. Définissez les quatre propriétés de l'attribut BorderICONS sur FALSE.
Borderstyle est défini sur bsnone, FormStyle est défini sur fsstayontop.
Deux variables communes: Frect: Trect, FBMP: tbitmap;
Capture unitaire2;
interface
usages
Windows, messages, systèmes, variantes, classes, graphiques, contrôles, formulaires,
Dialogues;
taper
Tform2 = classe (tform)
Procédure FormCreate (expéditeur: tobject);
Procédure Formativate (expéditeur: tobject);
Procédure FormDestroy (expéditeur: tobject);
Procédure FormPaint (expéditeur: tobject);
Procédure FormMouseUp (expéditeur: tobject; bouton: tmouseButton;
Shift: tshiftstate; x, y: entier);
Privé
{Déclarations privées}
publique
Frect: Trect;
FBMP: tbitmap;
fin;
var
Form2: tform2;
Mise en œuvre
{$ R * .dfm}
// Créez un nouveau curseur de curseur personnalisé et placez-le dans CAPTURE2.RES RESSOURCE
// Dans le fichier, il y a un bord rectangulaire blanc de 32 * 32 pour indiquer la plage de la capture.
Procédure TForm2.FormCreate (Sender: TObject);
var ADC: HDC;
const Crhand = -18;
Commencer
Screp.cursors [crhand]: = loadCursor (hinstance, 'cursor_1');
Curseur: = crand;
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);
Libéré (0, ADC);
SetBounds (0,0, écran.Width, Screen.Height);
fin;
Procédure TForm2.FormAntivate (expéditeur: tobject);
const Crhand = -18;
Commencer
Screp.cursors [crhand]: = loadCursor (hinstance, phar ('cursor_1'));
Curseur: = crhand;
fin;
Procédure tform2.formDestroy (expéditeur: tobject);
Commencer
fbmp.free;
Screen.Cursor: = Crdefault;
fin;
procédure tform2.formpaint (expéditeur: tobject);
Commencer
Canvas.Draw (0,0, FBMP);
fin;
Procédure TForm2.FormMouseUp (Sender: TOBject; Bouton: TMouseButton;
Shift: tshiftstate; x, y: entier);
Commencer
ModalResult: = MROK;
fin;
fin.