Головна сторінка
Top.Mail.Ru Яндекс.Метрика
Форум: "Основна";
Поточний архів: 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);
починати
if Field = nil then
ShowScrollBar (DBCtrlGrid1.Handle, SB_VERT, False);
end;

Можливо буде іноді блимати

варіант 2

тип
{Залежить від версії Delphi, це для Delphi 7 з dbcgrids.pas}
TDBCtrlGridAccess = class (TWinControl)
приватний
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);
починати
with TDBCtrlGridAccess (DBCtrlGrid1) do begin
ShowScrollBar (DBCtrlGrid1.Handle, FScrollBarKind, False);
FScrollBarKind: = SB_CTL
кінець
end;



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

Спасибі. D6
Не буду я її юзати.

Сволота ...



сторінки: 1 вся гілка

Форум: "Основна";
Поточний архів: 2002.12.26;
Завантажити: [xml.tar.bz2];

Вгору





Пам'ять: 0.54 MB
Час: 0.023 c
14-86124
Slava_K
2002-12-05 09:17
2002.12.26
Пакет оновлень SP для Delphi 7


14-86164
TTCustomDelphiMaster
2002-12-06 15:34
2002.12.26
П'ятниця - банно склянковий день


4-86218
pag77
2002-11-05 19:07
2002.12.26
запуск додатків в моєму вікні


1-85947
Gaber
2002-12-15 11:42
2002.12.26
Перевірка наявності файлу


1-85925
Nimda
2002-12-17 11:05
2002.12.26
Ne ponal.





африкаанс албанський арабська вірменин азербайджанець баскський білоруський болгарська каталонський Китайська (спрощене письмо) Китайський традиційний) хорватський чеська данську мову нідерландський Ukranian естонець Філіппінська фінську мову французький
галісійська грузинський німецький грецький гаїтянський креольський давньоєврейську хінді угорський ісландський індонезієць ірландський італійський японський корейський латиська литовець македонець малайський мальтійський норвежець
перс полірування португальська румунський російська сербський словацький словенський іспанська суахілі шведську мову тайський турецька український урду в'єтнамський валлійський ідиш бенгальський боснійський
кебуано есперанто гуджараті хауса хмонг ігбо яванський каннада кхмерская Лао латинь маорі маратхі монгольський непальська панджабі сомалійський тамільська телугу йоруба
зулуський
Англійська Французький Німецький Італійський Португальська Русский Іспанська