Movendo um ScrollBar para dois TRichEdit(imagem vale mais que mil palavras)
Scrolbar do RichEdit
Boa tarde estou querendo fazer uma tela com dois TrichEdit no qual tem um ScrollBar, a idéia é mover um dos Scrollbar e mover os dois textos do Richedit ao mesmo tempo,
tentem exemplificar na imagem em anexo!
Boa tarde estou querendo fazer uma tela com dois TrichEdit no qual tem um ScrollBar, a idéia é mover um dos Scrollbar e mover os dois textos do Richedit ao mesmo tempo,
tentem exemplificar na imagem em anexo!
Anderson Gaitolini
Curtidas 0
Melhor post
Raimundo Pereira
16/08/2016
var
posicao : integer = 0;
procedure TForm1.ScrollBar1Change(Sender: TObject);
begin
posicao := ScrollPos;
if ScrollBar1.Position < posicao then
begin
SendMessage(RichEdit2.Handle, WM_VSCROLL, SB_LINEDOWN, 0);
SendMessage(RichEdit1.Handle, WM_VSCROLL, SB_LINEDOWN, 0);
end
else
begin
SendMessage(RichEdit2.Handle, WM_VSCROLL, SB_LINEUP, 0);
SendMessage(RichEdit1.Handle, WM_VSCROLL, SB_LINEUP, 0);
end;
end;
posicao : integer = 0;
procedure TForm1.ScrollBar1Change(Sender: TObject);
begin
posicao := ScrollPos;
if ScrollBar1.Position < posicao then
begin
SendMessage(RichEdit2.Handle, WM_VSCROLL, SB_LINEDOWN, 0);
SendMessage(RichEdit1.Handle, WM_VSCROLL, SB_LINEDOWN, 0);
end
else
begin
SendMessage(RichEdit2.Handle, WM_VSCROLL, SB_LINEUP, 0);
SendMessage(RichEdit1.Handle, WM_VSCROLL, SB_LINEUP, 0);
end;
end;
GOSTEI 1