| |
| |
|
Erasmus.Herold | Hallöchen ...
Folgende Frage:
j'ai un la fenêtre ouvert et dans diesem befinden sich unzählige Éditer-Felder.
Lässt sich simple (et sans chaque Éditer abzufragen) ermitteln, wohin qui Cursor
aktuell blinkt?
fenster_darueber_2% = Créer("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)
dans welchem champ blinkt qui Cursor?
merci! |
|
| |
| |
| |
|
|
H.Brill | qui Systemvariable %GetFocus gibt dir cela Handle des justement
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 | merci pour qui Antwort. So J'ai eu cela aussi dans qui Aider trouvé.
un kurzes Beispiel wäre toll gewesen. c'est pourquoi J'ai eu extra un
paire Felder comme Code beigefügt.
peut-être un court Tipp, comment je z.B. par qui passende Abfrage
qui Info erhalte: qui Cursor steht dans champ "ks_10_cent$"
Dankeschön |
|
| |
| |
| |
|
|
H.Brill | 1. ks_1_cent$ ist une Stringvariable. Zum Glück konvertiert
XProfan interne. tout autor venez aussi ne...aucune faute. Créer()
liefert mais toujours un Handle (numéro) zurück. alors ist es besser,
une Zahlenvariable (%,&, Handle) trop verwenden.
2. Beim Erstellen qui Editfelder könntest du un numeriches
Array verwenden. qui Variablennamen bekommst du sowieso
pas trop voyons. un korrespondierendes String-Array pourrait
mais entsprechende Namen bereitstellen.
Avez- du etwa quelque chose comme ?
Déclarer Edits%[5], Namen$[], y%
Namen$[] = "1. Edit", "2. Edit", "3. Edit", "4. Edit", "5. Edit"
Fenêtre 800, 600
y% = 10
WhileLoop 0, 4
Edits%[&LOOP] = Créer("Edit", %HWnd, », 10, y%, 120, 25)
Inc y%, 30
Endwhile
Tandis que 1
WaitInput
WhileLoop 0, 4
Si %GetFocus = Edits%[&LOOP]
Localiser 15, 1
Imprimer Namen$[&LOOP], "hat den Cursor !"
EndIf
Endwhile
Cas %Key = 2 : Pause
Endwhile
Fin
|
|
| |
| 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 cela voriges Beispiel la fois pour IndexOf(... umgebaut
(seulement afin de aufzuzeigen, cela es so aussi allez  ).
Vlt. isses oui so bissel plus rapide ... 
Déclarer Edits%[5], Namen$[], y%, EditPos%
Fenêtre 800, 600
y% = 10
WhileLoop 0, 4
Edits%[&LOOP] = Créer("Edit", %HWnd, », 10, y%, 120, 25)
Inc y%, 30
Endwhile
Tandis que 1
EditPos% = IndexOf(Edits%[],%GetFocus)
Si EditPos% > -1
Localiser 15, 1
Imprimer " "'la ligne effacer
Localiser 15, 1
Imprimer (EditPos%+1) + ". Éditer hat den Cursor !"
D'autre
Localiser 15, 1
Imprimer "Irgend autre chose hat den Concentrer !"
EndIf
WaitInput
Cas %Key = 2 : Pause
Endwhile
Fin
Avec l' den expl. Namen pour qui Edit's (comment zuvor beschrieben) peux on ici nat. aussi verwenden  |
|
| |
| 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 grandiose - Dankeschön! |
|
| |
| |
| |
|
(849)
Deutsch
English
Français
Español
Italia