請問各位。 目前有一個圖片，圖片內容為一般表格。 由於圖片９４５＊１７４５那麼大。 圖片會於置如DBEdit等等物件。 可否作到如同WEB方式有捲軸。 如此，使用者才可以拉捲軸編輯資料。 或者，有什麼其他方法。 謝謝。

t0288542 妳好：    妳可以先放一個 ScrollBox (在元件盤的 Additional 頁籤裡) 到 PageControl 上面，Align 屬性設為 alClient，然後再放置 Image 到 ScrollBox 上即可。      7 天天敲鍵盤 v 時時按滑鼠 8 發表人 - RedSnow 於 2005/08/05 16:23:20

可以參考 http://groups.google.com/group/borland.public.delphi.language.objectpascal/browse_thread/thread/f57c18394fb70324/8bfc5c9272c0daf3?lnk=st&q=Delphi+TabSheet+Scrollbar&rnum=1&hl=zh-TW#8bfc5c9272c0daf3

type
  TTabsheet = class( ComCtrls.TTabsheet )
  private
    Procedure WMVScroll( Var msg: TWMSCROLL ); message WM_VSCROLL;
    Procedure WMHScroll( Var msg: TWMSCROLL ); message WM_HSCROLL;
    Procedure HandleScrollbar( Var msg: TWMSCROLL; bar: Integer );
  protected
    Procedure Loaded; override;
  public
    Procedure CreateParams( var params: TCreateParams ); override;
  end;
  TForm1 = class(TForm)
  ....
var
  Form1: TForm1;    implementation    {$R *.DFM}    { TTabsheet }
procedure TTabsheet.CreateParams(var params: TCreateParams);
begin
  inherited;
  params.style := params.Style or WS_VSCROLL or WS_HSCROLL;
end;    procedure TTabsheet.WMHScroll(var msg: TWMSCROLL);
begin
  HandleScrollbar( msg, SB_HORZ );
end;    procedure TTabsheet.WMVScroll(var msg: TWMSCROLL);
begin
  HandleScrollbar( msg, SB_VERT );
end;    procedure TTabsheet.HandleScrollbar(var msg: TWMSCROLL; bar: Integer);
var
  si: TScrollInfo;
  i,oldpos, dx, dy: Integer;
begin
  msg.result := 0; 
  si.cbSize := Sizeof( TscrollInfo ); 
  si.fMask  := SIF_ALL; 
  GetScrollInfo( Handle, bar, si ); 
  oldpos := si.nPos; 
  si.fMask  := SIF_POS; 
  { For simplicities sake we use 1 unit as the small scroll increment 
    and 10 as large one } 
  Case msg.ScrollCode Of 
    SB_TOP      : si.nPos := si.nMin; 
    SB_BOTTOM   : si.nPos := si.nMax; 
    SB_LINEUP   : Dec( si.nPos, 1 );
    SB_LINEDOWN : Inc( si.nPos, 1 ); 
    SB_PAGEUP   : Dec( si.nPos, 10 ); 
    SB_PAGEDOWN : Inc( si.nPos, 10 ); 
    SB_THUMBTRACK, SB_THUMBPOSITION
                : si.nPos := msg.Pos; 
    SB_ENDSCROLL: Exit; 
  End; 
  si.fMask  := SIF_POS; 
  If si.nPos < si.nMin Then 
    si.nPos := si.nMin;
  If si.nPos > si.nMax Then 
    si.nPos := si.nMax; 
  SetScrollInfo( Handle, bar, si, true ); 
  If bar = SB_VERT Then Begin 
    dy := oldpos - si.nPos; 
    dx := 0; 
  End 
  Else Begin 
    dx := oldpos - si.nPos;
    dy := 0;
  End;
  For i:= 0 to Controlcount-1 Do
    With controls[i] Do
      SetBounds( Left dx, Top dy, Width, Height );
end;    procedure TTabsheet.Loaded;
var
  i, maxX, maxY: Integer; 
  c: TControl; 
  si: TScrollInfo; 
begin
  inherited; 
  maxX := 0; 
  maxY := 0;
  for i:= 0 to Controlcount-1 do begin
    c:= controls[i]; 
    c.Align := alNone; 
    // everything else does not work with a scollable parent 
    if (c.Left c.width) > maxX then 
      maxX := c.Left   c.Width; 
    if (c.Top c.Height) > maxY then
      maxY := c.Top   c.Height; 
  end; 
  si.cbSize := Sizeof( TscrollInfo ); 
  si.fMask  := SIF_ALL; 
  si.nMin   := 0; 
  si.nPage  := 0; 
  si.nPos   := 0; 
  if maxX > clientwidth then begin 
    maxX := maxX   GetSystemMetrics( SM_CXVSCROLL );
    si.nMax   := maxX - ClientWidth ; 
    SetScrollInfo( handle, SB_HORZ, si, true ); 
  end 
  else
    ShowScrollbar( handle, SB_HORZ, false );
  if maxY > clientheight then begin 
    maxY := maxY   GetSystemMetrics( SM_CYHSCROLL ); 
    si.nMax   := maxY - clientheight;
    SetScrollInfo( handle, SB_VERT, si, true ); 
  end 
  else 
    ShowScrollbar( handle, SB_VERT, false ); 
end;

～～～～～～～～～～～ 難得聰明，常常糊塗。 ～～～～～～～～～～～