หน้าแรก
 การบ้าน
  C/C++ new
  Java new
 Sourcecode.TV
  Android
  Blackberry
  C/C++
  Java
  Linux
  Windows Phone
  แจ้งเรื่องที่ต้องการ
 บทความ
  .NET
  Android
  Blackberry
  C++Builder
  Delphi
  Java
  Mobile
  Open Source
  Pocket PC
  Visual Basic
  Web
  Windows Phone
  Others
 แบบเรียนฟรี
  ASP
  ASP.NET Webmatrix
  C++
  eVB
  J2ME
  Java
  PHP
 ซอร์สโค้ด
  Android
  ASP
  C++
  VC++
  CGI-Perl
  Delphi
  Java
  jQuery
  PHP
  Visual Basic
  .NET
 บริการจากเรา
  เปิดท้าย... ขายโค้ด
  DoodeeHosting
  รับออกแบบ พัฒนาเว็บไซต์
  Freeware
  อัตราค่าโฆษณา
  รายชื่อลูกค้า
  สถิติผู้เข้าเว็บ
 ดาว์นโหลด
 ค้นหาข้อมูล
 กระดานสนทนา
  .NET
  C/C++
  Delphi
  Java
  Palm/PocketPC
  Visual Basic
  Web
  อื่นๆ
 กระดานงาน
 ลิงค์เว็บ
 เกี่ยวกับผม
 อัตราค่าโฆษณา
Social Network

Facebook  Twitter  YouTube
 New Article
 Webboard
 Freelanceboard
Freeware
โปรแกรมเบอร์ดี (BerDee)
โปรแกรมเบอร์ดี (Android)
เกมส์เป่ายิ้งฉุบ
เกมส์เป่ายิ้งฉุบ(Android)
WebcamMonitor
WebcamMonitor(Windows)
scSendMail
scSendMail(Windows)
MSN Caption
MSN Caption(Windows)
  Freelance comment
  ติดต่อสอบถามมาได้ตลอดนะครับ...
2015-07-29 13:35:58
  ถ้าผมต้องการเว็บที่พัฒนาด้วย HTML5 ...
2015-01-18 15:33:54
  ถ้าผมต้องการเว็บที่พัฒนาด้วย HTML5 ...
2015-01-18 15:32:51
  ติดต่อสอบถามเข้ามาได้นะคับ
งานเล...

2014-01-06 12:47:38
  ถ้ายังหาคนสอนไม่ได้ ก็ลองศึกษาเองได...
2013-07-06 01:04:37
  สนใจส่งขอบเขตมาคุยราคาก่อนได้นะคับ...
2013-03-24 18:54:20
  ถ้ายังไม่มีคนรับงานติดต่อได้ครับ 08...
2012-12-16 19:18:14
  สนใจคะ ติดต่อ 0905076277...
2012-11-12 11:07:46
  รับทำโปรเจ็คนักศึกษาหรือบริษัท
ส...

2012-10-29 03:10:46
  sukit_te34@hotmail.com...
2012-10-29 03:09:36
  Webboard comment
  รับ สอน matlab เขียน matlab...
2017-06-03 16:27:23
  เฉพาะทางขนาดนี้ คงต้องดูหาข...
2017-05-25 16:18:08
  โห เครื่องรุ่นไหนครับ os รุ...
2017-05-25 16:12:47
  ถ้าเขียน php ก็ใช้ curl ส่...
2017-04-20 01:04:20
  เขียนโค้ดไม่เป็น เอาโค้ดไป ...
2017-03-27 12:50:54
  คือสงสัยว่าทำไม ต้องอัพเดทด...
2017-03-27 12:37:20
  ทดสอบการตอบ...
2017-02-22 13:10:24
  ลองอีกวิธีเขียน recursive f...
2017-02-14 13:11:03
  อยากได้ โค้ดระบบห้องสมุดมาก...
2017-01-30 11:45:28
  ทำ for-loop ซ้อนกัน
โดย...

2017-01-28 16:00:12
  Homework comment
  ทำเอง งง เอง กะลังทำใหม่ค่ะ ^^...
2017-04-18 18:40:46
  ทำเอง งง เอง กะลังทำใหม่ค่ะ ^^...
2017-04-18 18:37:54
  ประเด็นแรก flowchart มันไม่มีภ...
2017-04-18 17:43:33
  อยากได้ flowchart ค่ะ เป็นภาษา...
2017-04-18 16:25:29
  kungking คำถามคืออะไรครับ ?...
2017-03-18 23:28:36
  จงเขียนโปรแกรมแสดงผลรวมของตัวเ...
2017-03-06 10:56:25
  ก็โค้ดทำงานคล้ายๆแบบนี้หละ แต่...
2016-09-06 01:00:12
  ผมอยากทราบว่าโค้ดนับถอยหลังเป็...
2016-09-05 09:31:27
  ได้โค้ดแล้ว ลองศึกษาแล้วเขียนผ...
2016-04-22 00:47:49
  ขอแผนผังของโปรแกรมนับตัวอักษรภ...
2016-04-21 19:24:55
  Article comment
  ครับ คุณ "ติด" แล้วลองนึกต่อว่...
2016-06-18 15:21:09
  vs2008 c# ครับ ขอบคุณครับ...
2016-06-17 14:39:30
  ผมใช้ vs c# ทำตามทุขั้นตอนแต่ต...
2016-06-17 14:37:44
  ต้องวิเคราะห์ครับ "ว่าจริงๆ ส่...
2016-03-12 23:36:05
  ผมส่งข้อความในวง LAN ได้เฉพาะค...
2016-03-12 18:25:42
  โปรแกรม Terminal บน Mac ก็เป็น...
2016-02-16 11:02:01
  โปรแกรม Terminal คืออะไรหรอคะ...
2016-02-16 05:58:21
  ไปตั้ง โครงการไว้เลยครับ ที่
2016-01-25 13:29:55
  ด่วน!!! ต้องการคนเขียน App โดย...
2016-01-25 10:56:34
  ผมได้ทำตามคำแนะนำจนสิ้นสุดแล้ว...
2016-01-20 23:30:25
  9Mcode comment
  อยากได้...
2014-02-21 08:52:19

Link Exchange

อัตราค่าโฆษณา
Statistics of Sourcecode in Thailand
 
Zoom หน้าจอด้วย Delphi (อ่าน 16,298)
ศุภกิจ ทองดี (9'M) บทความโดย: นาย ศุภกิจ ทองดี (9'M)
e-mail: webmaster@sourcecode.in.th
mobile: 09-5009-5351
Line: suppakit.thongdee
Youtube: 9Mcode
Fanpage: Sourcecode.in.th
   
: ดาว์นโหลดตัวอย่างโปรแกรม (ดาว์นโหลด 2,118 ครั้ง)

- - - - - - - - - - - - - - ผู้ให้การสนับสนุน- - - - - - - - - - - - - -

 
 
Freelanceรับพัฒนาโปรแกรม และเว็บ โดย 9'M 

ในตัวอย่างบทความต่อไปนี้ จะนำเสนอถึงโค้ดโปรแกรม ในการดึงภาพจากหน้าจอขึ้นมา ตามตำแหน่งของเมาส์ โดยจะนำภาพที่ได้มาแสดงบนหน้าต่างของโปรแกรม ชุดโปรแกรมที่ผมจะนำมาใช้ ในที่นี้คือ Borland Developer Studion 2006 (ในที่นี้ ผมขอเรียกกว่า BDS) ซึ่งจะเลือกใช้ชุดพัฒนาของ Delphi ดังนั้นโค้ดในตัวอย่างบทความนี้ คุณสามารถนำไปใช้กับ Delphi รุ่น 5,6 หรือ 7 ได้เหมือนกันครับ

สำหรับท่านที่ได้ที่ติดตั้งโปรแกรม BDS อยู่แล้ว ให้ทำการสร้างโปรเจคใหม่ โดยเลือกจาก เมนู File->New->VCL Forms Application - Delphi for Win32 จะปรากฏหน้าต่างของโปรแกรม

ต่อจากนั้นให้ทำการวางคอนโทรลที่อยู่ด้านข้าง 2 อย่างด้วยกันคือ TTimer และ TImage ดังรูป

ออกแบบหน้าต่างโปรแกรม
รูปที่ 1 หน้าต่างการวางคอนโทรล

ในที่นี้ เราจะใช้ Image1 ในการแสดงผล สำหรับ Timer1 นั้นจะเป็นส่วนของการดึงภาพจากหน้าจอ ขึ้นมาแสดงบน Image1

ขั้นตอนต่อมาจะเป็นการใส่โค้ดลงในส่วนของ Timer1 โดยทำการกำหนดคุณสมบัติของ Timer1 โดยมีค่าดังนี้ Enabled=True และ Interval=1000

จากนั้นให้ทำการดับเบิ้ลคลิกบน Timer1 และป้อนโค้ดดังต่อไปนี้

procedure TForm1.Timer1Timer(Sender: TObject);
var
  AppRect, SourceRect: TRect;
  Canvas : TCanvas;
  Point : TPoint;
  Mag : Integer;
begin

  if not IsIconic(Application.Handle) then
  begin
    AppRect := Rect(Self.Left,Self.Top,self.Left+self.Width,self.Top+self.Height );
    GetCursorPos(Point);
    if not PtInRect(AppRect,Point) then
    begin
      Canvas  :=TCanvas.Create;
      Canvas.Handle := GetDC(GetDesktopWindow);
      Mag :=4;
      SourceRect := Rect(Point.X,Point.Y,Point.X,Point.Y);
      InflateRect(SourceRect,Round(Image1.Width/Mag),Round(Image1.Height/Mag));
      Image1.Canvas.CopyRect(Image1.BoundsRect,Canvas,SourceRect);
      Canvas.Free;
      Application.ProcessMessages;
    end;

  end;

end;

จากโค้ดจะเป็นการประกาศตัวแปรแบบ TRect ซึ่งสามารถเก็บค่าที่เป็นตำแหน่งและขนาดของหน้าต่าง, ตัวแปร TCanvas ใช้สำหรับเก็บค่าของพื้นที่ ในส่วนที่สามารถวาดภาพหรือวางรูปภาพลงไปได้

เริ่มต้นจะเป็นการตรวจสอบว่าโปรแกรมไม่ได้อยู่ในโหมดของการย่อหน้าต่าง จากนั้นทำการสร้างตัวแปร AppRect สำหรับเก็บตำแหน่งและขนาดของหน้าต่างโปรแกรมที่ทำงานอยู่ในขณะนั้น ขั้นตอนถัดมาเป็นการ หาตำแหน่งของเคอร์เซอร์ไปเก็บไว้ในตัวแปร Point

ต่อมาจะทำการตรวจสอบว่าตำแหน่งของ เคอร์เซอร์ อยู่ในพื้นที่ของ AppRect หรือไม่ หากไม่อยู่ในพื้นที่ของโปรแกรม จะทำการสร้าง Canvas และใช้วิธีดึงภาพจากหน้าจอขึ้นมา หลังจากนั้นจะทำการตัดภาพที่ดึงมา โดยจะตัดภาพให้มีขนาดเป็นจำนวนเท่า ตามที่กำหนดไว้ใน ตัวแปร Mag มาใส่ไว้ใน คอนโทรล Image1

และสุดท้ายจะเป็นการเรียกใช้ Application.ProcessMessages เพื่อให้มีการตรวจสอบ เหตุการณ์อื่นๆของหน้าต่าง ไม่เช่นนั้นแล้ว หน้าต่างจะค้างนิ่ง ไม่ตอบสนองเหตุการณ์อื่นๆ (ไม่เชื่อก็ลอง เอาออกดูได้ครับ)

สุดท้ายก็แค่กดปุ่ม F9 เพื่อสั่งให้โปรแกรมทำงาน เพียงเท่านี้ คุณจะได้โปรแกรม Zoom หน้าจออย่างง่าย มาใช้งานแล้วครับ

?

ผลการทำงานของโปรแกรม
รูปที่ 2 แสดงหน้าต่าง Run

ทิ้งท้าย
หวังว่าโค้ด เล็กๆน้อยๆ นี้จะเป็นประโยชน์บ้างสำหรับ เพื่อนๆพี่ๆน้อง ทุกท่าน ขอขอบคุณที่ให้ความสนใจ และติดตามเว็บเรา ด้วยดี เสมอมา แล้วพบกันใหม่กับ 9'M

: ดาว์นโหลดตัวอย่างโปรแกรม (ดาว์นโหลด 2,118 ครั้ง)
 

- - - - - - - - - - - - - - ผู้ให้การสนับสนุน- - - - - - - - - - - - - -

สอบถาม
  • ห้ามการโฆษณา หากต้องการติดต่อหาลูกค้า ติดต่อโฆษณาโดยตรงได้ที่ webmaster@sourcecode.in.th
  • ห้ามใช้คำหยาบและคำพูดที่ไม่เหมาะสม
  • ขอสงวนสิทธิหากตรวจพบ ข้อความที่ไม่เหมาะสม ข้อความนั้นจะถูกลบทันที
ชื่อ
อีเมล์
รายละเอียด

 
 
สายต่อจอ สำหรับเครื่อง macbook pro 2016 (usb-c to HDMI)
สายต่อจอ สำหรับเครื่อง macbook pro 2016 (usb-c to HDMI) ความละเอียดระดับ 4K
หัวแปลง Mini DisplayPort to HDMI Adapter หัวแปลง Mini DisplayPort to HDMI Adapter สำหรับเครื่อง macbook air/pro, mac mini
หัวแปลง Mini DisplayPort to HDMI Adapter สำหรับเครื่อง macbook air/pro, mac mini
สายต่อหูฟัง และชาร์จไฟ สำหรับ iPhone 7 และ 7 Plus
สายต่อหูฟัง และชาร์จไฟ สำหรับ iPhone 7 และ 7 Plus
หัวแปลงจาก USB-C Type ไปเป็น USB 3.1 สำหรับ MacBook
หัวแปลงจาก USB-C Type ไปเป็น USB 3.1 สำหรับ MacBook
ไขควงสำหรับเครื่อง Macbook Air/Pro
ไขควง สำหรับแกะเครื่อง Macbook Air/Pro (300บาท)
HDMI เข้า 3 ออก  1 มีรีโมท
HDMI เข้า 3 ออก 1 มีรีโมท (350บาท)
คลิปสอนเขียนโปรแกรม
เรียนเขียนโปรแกรมดอทเน็ต
เรียนเขียนโปรแกรมแอนดรอยด์
เรียนเขียนโปรแกรมเบล็คเบอร์รี่
เรียนเขียนโปรแกรมซี ซีพลัสพลัส
เรียนเขียนโปรแกรมจาวา
เรียนการใช้งานลินุกส์
เรียนการเขียนโปรแกรมวินโดว์โฟน
เรียนการเขียนโปรแกรมพีเฮชพี มายเอสคิวเอล
9M Blog บอกเล่าเรื่องราว การเขียนโปรแกรมของ นายเอ็ม
บริการ ถ่ายภาพรับปริญญา
OrmSin.com: ขายหนังสืองานฝีมือไทย-ญี่ปุ่น-จีน (country crafts)
อัตราค่าโฆษณา
 
บทความที่เกี่ยวข้อง

What?s new in Delphi 2005 #1 ( for ?in loop statement)

Dynamic Cast ใน Delphi

เขียนโปรแกรมให้ Run ตอน Startup Windows

สร้าง LED Control

การเขียน ActiveForm(ActiveX Control) เบื้องต้น

โปรแกรม Post ข้อมูล ไปยังไฟล์ ASP

แสดงหมายเลข IP Address ของเครื่องบน NetWork

การแสดงรายชื่อ Email Contact ของ Microsoft Outlook

การหาตำแหน่งของ Caret ใน Memo

การเขียน Service Application เพื่อใช้งานบน Windows NT/2000/XP
Tutorial
eVB Tutorial
ASP.NET Webmatrix Tutorial
J2ME Tutorial
C++  Tutorial
Java  Tutorial
PHP Tutorial
ASP Tutorial
 
แบบสำรวจ
Freelance รับพัฒนาโปรแกรม

Home - Article - Tutorial - Sourcecode - Dev Handbook - Search - WebBoard - Links - About Us

สงวนลิขสิทธิ์ ห้ามคัดลอก ทำซ้ำ แก้ไข ดัดแปลง ไม่ว่าในรูปแบบใด โดยไม่ได้รับอนุญาตเป็นลายลักษณ์อักษร
เลขทะเบียนพาณิชย์อิเล็กทรอนิกส์จากกระทรวงพาณิชย์: 7100503002000
Copyright 2001 SourceCode.in.th