No hay respuestas en este tema

[sir.dev.a.lot]

[TRUCO DELPHI] Desplazar texto de un TMemo desde Codigo.

delphi

procedure MemoScrollDown(Memo: TMemo);
	var
	 ScrollMessage:TWMVScroll;
	 i:integer;
	begin
	 ScrollMessage.Msg:=WM_VScroll;
	 for i := 0 to Memo.Lines.Count do
	 begin
	  ScrollMessage.ScrollCode:=sb_LineDown;
	  ScrollMessage.Pos:=0;
	  Memo.Dispatch(ScrollMessage);
	 end;
	end;

Ejemplo de uso:

delphi

MemoScrollDown(Memo1);

Saludos!