Come si disabilita il comportamento di scorrimento in vista di TScrollBox?

Question

Possiedo un TScrollBox con un RichEdit più grande della casella di scorrimento, quindi entrambe le barre di scorrimento laterali vengono visualizzate nella casella di scorrimento. Quindi ho una funzione DoTask che chiama RichEdit.SetFocus.

Quando si scorre verso il basso a cui voglio vedere parte del controllo testo, e quindi chiamare DoTask, ScrollBox scorrerà automaticamente verso l'alto di RichEdit. Come posso evitarlo?

Answer 1

Come desideri, ecco alcuni suggerimenti:

• Override SetFocusedControl nella forma:

  function TForm1.SetFocusedControl(Control: TWinControl): Boolean; 
  begin 
      if Control = RichEdit then 
      Result := True 
      else 
      Result := inherited SetFocusedControl(Control); 
  end; 
  

  Oppure:

  type 
      TCustomMemoAccess = class(TCustomMemo); 
  
  function TForm1.SetFocusedControl(Control: TWinControl): Boolean; 
  var 
      Memo: TCustomMemoAccess; 
      Scroller: TScrollingWinControl; 
      Pt: TPoint; 
  begin 
      Result := inherited SetFocusedControl(Control); 
      if (Control is TCustomMemo) and (Control.Parent <> nil) and 
      (Control.Parent is TScrollingWinControl) then 
      begin 
      Memo := TCustomMemoAccess(Control); 
      Scroller := TScrollingWinControl(Memo.Parent); 
      SendMessage(Memo.Handle, EM_POSFROMCHAR, Integer(@Pt), Memo.SelStart); 
      Scroller.VertScrollBar.Position := Scroller.VertScrollBar.Position + 
       Memo.Top + Pt.Y; 
      end; 
  end; 
  

• interporre TScrollBox:

  type 
      TScrollBox = class(Forms.TScrollBox) 
      protected 
      procedure AutoScrollInView(AControl: TControl); override; 
      end; 
  
  procedure TScrollBox.AutoScrollInView(AControl: TControl); 
  begin 
      if not (AControl is TCustomMemo) then 
      inherited AutoScrollInView(AControl); 
  end; 
  

  Oppure:

  procedure TScrollBox.AutoScrollInView(AControl: TControl); 
  begin 
      if (AControl.Top > VertScrollBar.Position + ClientHeight) xor 
       (AControl.Top + AControl.Height < VertScrollBar.Position) then 
      inherited AutoScrollInView(AControl); 
  end; 
  

o utilizzare alcun combinazione creativa di tutto quanto sopra. Come e quando ti piace che scorra solo tu sai.

Answer 2

la soluzione più semplice sarebbe

var a, b : Integer; 
begin 
    a := ScrollBox1.VertScrollBar.Position; 
    b := ScrollBox1.HorzScrollBar.Position; 
    richEdit1.SetFocus; 
    ScrollBox1.VertScrollBar.Position:=a ; 
    ScrollBox1.HorzScrollBar.Position:=b ; 
end; 

Answer 3

Senza hacking in VCL/derivazione di componenti personalizzati, c'è una sola soluzione: TForm.SetFocusedControl esegue l'override + re-imposta le posizioni delle barre di scorrimento come sopra detto. Una cosa che ho aggiunto è disabilitare/abilitare il ridisegno della finestra per evitare brutti salti. Ecco il mio ultimo frammento:

sbContainer è TScrollBox e NoScrCtrl è un controllo che si trova al suo interno che ottiene lo stato attivo ma non vogliamo che venga visualizzato in modalità a scorrimento.

function TForm1.SetFocusedControl(Control: TWinControl): Boolean; 
var hpos, vpos: integer; 
begin 
    if Control = NoScrCtrl then 
    begin 
    sbContainer.Perform(WM_SETREDRAW, WPARAM(False), 0); 
    hpos := sbContainer.HorzScrollBar.Position; 
    vpos := sbContainer.VertScrollBar.Position; 
    Result := inherited SetFocusedControl(Control); 
    sbContainer.HorzScrollBar.Position := hpos; 
    sbContainer.VertScrollBar.Position := vpos; 
    sbContainer.Perform(WM_SETREDRAW, WPARAM(True), 0); 
    sbContainer.Refresh; 
    end 
    else 
    Result := inherited SetFocusedControl(Control); 
end;