DBCtrlCrid

← →
Matolch © (2002-12-16 20:54) [0]

Как бы убрать полосу прокрутки...

← →
Ученик © (2002-12-16 21:59) [1]

Вариант 1

procedure TForm1.DataSource1DataChange(Sender: TObject; Field: TField);
begin
if Field = nil then
ShowScrollBar(DBCtrlGrid1.Handle, SB_VERT, False);
end;

Возможно будет иногда мигать

Вариант 2

type
{ Зависит от версии Delphi, это для Delphi 7 из dbcgrids.pas}
TDBCtrlGridAccess = class(TWinControl)
private
FDataLink: TDBCtrlGridLink;
FPanel: TDBCtrlPanel;
FCanvas: TCanvas;
FColCount: Integer;
FRowCount: Integer;
FPanelWidth: Integer;
FPanelHeight: Integer;
FPanelIndex: Integer;
FPanelCount: Integer;
FBitmapCount: Integer;
FPanelBitmap: HBitmap;
FSaveBitmap: HBitmap;
FPanelDC: HDC;
FOrientation: TDBCtrlGridOrientation;
FPanelBorder: TDBCtrlGridBorder;
FAllowInsert: Boolean;
FAllowDelete: Boolean;
FShowFocus: Boolean;
FFocused: Boolean;
FClicking: Boolean;
FSelColorChanged: Boolean;
FScrollBarKind: Integer;
end;

procedure TForm1.FormShow(Sender: TObject);
begin
with TDBCtrlGridAccess(DBCtrlGrid1) do begin
ShowScrollBar(DBCtrlGrid1.Handle, FScrollBarKind, False);
FScrollBarKind := SB_CTL
end
end;

Спасибо. D6
Не буду я её юзать.

Сволочи...

DBCtrlCrid Найти похожие ветки