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

Вниз

DBGrid и вертикальная полоса прокрутки   Найти похожие ветки 

← →
deepgray   (2004-05-26 15:20) [0]

КАК МОЖНО ЗАСТАВИТЬ DBGRID НЕ ПОКАЗЫВАТЬ ВЕРТИКАЛЬНУЮ ПОЛОСУ ПРОКРУТКИ?

---

← →
Shkut ©   (2004-05-26 19:28) [1]

Вот так:
unit Unit1;

interface

uses
 Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
 Dialogs, DBGrids;

type
 TMyGrid = class(TDBGrid)
 public
   procedure CreateParams(var Params: TCreateParams);override;
 end;

 TForm1 = class(TForm)
   procedure FormCreate(Sender: TObject);
 private
   { Private declarations }
 public
   { Public declarations }
 end;

var
 Form1: TForm1;

implementation

{$R *.dfm}

{ TMyGrid }

procedure TMyGrid.CreateParams(var Params: TCreateParams);
begin
 inherited CreateParams(Params);
 Params.Style := Params.Style xor ws_HScroll;
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
 With TMyGrid.Create(Self) do
 begin
   Parent:=self;
   Show;
 end;
end;

end.

---

← →
Shkut ©   (2004-05-26 19:30) [2]

Ошибочка: не xor ws_HScroll а xor ws_VScroll

---

← →
Shkut ©   (2004-05-26 19:37) [3]

Короче говоря первый вариант рабочий.
Попробовал первый - получилось, потом думаю, а почему
ws_HScroll - это же горизонталная полоса, и написал добавку.
(не подумавши) :)

---

← →
Stupid   (2004-05-27 11:14) [4]

A kak sdelat", chto-bi on ne ischezal nezavisimo ot kol-va strok?

---

← →
Amoeba ©   (2004-05-27 14:29) [5]

Если не ошибаюсь, нужные возможности (+ туева хуча прочих фич) предоставляет DBGridEh из бибилиотеки EhLib
http://www.ehlib.com/RUS/downloads.htm
Для СНГ бесплатная, с исходниками.

---

← →
MBo ©   (2004-05-27 14:34) [6]

ShowScrollBar по какому-либо событию DataSet или DataSource, приводящему к перерисовке.

---

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

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

Наверх

Память: 0.48 MB
Время: 0.051 c