| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

DBCtrlCrid [D6]

Matolch ©   (2002-12-16 20:54:00) 

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

---

Matolch   (2002-12-16 22:20:00) [1]

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

Сволочи...

---

Ученик   (2002-12-16 21:59:00) [2]

Вариант 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;

---

Наверх