Форум: "Основная";
Текущий архив: 2002.12.26;
Скачать: [xml.tar.bz2];
Вниз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;
Скачать: [xml.tar.bz2];
Память: 0.44 MB
Время: 0.007 c