Автор | Сообщение |
|
| постоянный участник
|
Пост N: 32
Зарегистрирован: 15.09.05
|
|
Отправлено: 29.05.08 17:03. Заголовок: Как узнать имя контрола который в фокусе ?
Я еще новичок в МИНИГУИ подскажите пожалуста как получить имя контрола который на данный момент в фокусе ! решил попробовать сделать редактирование простого списка плана счетов , вот хочу сделать вызов BROWS при нажатии определенной клавиши но сначала надо узнать где я нахожусь . Обещаю показать примечика по окончанию (сначало надо перевести на РУСКОМ потомучто я из Болгарии ) ( Harbour + MiniGUI + LetoDB ) программа получается очень хорошая пробовал через интернет пока БЕЗ ПРОБЛЕМ ! 93.123.26.91:2812 ето работающий LetoDB Server v0.7 с 9.00 по 18.30 GMT+2
|
|
|
Ответов - 3
[только новые]
|
|
|
| модератор
|
Пост N: 783
Зарегистрирован: 25.05.05
|
|
Отправлено: 29.05.08 17:23. Заголовок: sashaBG пишет: как ..
sashaBG пишет: цитата: | как получить имя контрола который на данный момент в фокусе |
| Это очень просто сделать, использую свойство FormName. FocusedControl: /* * MINIGUI - Harbour Win32 GUI library Demo * * Copyright 2002 Roberto Lopez <roblez@ciudad.com.ar> * http://www.geocities.com/harbour_minigui/ */ #include "minigui.ch" Function Main DEFINE WINDOW Form_1 ; AT 0,0 ; WIDTH 640 HEIGHT 480 ; TITLE 'Harbour MiniGUI Demo' ; MAIN ON KEY F2 ACTION MsgInfo ( ThisWindow.FocusedControl ) @ 10,10 TEXTBOX Text_1 @ 50,10 TEXTBOX Text_2 @ 90,10 TEXTBOX Text_3 END WINDOW Form_1.Center Form_1.Activate Return Nil Привет из Украины
|
|
|
|
| постоянный участник
|
Пост N: 33
Зарегистрирован: 15.09.05
|
|
Отправлено: 29.05.08 18:01. Заголовок: Спасибо Григорий
Спасибо Григорий ! ЕТО НАВЕРНОЕ ВАМ НАДО ПОСЛАТЬ ПРИМЕРЧИК КОГДА БУДЕТ ГОТОВ ? ЖЕНА ИЗ ЧЕРКАССАХ
|
|
|
|
| постоянный участник
|
Пост N: 594
Зарегистрирован: 12.09.06
|
|
Отправлено: 30.05.08 08:37. Заголовок: sashaBG пишет: 93.1..
sashaBG пишет: цитата: | 93.123.26.91:2812 ето работающий LetoDB Server v0.7 с 9.00 по 18.30 GMT+2 |
| А какую базу можно просто открыть и посмотреть ? Типа: cTable := "//93.123.26.91:2812/??????.dbf" nConnect := leto_Connect( cTable ) IF nConnect == 0 USE ( cTable ) NEW Browse() USE ELSE ALERT( "Server LetoDB not run !; "+cTable ) ENDIF
|
|
|
|