| |
|
|
Erasmus.Herold | Hallöchen ...
Folgende Cuestión: Yo habe una Ventana geöffnet y diesem befinden se unzählige Editar-Felder. Lässt se simplemente (y sin cada Editar abzufragen) ermitteln, wo el Cursor aktuell blinkt?
fenster_darueber_2% = Crear("Dialog",fenster_darueber%,"Fenster",28,330,1870,730)
fenster_fixieren_2& = external("USER32","GetSystemMenu",fenster_darueber_2%,0)
external("USER32","DeleteMenu",fenster_fixieren_2&,$F010,0)
ks_1_cent$ = create("edit", fenster_darueber_2%, "", 700, 135, 100, 30)
ks_2_cent$ = create("edit", fenster_darueber_2%, "", 700, 170, 100, 30)
ks_5_cent$ = create("edit", fenster_darueber_2%, "", 700, 205, 100, 30)
ks_10_cent$ = create("edit", fenster_darueber_2%, "", 700, 240, 100, 30)
ks_20_cent$ = create("edit", fenster_darueber_2%, "", 700, 275, 100, 30)
In welchem Feld blinkt el Cursor? Gracias! |
|
|
| |
|
|
|
H.Brill | El Systemvariable %GetFocus son dir el Handle des gerade aktiven Editfeldes zurück. |
|
|
| Benutze XPROFAN X3 + FREEPROFAN Wir sind die XProfaner. Sie werden von uns assimiliert. Widerstand ist zwecklos! Wir werden alle ihre Funktionen und Algorithmen den unseren hinzufügen.
Was die Borg können, können wir schon lange. | 20.11.2018 ▲ |
|
|
|
|
Erasmus.Herold | Gracias para el Antwort. So Tuve el auch en el Ayuda gefunden.
Ein kurzes Ejemplo wäre toll gewesen. Deshalb Tuve extra una pocos Felder como Code beigefügt. Tal vez una corto Tipp, Yo z.B. por el passende Abfrage el Info erhalte: el Cursor es en Feld "ks_10_cent$"
Dankeschön |
|
|
| |
|
|
|
H.Brill | 1. ks_1_cent$ es una Stringvariable. Zum Glück konvertiert XProfan intern. Darum kommt auch kein Fehler. Crear() liefert aber siempre una Handle (Zahl) zurück. Also es mejor, una Zahlenvariable (%,&, Handle) utilizarse.
2. Beim Erstellen el Editfelder könntest du una numeriches Array uso. El Variablennamen bekommst du sowieso no a sehen. Ein korrespondierendes String-Array podría aber entsprechende Namen bereitstellen.
Meinst du etwa algo como ?
Declarar Edits%[5], Namen$[], y%
Namen$[] = "1. Edit", "2. Edit", "3. Edit", "4. Edit", "5. Edit"
Ventana 800, 600
y% = 10
WhileLoop 0, 4
Edits%[&LOOP] = Crear("Edit", %HWnd, "", 10, y%, 120, 25)
Inc y%, 30
EndWhile
Mientras que 1
WaitInput
WhileLoop 0, 4
If %GetFocus = Edits%[&LOOP]
Localizar 15, 1
Imprimir Namen$[&LOOP], "hat el Cursor !"
EndIf
EndWhile
Case %Key = 2 : Romper
EndWhile
End
|
|
|
| Benutze XPROFAN X3 + FREEPROFAN Wir sind die XProfaner. Sie werden von uns assimiliert. Widerstand ist zwecklos! Wir werden alle ihre Funktionen und Algorithmen den unseren hinzufügen.
Was die Borg können, können wir schon lange. | 21.11.2018 ▲ |
|
|
|
|
E.T. | Hab el voriges Ejemplo veces después de IndexOf(... umgebaut (sólo en a aufzuzeigen, el lo así auch va ).
Vlt. isses sí así bissel más rápido ...
Declarar Edits%[5], Namen$[], y%, EditPos%
Ventana 800, 600
y% = 10
WhileLoop 0, 4
Edits%[&LOOP] = Crear("Edit", %HWnd, "", 10, y%, 120, 25)
Inc y%, 30
EndWhile
Mientras que 1
EditPos% = IndexOf(Edits%[],%GetFocus)
If EditPos% > -1
Localizar 15, 1
Imprimir " "'Línea löschen
Localizar 15, 1
Imprimir (EditPos%+1) + ". Editar ha el Cursor !"
Más
Localizar 15, 1
Imprimir "Irgend de otra manera ha el Focus !"
EndIf
WaitInput
Case %Key = 2 : Romper
EndWhile
End
Con el el expl. Namen para el Edit's (como zuvor beschrieben) puede ser hier nat. auch uso |
|
|
| Grüße aus Sachsen... Mario WinXP, Win7 (64 Bit),Win8(.1),Win10, Win 11, Profan 6 - X4, XPSE, und 'nen schwarzes, blinkendes Dingens, wo ich das alles reinschütte... | 21.11.2018 ▲ |
|
|
|
|
Erasmus.Herold | |
|
| |
|
|
|
Erasmus.Herold | Getestet - funktioniert großartig - Dankeschön! |
|
|
| |
|
|