Scrolbars

[[BlueSteel]]

uff... no entendí mucho la pregunta....

podrias especificar más... no se si eso dependa del componente que quieras utilizar... por que puede ser el Scroll de un Grid, de un DBGrid o de otro componente...

Salu2

[cmfab]

Gracias por responder

si es en un dbgrid

necesito capturar la posicion que tienen los scrollbars de un dbgrid
cuando el usuario se mueve con ayuda de ellos. es posible ?

[ecfisa]

Hola cmfab.

Una forma que se me ocurre, es usando la funcion GetScrollInfo .

Código Delphi [-]
...
// Obtener posición horizontal
function TForm1.GetScrollHrzPos(Hnd: THandle): Integer;
var
  Info: TScrollInfo;
begin
  Info.cbSize:= SizeOf(TScrollBarInfo);
  Info.fMask:= SIF_POS;
  GetScrollInfo(Hnd, SB_HORZ, Info);
  Result:= Info.nPos;
end;

// Obtener posición vertical
function TForm1.GetScrollVerPos(Hnd: THandle): Integer;
var
  Info: TScrollInfo;
begin
  Info.cbSize:= SizeOf(TScrollBarInfo);
  Info.fMask:= SIF_POS;
  GetScrollInfo(Hnd, SB_VERT, Info);
  Result:= Info.nPos;
end;
...

Ejemplo de llamada:

Código Delphi [-]
procedure TForm1.DBGrid1KeyDown(Sender: TObject; var Key: Word;  Shift: TShiftState);
begin
  if Key in [VK_LEFT, VK_RIGHT] then
    Caption:= 'Hor: ' + IntToStr(GetScrollHrzPos(TDBGrid(Sender).Handle));
  if Key in [VK_UP, VK_DOWN] then
    Caption:= 'Ver: ' + IntToStr(GetScrollVerPos(TDBGrid(Sender).Handle));
end;

Un saludo.

[cmfab]

Gracias por las respuestas. funciona la lectura (captura) del dato. ahora como puedo cambiar el estado en tiempo de ejecución. osea guardar la posicion del scroll bars y en un momento dado restablecerla

Saludos

[ecfisa]

Hola cmfab.

Usando la función SetScrollInfo

Código Delphi [-]
...
// Situar posición horizontal 
procedure TForm1.SetScrollBarHrzPos(Hnd: THandle; Pos: Integer);
var
  Info: TScrollInfo;
begin
  Info.cbSize:= SizeOf(TScrollInfo);
  Info.fMask:= SIF_POS;
  Info.nPos:= Pos;
  SetScrollInfo(DBGrid1.Handle,SB_HORZ,Info, True);
end;

// Situar posición vertical
procedure TForm1.SetScrollBarVerPos(Hnd: THandle; Pos: Integer);
var
  Info: TScrollInfo;
begin
  Info.cbSize:= SizeOf(TScrollInfo);
  Info.fMask:= SIF_POS;
  Info.nPos:= Pos;
  SetScrollInfo(DBGrid1.Handle,SB_VERT,Info, True);
end;
...

Un saludo.

[cmfab]

gracias mucha por todo