Questo blog non rappresenta una testata giornalistica in quanto viene aggiornato quando posso senza nessuna periodicità predefinita (non può pertanto essere considerato un prodotto editoriale ai sensi della Legge n°62 del 7 marzo 2001).

Scroll di un TMemo ad una determinata linea

Autor IronX.net | 26.06.2008 | Category delphi

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;