マウスカーソルを中心とする25x25ピクセルの矩形領域のイメージをスク
リーン画面から切り取って200x200ピクセルに拡大表示するサンプルプロ
グラムです。

別掲の「透明なウィンドウ」（nifty:FDELPHI/MES/16/1113）の unitを
そのまま利用します。
フォームに TImageをひとつ追加し、以下のコードを追加して下さい。

procedure TForm1.FormCreate(Sender: TObject);
begin
　・・・（省略）・・・・
  // 拡大表示用イメージの設定
  Image1.SetBounds(Screen.Width - 200, 0, 200, 200);
  Image1.Stretch:= True;
end;

procedure TForm1.FormMouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
begin
　・・・（省略）・・・・
  // イメージに拡大表示
  with Image1 do Canvas.CopyRect(Classes.Rect(0, 0, Width, Height),
    FBitmap.Canvas, Classes.Rect(X-12, Y-12, X+13, Y+13));
end;


         　　○ 心を打つ美しい文書作りは「えるの〜と」 ○
                 http://member.nifty.ne.jp/h-triton/
        Avalon's Friendly Crew #80008  H-Triton (^^) since 1996

Original document by H-Triton        氏 ID:(QZV11422)

ここにあるドキュメントは NIFTY SERVEの Delphi Users' Forum の16番会議室「玉石混淆みんなで作るSample蔵」に投稿されたサンプルです。これらのサンプルはボーランド株式会社がサポートする公式のものではありません。また、必ずしも動作が検証されているものではありません。これらのサンプルを使用したことに起因するいかなる損害も投稿者、およびフォーラムスタッフはその責めを負いません。使用者のリスクの範疇でご使用下さい。