IronX.net

Questa semplice procedura permette di posizionare lo scroll di un TMemo alla riga desiderata:

procedure MemoScrollToLine(Memo: TMemo; Line: Integer) ;
var
  ScrollMessage:TWMVScroll;
  i:integer;
begin
  ScrollMessage.Msg:=WM_VSCROLL;
  ScrollMessage.ScrollCode:=SB_TOP; // Settiamo lo scroller per posizionarsi all’inizio
  ScrollMessage.Pos:=0;
  mmRAM.Dispatch(ScrollMessage); // Spostiamo lo scroll del memo alla prima linea
  ScrollMessage.ScrollCode:=SB_LINEDOWN; // Settiamo lo scroller per scorrere una riga in basso
  for I:=0 to Line-1 do
    mmRAM.Dispatch(ScrollMessage); //Scorriamo in basso fino alla linea desiderata
end;

Questo articolo è stato scritto giovedì 26 giugno 2008 alle 10:43 ed è stato inserito in delphi. Puoi seguire le riposte attravero i feed RSS 2.0. Puoi lasciare una risposta, o trackback dal tuo sito.