ReSQL.ru
     
powered by simpleCommunicator - 2.0.60     © 2026 Programmizd 02
Мобильная версия    Контакт    Правила    FAQ    Помощь
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Доб. в избранное | Игнор. тему | Прикреп. тему | Пометить прочит. / непрочит. | Фильтр
Форумы / Delphi [игнор отключен] [закрыт для гостей] / Передача параметров в модальную форму
6 сообщений из 6, страница 1 из 1
Передача параметров в модальную форму
    #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, 05:51
| Ответить | Цитировать | Написать  
Передача параметров в модальную форму
    #32363934
LexusR
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
LexusR
Участник
странно все это ????
на Delphi6 макетик по приведенному коду работает без ошибок
...
Рейтинг: 0 / 0
26.12.2003, 06:24
| Ответить | Цитировать | Написать  
Передача параметров в модальную форму
    #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:26
| Ответить | Цитировать | Написать  
Передача параметров в модальную форму
    #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, 06:35
| Ответить | Цитировать | Написать  
Передача параметров в модальную форму
    #32364706
vasjakur
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
vasjakur
Гость
Спасибо за информацию! Сейчас попробую.
...
Рейтинг: 0 / 0
26.12.2003, 16:04
| Ответить | Цитировать | Написать  
6 сообщений из 6, страница 1 из 1
Форумы / Delphi [игнор отключен] [закрыт для гостей] / Передача параметров в модальную форму
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
x
x
Закрыть


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