Beispiel für Programmierung von Delphi Bild (5)

3) Kriechen Sie das Formular oder das Steuerungsbild

Erfassen Sie ein Formular oder ein Steuerbild, dh ein neues Form2, siehe "Delphi Image Intercept Programming Beispiel (7)".

Fügen Sie Capture2 in die Verwendung der Haupteinheiten -Implementierung hinzu.

[Windows oder Steuerelemente erfassen] Aktionsereignis für ein Formular oder eine Steuererfassung

Procedure tmainForm.cptWindowsexecute (Absender: tobject);

var p: tPoint;

Beginnen

Inc (Capturenum, 1);

application.minimize;

Verzögerung (500);

Dateiname: = 'capture'+inttoStr (capturenum);

Dateiname: = defaultDirectory+Dateiname;

mit tform2.create (application) do

versuchen

Wenn showmodal = mrok dann

Beginnen

CreatemDichild (Dateiname, True);

StatusBar.Simpletext: = Dateiname;

Verzögerung (500);

Abitmap: = tbitmap.create;

GetCursorpos (p);

Griffe: = WindowFrompoint (p);

Abitmap: = CaptureWindowimage (Griffe);

Child.image1.picture.bitmap: = abitmap;

Child.Clientwidth: = Child.image1.Picture.width;

Child.ClientHeight: = Child.image1.Picture.Height;

Child.HorzScrollBar.Range: = child.image1.picture.width;

Child.vertScrollBar.Range: = Child.image1.Picture.Height;

Child.image1.Hint: = 'Höhe:'+inttoStr (child.image1.picture.height)+'Pixel' '

+'Width:'+inttostr (child.image1.picture.width)+'pixel';

Abitmap.Free;

Ende;

Endlich

Frei;

Anwendung.Restore;

Ende;

Ende;

4) Crawl Icon Bilder

Greifen Sie auf ein Symbolbild, das heißt, ein neues Formular3 zu verwenden. "Delphi Image Intercept Programming Beispiel (8)".

Fügen Sie Capture3 in die Verwendung der Haupteinheiten -Implementierung hinzu.

Fügen Sie privates Prozess Captionicon in der Haupteinheit hinzu:

Verfahren tmainForm.CaptureICon;

Beginnen

mit tform3.create (application) do

versuchen

Wenn showmodal = mrok dann

mit FRECT beginnen

if (rechts> links) und (unten> oben) beginnen

Verzögerung (300);

Abitmap: = tbitmap.create;

Abitmap.Sign (CapturesCreenrect (FRECT));

Child.image1.picture.bitmap: = abitmap;

Child.HorzScrollBar.Range: = child.image1.picture.width;

Child.vertScrollBar.Range: = Child.image1.Picture.Height;

Abitmap.Free;

Ende sonst beginnen

Messagedlg ('Grenzauswahlfehler, erneut versuchen!', Mtinformation, [Mbok], 0);

Kind.CLOSE;

Form3.free;

Ausfahrt;

Ende;

Ende;

Endlich

Frei;

Ende;

Ende;

[Capture Icon] Aktionsereignis für Symbolaufnahmebilder

procedure tmainForm.cpticonexcute (Absender: tobject);

Beginnen

Application.minimize;

Verzögerung (400);

Inc (Capturenum, 1);

Dateiname: = 'capture'+inttoStr (capturenum);

Dateiname: = defaultDirectory+Dateiname;

CreatemDichild (Dateiname, True);

StatusBar.Simpletext: = Dateiname;

Captionicon;

Child.Clientwidth: = Child.image1.Picture.width;

Child.ClientHeight: = Child.image1.Picture.Height;

Child.HorzScrollBar.Range: = child.image1.picture.width;

Child.vertScrollBar.Range: = Child.image1.Picture.Height;

Child.image1.Hint: = 'Höhe:'+inttoStr (child.image1.picture.height)+'Pixel' '

+'Width:'+inttostr (child.image1.picture.width)+'pixel';

Anwendung.Restore;

Ende;