Foros Club Delphi

Foros Club Delphi (https://www.clubdelphi.com/foros/index.php)
-   Trucos (https://www.clubdelphi.com/foros/forumdisplay.php?f=52)
-   -   DBGrid sin barra de deslizamiento vertical (https://www.clubdelphi.com/foros/showthread.php?t=80533)

Neftali [Germán.Estévez] 30-06-2006 09:45:36

DBGrid sin barra de deslizamiento vertical
 
Aquí tienes un nuevo componente DBGrid que no tiene barra de scroll vertical.
Sólo tienes que grabar el código en un fichero llamado DBgridNoSc.PAS y luego instalarlo en Delphi como un componente más.

Código Delphi [-]
unit DBgridNoSc;

interface

uses
     WinTypes, WinProcs, Classes, DBGrids;
type
     TDBgridNoSc = class(TDBGrid)
           protected
           procedure Paint; override;
     end;

procedure Register;

implementation

procedure TDBgridNoSc.Paint;
begin
SetScrollRange(Self.Handle, SB_VERT, 0, 0, False);
inherited Paint;
end;

procedure Register;
begin
RegisterComponents('Data Controls', [TDBgridNoSc]);
end;

end.

NOTA: Para crear un componente sin barra de deslizamiento horizontal, hay que sustituir en el ejemplo anterior SB_VERT por SB_HOR.
Para suprimir ambas barras, hay que añadir ambas líneas de SetScrollRange.


La franja horaria es GMT +2. Ahora son las 11:39:59.

Powered by vBulletin® Version 3.6.8
Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
Traducción al castellano por el equipo de moderadores del Club Delphi