(Resolvido) ScrollBox

[robinhocne]

Pessoal to com uma zica aqui e não consegui resolver.....

tenho em um pnFundo(ScrollBox) e dentro dele no topo tenho um panel(pnTopo) e no resto do pnFundo tenho outro panel(pnCorpo).

dependendo do que eu carrego no pnFundo cria a barra de rolagem em vertical e horizontal....mas ai ao movimentar o pnCorpo eu queria que o pnTopo ficasse paralizado que só o pnTopo movimentasse na Horizontal..

Entenderam ? :huh:

Editado Outubro 26, 2011 por robinhocne

[Jhonas]

eu queria que o pnTopo ficasse paralizado que só o pnTopo movimentasse na Horizontal..

está confuso ... tente explicar melhor

abraço

[robinhocne]

eu queria que o pnTopo ficasse paralizado que só o pnTopo movimentasse na Horizontal..

está confuso ... tente explicar melhor

abraço

ok..

Ele é assim....

Quando rolo a barra de rolagem para baixo o pnTopo sobe...

eu queria que o pnTopo mesmo rolando a barra para baixo não subesse....

[Jhonas]

uma possivel solução

http://www.marcosdellantonio.net/2007/02/2...scroll-e-agora/

abraço

[robinhocne]

uma possivel solução

http://www.marcosdellantonio.net/2007/02/2...scroll-e-agora/

abraço

Fiz dessa maneira mas não deu certo.....

unit Unit2;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, ExtCtrls;

type
  TForm2 = class(TForm)
    pnFundo: TScrollBox;
    Panel2: TPanel;
    Panel1: TPanel;
    procedure FormCreate(Sender: TObject);
  private
     FOldWindowProc: TWndMethod;
       procedure WMVScroll(var Msg: TMessage);
  public
    { Public declarations }
  end;

var
  Form2: TForm2;

implementation

{$R *.dfm}

{ TForm2 }

procedure TForm2.WMVScroll(var Msg: TMessage);
begin
     FOldWindowProc(Msg);

     if (Msg.Msg = WM_VSCROLL) then
         Panel2.Top := pnFundo.VertScrollBar.Position;
end;

procedure TForm2.FormCreate(Sender: TObject);
begin
 FOldWindowProc := pnFundo.WindowProc;
 pnFundo.WindowProc := WMVScroll;
end;

end.

[Jhonas]

tome por base esse exemplo tambem

http://www.swissdelphicenter.ch/torry/showcode.php?id=586

abraço

[robinhocne]

tome por base esse exemplo tambem

http://www.swissdelphicenter.ch/torry/showcode.php?id=586

abraço

valeu Jhonas...