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

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

Рабочий код перестал работать. [D4, Win95/98]

SottNick ©   (2002-11-28 07:18:00) 

Рабочая демка.
Была...
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.

---

Юрий Зотов   (2002-11-28 09:09:00) [1]

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

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

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

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

---

Song   (2002-11-28 08:51:00) [2]

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

---

Дмитрий К.К.   (2002-11-28 08:45:00) [3]

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

---

Song   (2002-11-28 08:41:00) [4]

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

---

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

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

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

---

SottNick   (2002-11-28 08:23:00) [6]

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

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

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

---

Юрий Зотов   (2002-11-28 08:07:00) [7]

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

type
TFriendGrid = class(TDBGrid);

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

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

---

SottNick   (2002-11-28 07:37:00) [8]

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

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

---

tga   (2002-11-28 07:24:00) [9]

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

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

---

Наверх