Rolar 2 Memos

[Guest - rafael -]

Como eu faço para rolar 2 memos usando a barra de um só ou uma barra de rolagem só

[s3c]

No memo que terá a barra, você terá que criá-lo em tempo de execução como descendente de TMemo e definir a procedure WndProc p/ pegar a mensagem WM_VSCROLL e mandá-la por SendMessage p/ o memo sem a barra.

Não esqueça que WndProc é override.

[Guest - rafael -]

poderia me dar um exemplo

[s3c]

type TMeuMemo = class(TMemo)
       procedure WndProc(var Msg:TMessage); override;
end;
implementation
{$R *.dfm}
procedure TForm1.FormCreate(Sender: TObject);
var MeuMemo :TMeuMemo;
begin
// Aqui você cria o Memo com barras e define tamanho e Left, Top
  MeuMemo        := TMeuMemo.Create(Self);
  MeuMemo.Parent := Self;
  MeuMemo.Left   := 50;
  MeuMemo.Top    := 170;
  MeuMemo.Height := 120;
  MeuMemo.Width  := 120;
  MeuMemo.ScrollBars  := ssBoth;
end;
procedure TMeuMemo.WndProc(var Msg:TMessage);
begin
// quando ele receber mensagem de scroll vertical, manda p/ o memo sem barras
// Tem que colocar Form1.Memo1 porque você está em outra classe
  if Msg.Msg = WM_VSCROLL then
    SendMessage(Form1.Memo1.Handle, Msg.Msg, Msg.WParam, Msg.LParam);
  inherited; // não vá esquecer disto, porque é override
end;

[Guest - rafael -]

obrigado pela ajuda.