Гость
Войти | Профиль | Очистить
Целевая тема:
Создать новую тему:
Автор:
Действия ...
Форумы / Delphi [игнор отключен] [закрыт для гостей] / Передача параметров в модальную форму / 6 сообщений из 6, страница 1 из 1
26.12.2003, 05:51
    #32363925
vasjakur
vasjakur
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Передача параметров в модальную форму
Доброе время суток. Хочется следующего - есть дб-грид, нужно дать возможность юзеру управлять видимостью колонок. Делаю, как в мануале - форма со своим конструктором, куда добавляю параметр для передачи грида:

Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
Constructor TfrmListColumns.CreateForGrid(IncomingGrid:TDBGrid;Owner:TComponent);
var
c:Integer;
begin
  inherited Create(Owner);
   For c:= 0  to IncomingGrid.Columns.Count do
   begin
    //тут заполняем список колонок, и вообще...
   end;

end;


В форме с гридом пишем

Код: plaintext
1.
2.
3.
4.
5.
6.
procedure TRefListForm.ColumnsExecute(Sender: TObject);
Var Dlg:TfrmListColumns;
begin
  Dlg:=TfrmListColumns.CreateForGrid(TDBGrid(CurrentGrid),Self);
  Dlg.ShowModal;
  Dlg.Free;
end;


При выполнении конструктора в строке
Код: plaintext
For c:= 0  to IncomingGrid.Columns.Count do

имеем Access violation. Причем я могу читать IncomingGrid.Enabled, к примеру, а IncomingGrid.Columns.Count - не могу. Что можно сделать?
PS Delphi 7, форма исключена из списка автосоздания, грид из EhLib'а. Пробовал передавать через пойнтер - та же песня.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
26.12.2003, 06:24
    #32363934
LexusR
LexusR
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Передача параметров в модальную форму
странно все это ????
на Delphi6 макетик по приведенному коду работает без ошибок
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
26.12.2003, 06:26
    #32363936
Posco
Posco
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Передача параметров в модальную форму
For c:=0 to IncomingGrid.Columns.Count -1 do
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
26.12.2003, 06:26
    #32363937
LexusR
LexusR
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Передача параметров в модальную форму
прошу пардону - это с простым гридом без проблем
на EhGride тоже брякнулся
щас разберемся
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
26.12.2003, 06:35
    #32363940
LexusR
LexusR
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Передача параметров в модальную форму
EhGrid нельзя приводить к TDBGrid - он от другого родителя
поменяй параметр конкретно на TDBGridEh
Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
Constructor TfrmListColumns.CreateForGrid(IncomingGrid:TDBGridEh;Owner:TComponent);
var
c:Integer;
begin
  inherited Create(Owner);
   For c:= 0  to IncomingGrid.Columns.Count do
   begin
    //тут заполняем список колонок, и вообще...
   end;

end;

Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
 
 procedure TRefListForm.ColumnsExecute(Sender: TObject);
Var Dlg:TfrmListColumns;
begin
  Dlg:=TfrmListColumns.CreateForGrid(CurrentGrid,Self);
  Dlg.ShowModal;
  Dlg.Free;
end
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
26.12.2003, 16:04
    #32364706
vasjakur
vasjakur
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Передача параметров в модальную форму
Спасибо за информацию! Сейчас попробую.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
Форумы / Delphi [игнор отключен] [закрыт для гостей] / Передача параметров в модальную форму / 6 сообщений из 6, страница 1 из 1
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]