안녕 하세요?

BacTeria 박종민 입니다.

아래는 돋보기 구현 예제 입니다. 참고하세요~

이만.. 박종민...

-------------------------------------------------------------------------------
// 메인 폼에 타이머 컴포넌트를 하나 올려 놓고 Interval을 100정도로
   주고 아래의 코드를 입력 해 보세요~

procedure TForm1.Timer1Timer(Sender: TObject);
var
  Point: TPoint;
  Num: Byte;
begin
  Num := 2; // 확대 배율

  GetCursorPos(Point);

  StretchBlt(Form1.Canvas.Handle, 0, 0, Form1.Width, Form1.Height,
             GetDC(GetDeskTopWindow), Point.X, Point.Y,
             Form1.Width div Num, Form1.Height div Num, SRCCOPY);
end;