dlphi问题

来源：百度知道 编辑：UC知道 时间：2024/05/22 15:31:07
在image控件中加入图片,图片太大不能全部显示出来,怎样能在控件中拖动图片?(比如滚动条) 还有怎样获得鼠标在图片上的坐标,不是鼠标在屏幕中的坐标.先跪谢了,回答好还会追加分得~~

你的问题我已基本解决，这是源代码，你把你的邮箱给我，我把整个Demo程序发给你。
unit main;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, ExtCtrls, ExtDlgs, ComCtrls;

type
TForm1 = class(TForm)
Panel1: TPanel;
Panel2: TPanel;
XPoint: TEdit;
YPoint: TEdit;
Label1: TLabel;
Label2: TLabel;
OpenBtn: TButton;
ImageOpenDialog: TOpenPictureDialog;
CK3: TCheckBox;
Panel3: TPanel;
ScrollBox1: TScrollBox;
Image: TImage;
CK5: TCheckBox;
StatusBar1: TStatusBar;
procedure ImageMouseMove(Sender: TObject; Shift: TShiftState; X,
Y: Integer);
procedure OpenBtnClick(Sender: TObject);
procedure ImageDragOver(Sender, Source: TObject; X, Y: Integer;
State: TDragState; var Accept: Boolean);
procedure CK3Click(Sender: TObject);
procedu