ReSQL.ru
     
powered by simpleCommunicator - 2.0.60     © 2026 Programmizd 02
Мобильная версия    Контакт    Правила    FAQ    Помощь
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Доб. в избранное | Игнор. тему | Прикреп. тему | Пометить прочит. / непрочит. | Фильтр
Форумы / FoxPro, Visual FoxPro [игнор отключен] [закрыт для гостей] / Вопрос по гриду
9 сообщений из 9, страница 1 из 1
Вопрос по гриду
    #32915847
МиХаИл1978
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
МиХаИл1978
Участник
есть форма на ней грид в гриде column1
в column1 есть Header1 и Combo1
при нажатие правой кнопкой мыши отрабатывает вот такой код
objectclick=SYS(1272,sys(1270))

objectclick1='thisform.'+left(RIGHT(objectclick,LEN(objectclick)-AT('.',objectclick)),;rat('.',RIGHT(objectclick,LEN(objectclick)-AT('.',objectclick))))+'header1.caption'

objectclick1=&objectclick1
я здесь узнаю как название Header1 и запихиваю в переменнную
как можно это зделать по другому?
а то это зделано както топорно
...
Рейтинг: 0 / 0
15.02.2005, 11:02
| Ответить | Цитировать | Написать  
Вопрос по гриду
    #32915889
leaf
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
leaf
Участник
нифига не понял зачем это нужно
может это поможет
for i=1 to thisform.grid1.column.contorlcount
messagebox(thisform.grid1.column.controls(i).name,48,thisform.grid1.column.controls(i).class)
endfor
...
Рейтинг: 0 / 0
15.02.2005, 11:17
| Ответить | Цитировать | Написать  
Вопрос по гриду
    #32915903
leaf
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
leaf
Участник
for i=1 to thisform.grid1.column1.controlcount
messagebox(thisform.grid1.column1.controls(i).name,48,thisform.grid1.column1.controls(i).class)
endfor
отлажено
...
Рейтинг: 0 / 0
15.02.2005, 11:21
| Ответить | Цитировать | Написать  
Вопрос по гриду
    #32915967
Фотография ВладимирМ
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
ВладимирМ
Участник
Ты делаешь лишние "телодвижения"

Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
19.
20.
21.
*MouseDoun Event
LPARAMETERS nButton, nShift, nXCoord, nYCoord

* Получаем ссылку на объект в который ткнули мышкой
LOCAL loObject
loObject = sys( 1270 ,nXCoord, nYCoord)

* Определяем, в какое место Grid собственно ткнули
LOCAL lnWhere 
lnWhere =  0 
This.GridHitTest(nXCoord, nYCoord, @lnWhere)

* Вытаскивем Header.Caption
DO CASE
CASE m.lnWhere =  1 		&& собственно Header
	?m.loObject.Caption
CASE m.lnWhere =  3 		&& ячейка
	?m.loObject.Parent.Header1.Caption
OTHERWISE
* В остальных местах непонятно о какой колонке идет речь
* Определить Caption невозможно
ENDCASE
...
Рейтинг: 0 / 0
15.02.2005, 11:42
| Ответить | Цитировать | Написать  
Вопрос по гриду
    #32915982
Фотография ВладимирМ
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
ВладимирМ
Участник
Да, совсем забыл, что этот код сработает на тех ячейках где нет данных. Там где данные есть будет обработано событие MouseDown собственно тех объектов, которые вставлены в колонку. Т.е. если там стоит Combo, то сработает Combo.MouseDown(), а вовсе не Grid.MouseDown()
...
Рейтинг: 0 / 0
15.02.2005, 11:46
| Ответить | Цитировать | Написать  
Вопрос по гриду
    #32916026
leaf
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
leaf
Участник
2Владимир а как победить
иначе все выше сказанное не имеет смысла т.к. можно прописать в текстах
messagebox(this.parent.header1.caption)
и в заголовках messagebox(this.caption)
в том же mousedown или rightclick
тока лишь бы колонки пустыми не были
...
Рейтинг: 0 / 0
15.02.2005, 12:00
| Ответить | Цитировать | Написать  
Вопрос по гриду
    #32916461
МиХаИл1978
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
МиХаИл1978
Участник
да а как
прописать в Combo.MouseDown()
(код програмный как будет выглядить)?
...
Рейтинг: 0 / 0
15.02.2005, 14:02
| Ответить | Цитировать | Написать  
Вопрос по гриду
    #32916487
leaf
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
leaf
Участник
mousedown() не стоит трогать
а вот rightclick() вполне реально


objectclick1=this.parent.header1.caption
messagebox(objectclick1)
...
Рейтинг: 0 / 0
15.02.2005, 14:08
| Ответить | Цитировать | Написать  
Вопрос по гриду
    #32917447
Igor Korolyov
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Igor Korolyov
Участник
Hi ВладимирМ!

Хотя в большинстве случаев заголовок и имеет имя Header1 (если его никто не
заменял например), это на самом деле не догма, и возможно понадобиться некий
код обхода всех контролов в колонке, с целью поиска среди них производного
от Header class.

Posted via ActualForum NNTP Server 1.1
...
Рейтинг: 0 / 0
16.02.2005, 02:37
| Ответить | Цитировать | Написать  
9 сообщений из 9, страница 1 из 1
Форумы / FoxPro, Visual FoxPro [игнор отключен] [закрыт для гостей] / Вопрос по гриду
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
x
x
Закрыть


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