我在ScrollBox中，放多個子元件，這些元件是予許拖曳的。 元件間，有一些間隔。當在拖曳過程中，想在指標靠近邊界時，自動移Scrollbar，就像在Word中，拖曳字元，當靠近下邊界時，自動移Scrollbar。 請問該如何作呢？ 我之前的想法是： procedure TForm1.ScrollBox1DragOver(Sender, Source: TObject; X, Y: Integer; State: TDragState; var Accept: Boolean); begin //Application.ProcessMessages; if ((Sender as TControl).Height - Y < 24) and ((Sender as TControl).Height - Y >= 0) then begin ScrollBox1.VertScrollBar.Position := ScrollBox1.VertScrollBar.Position 1; sleep(50); end; Accept := False; end; 把Application.ProcessMessages; 註解掉，似乎是正常動作。 但會造成在拖曳時，其他子元件不會重畫的現像。 但加上Application.ProcessMessages時，會發生一個記憶體錯誤。 請問該如何解？

procedure TForm1.ScrollBox1DragOver(Sender, Source: TObject; X,
  Y: Integer; State: TDragState; var Accept: Boolean);
begin
  if y < 10 then
    ScrollBox1.Perform(WM_VSCROLL,SB_LINEUP,0);
  if y > ScrollBox1.ClientHeight-10 then
    ScrollBox1.Perform(WM_VSCROLL,SB_LINEDOWN,0);
  if x < 10 then
    ScrollBox1.Perform(WM_HSCROLL,SB_LINLEFT,0);
  if X > ScrollBox1.Clientwidth-10 then
    ScrollBox1.Perform(WM_HSCROLL,SB_LINERIGHT,0);
end;

發表人 - ccchen 於 2003/08/08 09:42:15

謝謝！ 大致上是可以執行！但有幾個問題： 一、在拖曳時，執行太快，造成scrollbar一下子就到底了！ 我加了Sleep(50) 二、在拖曳時，若在其他元件上經過時，也會移動Scrollbar，但使得這個元件有點暫留(Caption的字被拉長)，沒有即時的重畫。 加了這行，Application.ProcessMessages; 但在放開時，會出現一個錯誤。 請問，這有方法解決嗎？ 謝謝！

嗯，後來我加了一個Timer，由Timer負責移動ScrollBar... 類似： 在Timer1Timer中…… if FScrollState = ssDwon then ScrollBox1.VertScrollBar.Position := ScrollBox1.VertScrollBar.Position 1 else if FScrollState = ssUp then ScrollBox1.VertScrollBar.Position := ScrollBox1.VertScrollBar.Position - 1; 在ScrollBox1DragOver if ((Sender as TControl).Height - Y < 24) and ((Sender as TControl).Height - Y >= 0) then Timer1.Enabled := True else Timer1.Enabled := False; 目前是合乎我的需求。現在評估這個Timer會不會很吃Resource，如果會的話，要改成ThreadTimer。