Текущий архив: 2002.12.26;
Скачать: CL | DM;

Вниз

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;

---

← →
Matolch ©   (2002-12-16 22:20) [2]

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

Сволочи...

---

Страницы: 1 вся ветка

Текущий архив: 2002.12.26;
Скачать: CL | DM;

Наверх

Память: 0.47 MB
Время: 0.016 c