| |
| |
|
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! |
|
| |
| |
| |
|
(921)
Deutsch
English
Français
Español
Italia