|
Грид
|
|||
---|---|---|---|
#18+
Всем здравствуйте! Подскажите пожалуйста, как вставить в грид дополнительную колонку, которая не является полем таблицы, а должна быть полем с кнопкой для вызова другой формы. Например. Таблица пример.дбф имеет поле фио Грид должен выглядеть так: ------------------------------- ФИО | Отбор | ------------------------------- Иванов И.И. |[буттон] | ------------------------------- | |___ а здесь кнопка Спасибо за ответы. ... |
|||
:
Нравится:
Не нравится:
|
|||
01.07.2003, 08:16 |
|
Грид
|
|||
---|---|---|---|
#18+
в Дизайнере форм увеличиваешь grd.ColumnCount на 1 выбираешь нужную колонку выбираешь из контролов формы кнопку щелкаешь по этой колонке -> контрол кнопки добавлен в колонку в grd.grc.CurrentControl меняешь на свою кнопку. выставляешь grd.grc.Sparse=.F. чтоб кнопки были видны везде. фс:е. можно конечно удалить ненужный TextBox, но пусть будет.. итак много ... |
|||
:
Нравится:
Не нравится:
|
|||
01.07.2003, 08:59 |
|
Грид
|
|||
---|---|---|---|
#18+
Спасибо Hel!Riser за ответ. Я, к стати делал по той же схеме, но получилась одна странная вещь. Форма при просмотре открывалась как бы пустой, но стоило мне ее немного раздвинуть, то все появлялось. Я так и не понял, что это за эффект. Поэтому пришлось вернуться к варианту без новой колонки, почему и задал этот вопрос, думая, что что-то делаю не то... ... |
|||
:
Нравится:
Не нравится:
|
|||
01.07.2003, 09:19 |
|
Грид
|
|||
---|---|---|---|
#18+
Поставь для нужно тебе колонки свойсво Sparse в .F. и все будет видно thisfrom.GRD.columns(i).Sparse = .F. ... |
|||
:
Нравится:
Не нравится:
|
|||
01.07.2003, 11:02 |
|
Грид
|
|||
---|---|---|---|
#18+
Дополнение: with thisfrom.GRD i= 1 *-- для примера одна колонка с кнопками .addcolumn(i) .columns(i).RemoveObject("Text1") .columns(i).AddObject("MyButton","mycomandbutton") .columns(i).CurrentControl = "MyButton" .columns(i).Sparse = .F. endwith *-- comandbutton, это товй класс на основании которого ты создаешь *-- экзепляр объекта типа кнопка, там и код пропиши, что ему делать. Define class Mycomandbutton as comandbutton Procedure valid *- тут твой код при нажимании Endproc Enddefine *-- если прописываешь описание классов в отдельном файле, *-- то перед запуском кода примера пропиши путь *-- SET PROCEDURE TO [твой файл] ADDITIVE *-- если валяется в библиотеке классов то *-- SET CLASSLIB TO [твоя библиотека] ADDITIVE ... |
|||
:
Нравится:
Не нравится:
|
|||
01.07.2003, 11:18 |
|
|
start [/forum/topic.php?fid=41&fpage=420&tid=1598178]: |
0ms |
get settings: |
11ms |
get forum list: |
15ms |
check forum access: |
4ms |
check topic access: |
4ms |
track hit: |
34ms |
get topic data: |
13ms |
get forum data: |
3ms |
get page messages: |
49ms |
get tp. blocked users: |
2ms |
others: | 14ms |
total: | 149ms |
0 / 0 |