Fórum Movendo um ScrollBar para dois TRichEdit(imagem vale mais que mil palavras) #560320
16/08/2016
0
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
Curtir tópico
+ 0
Responder
Post mais votado
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;
Raimundo Pereira
Responder
Gostei + 1
Clique aqui para fazer login e interagir na Comunidade :)