Hej Michael
Du skal blot installere nedenstående komponent i din Delphi.
unit Newgrid;
interface
uses
WinProcs, Classes, DBGrids;
type
TNoVertScrollDBGrid = class(TDBGrid)
protected
procedure Paint; override;
end;
procedure Register;
implementation
procedure TNoVertScrollDBGrid.Paint;
begin
// Sæt scroll min og scroll max til 0 dermed fjernes
// scrollbaren
SetScrollRange(Self.Handle, SB_VERT, 0, 0, False);
inherited Paint;
end;
procedure Register;
begin
// Register this component in the 'Data Controls' page
RegisterComponents('Data Controls', [TNoVertScrollDBGrid]);
end;
end.
Mvh
Pølle
"Michael Vilhelmsen" <AAA.Michael.Vilhelmsen@Microcom.dk> skrev i en
meddelelse news:Bvp49.7225$G3.934216@news010.worldonline.dk...
> Hej
>
> Kan man skjule en scroll bar på et TDBGrid (eller TrxDBGrid eller
> TLMDDBGrid) ?
>
> Michael
>
>
>
|