Welcome to ironx.eu.org

Scroll di un TMemo ad una determinata linea

Autor admin

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;