powered by simpleCommunicator - 2.0.61     © 2026 Programmizd 02
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Форумы / FoxPro, Visual FoxPro [игнор отключен] [закрыт для гостей] / Потеря ActiveControl'а....
11 сообщений из 11, страница 1 из 1
Потеря ActiveControl'а....
    #35435623
bodrox
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Есть класс VCX. Тама объект - TextBox+CommandButton. На пустую форму кидаю этот объект. В его Valid делаю проверку. В методе юзается Thisform.ActiveControl. Но там пусто :(. Если положить просто TextBox - то усё окей - Thisform.ActiveControl - не пуст.
WTF?
--------------
Новичок в VFOX
...
Рейтинг: 0 / 0
Потеря ActiveControl'а....
    #35435705
Dima T
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
bodrox... На пустую форму кидаю этот объект. В его Valid делаю проверку. В методе юзается Thisform.ActiveControl....
А This чем не устроил? вместо Thisform.ActiveControl
...
Рейтинг: 0 / 0
Потеря ActiveControl'а....
    #35435751
в методе объекта
св-ва себя-же смотрят
через this


если необходимо по каким-то причинам
опред-ть текущий активный контрол, то поступают так
Код: plaintext
1.
2.
3.
4.
5.
6.
7.
local loControl
try
    loControl= thisform.ActiveControl
catch
endtry	
if vartype(loControl)='O'
   .....  
...
Рейтинг: 0 / 0
Потеря ActiveControl'а....
    #35435815
XAndy
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
Код: plaintext
type("thisform.ActiveControl")<>"O" and !isnull(thisform.ActiveControl)

но в методе самого класса конечно this надо пользовать, как Дима указал
...
Рейтинг: 0 / 0
Потеря ActiveControl'а....
    #35435819
XAndy
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
Сорри, <> поменять на == конечно :)
...
Рейтинг: 0 / 0
Потеря ActiveControl'а....
    #35435955
bodrox
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Юзаю Ballon tooltip из класса CTL32. Чтобы показать балун на объекте, требуется ActiveControl. Иначе он выводится около курсора мыши или на форме в левом верхнем углу.
This не помогло. Балуну нужно ActiveControl....
Будем искать.
--------------
Новичок в VFOX
...
Рейтинг: 0 / 0
Потеря ActiveControl'а....
    #35435959
bodrox
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Да, если что http://www.ctl32.com.ar/
--------------
Новичок в VFOX
...
Рейтинг: 0 / 0
Потеря ActiveControl'а....
    #35435996
авторБалуну нужно ActiveControl

если Вы ищите контрол из метода класса-балуна,
то да

если звать метод балуна из самого контрола,
то в метод балуна можно заслать ссылку на контрол


покажите минимальный пример Вашего реш-я
сделайте форму + необх.дидл-ки - и положите сюда пример
...
Рейтинг: 0 / 0
Потеря ActiveControl'а....
    #35435999
This можно и параметром передеать.
...
Рейтинг: 0 / 0
Потеря ActiveControl'а....
    #35436018
bodrox
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
проходящий.This можно и параметром передеать.- bodroxThis не помогло.передавал параметром.
...
Рейтинг: 0 / 0
Потеря ActiveControl'а....
    #35436039
Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
19.
20.
21.
22.
23.
24.
25.
26.
27.
28.
29.
30.
31.
32.
PUBLIC oform1

oform1=createobject("form1")
oform1.Show
RETURN

DEFINE CLASS form1 AS form

	Caption = "Form1"
	Name = "Form1"

	ADD OBJECT command1 AS cmd WITH ;
		Top =  108 , ;
		Left =  132 , ;
		Height =  27 , ;
		Width =  84 , ;
		Caption = "Command1", ;
		Name = "Command1"

ENDDEFINE

DEFINE CLASS cmd AS commandbutton

	procedure click
		ttttt(this, thisform)

enddefine


procedure ttttt
lparameters toControl, toForm
toControl.Caption = 'ffvt4v'
toForm.Backcolor =  455555 


твой баллун по принципам программирования, передачи ссылок и приему параметров
ничем не отличается от этого примера

авторThis не помогло.

клади сюда пример - будем посмотреть
...
Рейтинг: 0 / 0
11 сообщений из 11, страница 1 из 1
Форумы / FoxPro, Visual FoxPro [игнор отключен] [закрыт для гостей] / Потеря ActiveControl'а....
Найденые пользователи ...
Разблокировать пользователей ...
Читали форум (0):
Пользователи онлайн (0):
x
x
Закрыть


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