Рабочий код перестал работать.

← →
SottNick © (2002-11-28 07:18) [0]

Рабочая демка.
Была...
EXE-шник рабочий остался,
но компилятор теперь ругаться начал
[Error] Unit1.pas(44): Incompatible types: "TMyGrid" and "TDBGrid"

ЧТО СТРЯСЛОСЬ?

unit Unit1; interface uses Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs, Grids, DBGrids, StdCtrls; procedure KillScrollBars(Sender: TDBGrid); type TForm1 = class(TForm) DBGrid1: TDBGrid; Button1: TButton; Button2: TButton; procedure Button1Click(Sender: TObject); procedure Button2Click(Sender: TObject); private { Private declarations } public { Public declarations } end; var Form1: TForm1; implementation {$R *.DFM} type TMyGrid = class(TCustomGrid) private public procedure NotScrollBars; end; procedure TMyGrid.NotScrollBars; begin scrollbars:=ssNone; { Защищенный метод TCustomGrid } end; procedure KillScrollBars(Sender: TDBGrid); begin (Sender as TMyGrid).NotScrollBars;//ОШИБКА ТУТ !!!!!!!!!!!!!!! end; procedure TForm1.Button1Click(Sender: TObject); begin KillScrollBars(DBGrid1); end; procedure TForm1.Button2Click(Sender: TObject); begin ShowScrollBar(DBGrid1.Handle,SB_BOTH,false); end; end.

← →
tga © (2002-11-28 07:24) [1]

Проследи внимательно тип Sender

Я так понимаю он у тебя не "TMyGrid" а "TDBGrid"

← →
SottNick © (2002-11-28 07:37) [2]

>> tga
а я типа не знал...

Я ж говорю, код работал, т.е. компилировался.
EXE-шник есть. Работает, как и задумано.

← →
Юрий Зотов © (2002-11-28 08:07) [3]

Не нужен Вам для этого никакой свой грид, доступ к protected-секции делается проще. В любом месте юнита пишете:

type
TFriendGrid = class(TDBGrid);

И все, больше ничего не требуется. Везде ниже этой строки Вы имеете доступ к protected-секции TDBGrid прямым приведением типа.

procedure TForm1.Button1Click(Sender: TObject);
begin
TFriendGrid(DBGrid1).ScrollBars := ssNone
end;

← →
SottNick © (2002-11-28 08:23) [4]

работает
спасибо

но, мой тоже когда-то работал...

а можно как нить до private секции добраться?

← →
Дмитрий К.К. © (2002-11-28 08:26) [5]

Между прочим, хороший вопрос (насчет скрытия полос прокрутки у DB-грида).

Юрий, я так понимаю, экземпляр класса TFriendGrid нужно программно создать, то есть в design-time я его никогда не увижу?

← →
Song © (2002-11-28 08:41) [6]

>>Юрий, я так понимаю, экземпляр класса TFriendGrid нужно программно создать, то есть в design-time я его никогда не увижу?
Само собой. Это программно созданный наследник, существующий только на время выполнения приложения.

Очень неудобно тогда настраивать ентот грид для лучшего визуального представления :(

Почему? Это же наследник. На экране он будет выглядеть так же как папаша, за исключением, то, если Вы что-то добавили или убрали.

> экземпляр класса TFriendGrid нужно программно создать

Его вообще не нужно создавать - никаких Create не требуется. Это фиктивный наследник, ничем не отличающийся от своего предка, не имеющий никакого своего кода и нужный только для программного доступа к protected-секции (достигается за счет особенностей объектной модели Delphi).

Его использование в design-time, во-первых, невозможно (ведь мы его не вносим ни в какой пакет и не регистрируем), а во-вторых, бессмысленно (поскольку он ничем не отличается от своего стандартного предка). Да и в run-time он фактически тоже не используется, поскольку ни одного его экземпляра мы не создаем.

Получить таким же образом доступ к private-секции нельзя. Да и не нужно - это будет уже больше похоже на хакерство, а не на программирование. Хотя методы получения такого доступа есть (не для всех случаев, но все же есть).

Рабочий код перестал работать. Найти похожие ветки