| |
| |
|
Rolf
Koch | Huhu gens,
aujourd'hui hab je la fois ne Frage:
Hat einer ne concept:
@Contrôle(STATIC,txt$,$54000106,x%,y%,breit%,hoch%,fenster&,$7918,%HINSTANCE)
là liegen Edits sur elle. Logischerweise peux je cet pas avec qui Tabtaste anspringen. Logisch, car c'est ne...aucune Dialog et je peux diesem partie keinen 512il Wert mettons.
aussi un Exwert $200 funktioniert pas.
je besoin cela partie mais. malheureusement klappt es avec Getkeystate(9) aussi pas.
Ist arrêt blöde, si on pas avec qui Tabtaste entre den Edits hin et herspringen peux.
Hab alles versucht.
mais, habe encore un bisschen espoir  , là rien unmöglich ist.
Rolf |
|
| |
| |
| |
|
|
 | |
| |
| |
| |
|
|
Frank
Abbing | Hi,
probier la fois:
KompilierenMarqueSéparation@Control("STATIC",txt$,$54000106,x%,y%,breit%,hoch%,fenster&,$7918,%hinstance,$10000) ;WS_EX_CONTROLPARENT>
chez den Edits dois du ensuite wohl den Windowsstyle WS_TABSTOP ($10000) setzten |
|
| |
| |
| |
|
|
Rolf
Koch | merci Euch beiden herzlichst,
nee malheureusement beides pas. Es venez chez beiden nix à.
WS_TABSTOP ($10000) - nunja il y a SKEdits.
Rolf |
|
| |
| |
| |
|
|
| allô Rolf...
WS_EX_CONTROLPARENT funktioniert seulement, si cela Hauptfenster den Dialogstil hat:
KompilierenMarqueSéparationDeclare Static&,Edits&[5],fenster&,Focus%,txt$
Def @GetAsyncKeyState(1) !"User32","GetAsyncKeyState"
WINDOWSTYLE 31+512
WINDOWTITLE "STATIC Control und Tabtaste",TXT$
Window 0,0-640,440
LET FENSTER&=%HWND
LET TXT$="Test"
LET STATIC&=@Control("STATIC",txt$,$54000106+15,10,10,210,300,fenster&,$7918,%hinstance,$10000)
LET EDITs&[1]=@CREATEEDIT(STATIC&,"",10,10,200,25)
LET EDITs&[2]=@CREATEEDIT(STATIC&,"",10,50,200,25)
LET EDITs&[3]=@CREATEEDIT(STATIC&,"",10,90,200,25)
LET EDITs&[4]=@CREATEEDIT(STATIC&,"",10,130,200,25)
LET EDITs&[5]=@CREATEEDIT(STATIC&,"",10,170,200,25)
@SETFOCUS(EDITs&[1])
LET FOCUS%=1
@GetAsyncKeyState(9) Reset
Whilenot %MENUITEM=-2
Waitinput
WEND
GetAsyncKeyState funktioniert seulement sans Waitinput:
KompilierenMarqueSéparationDéclarer Static&,Edits&[5],fenster&,Concentrer%,txt$
Def @GetAsyncKeyState(1) !"User32","GetAsyncKeyState"
WINDOWSTYLE 31+512
WINDOWTITLE "STATIC Contrôle et Tabtaste",TXT$
Fenêtre 0,0-640,440
LET FENSTER&=%HWND
LET TXT$="Test"
LET STATIC&=%HWND
LET STATIC&=@Contrôle("STATIC",txt$,$54000106,10,10,210,300,fenster&,$7918,%HINSTANCE)
LET EDITs&[1]=@CREATEEDIT(STATIC&,»,10,10,200,25)
LET EDITs&[2]=@CREATEEDIT(STATIC&,»,10,50,200,25)
LET EDITs&[3]=@CREATEEDIT(STATIC&,»,10,90,200,25)
LET EDITs&[4]=@CREATEEDIT(STATIC&,»,10,130,200,25)
LET EDITs&[5]=@CREATEEDIT(STATIC&,»,10,170,200,25)
@GetAsyncKeyState(9) Reset
Whilenot %MENUITEM=-2
Sleep 100
IF @GetAsyncKeyState(9)<>0
inc Concentrer%
CASE FOCUS%=6 : LET FOCUS%=1
@SETFOCUS(EDITs&[Concentrer%])
Sleep 200
ENDIF
WEND
|
|
| |
| |
| |
|
|
Rolf
Koch | Hi Andreas,
cela avec dem Hauptfenster wusste je encore pas, qui ca ensuite aussi Auswirkungen sur qui Childs hat.
Sieht presque bien aus, qui Keyklick wird registriert.
maintenant muss je es seulement encore hinbekommen, qui
Si getkeystate(9)
si getfocus(blablaedit&)
ici erkannt wird. pouvoir es pas aussi pas avec getchild pour skcontrols.
endif
endif
Super et merci pour den Hinweis.
Rolf |
|
| |
| |
| |
|
|
| allô Rolf...
aussi pour GetAsyncKeyState gilt:
si cela Parentfenster pas den Dialostil hat, wirds unideal (zweiweise Messagebeeps beim Weiterschalten).
sofern cela Parentfenster den Dialogstil avons doit, ist eigentlich logisch:
si on avec WS_EX_CONTROLPARENT qui Kontrolle à cela Parentfenster abgibt, doit cet oui aussi quoi avec qui Tabtaste anfangen peut... |
|
| |
| |
| |
|
|
Frank
Abbing | Hi,
AH: qui Dialogstil ist Rolands Erfindung. Den gibt es sous Windows gar pas, mais avec cela wird Profans Subclassing des Hauptfensters anders gehandhabt. Bestimmte Messages volonté ausgefiltert, tout autor pouvoir dir GetAsyncKeyState() aussi Probleme. qui Tastaturmessages volonté simple rausgefiltert et gelangen gar pas jusqu'à zum Profanprogramm.
Rolf: WS_EX_CONTROLPARENT sollte eigentlich deine Solution son. WS_TABSTOP müßtest du chez den SKControls nachträglich setzten, avec Get/SetStyle. Getestet habe je es allerdings pas. |
|
| |
| |
| |
|
|
Rolf
Koch | merci Euch beiden,
werde la fois avec Setstyle et Getstyle versuchen.
Sebastian hat mir geschrieben, qui il la fois pour seiner SKControl et den Edits schaut et direct quelque chose comme zulässt.
Nochmals vielen - vielen Dank
Rolf |
|
| |
| |
| |
|
|
| allô Frank...
Normale Profan-Edits dürften den Stil WS_TABSTOP bereits enthalten. ici bringt un WS_EX_CONTROLPARENT seul beim STATIC gar rien - si cela Hauptfenster pas den Dialogfensterstil hat. comment gesgt ist cela le son Profanhilfe so aussi logisch.
GETASYNCKEYSTATE funktioniert aussi sans den Dialogfesterstil im Hauptfenster. Problem ist eigentlich seulement qui Messagebeep, si cela Hauptfenster versucht den Tastaturdruck trop behandeln. c'est, comment dit, unschön.
@Rolf
cela un SETSTYLE ou bien GETSTYLE dir là à irgeneiner Stelle quoi bringt, peux je mir genausowenig présenter comment Frank...
Du könntest peut-être versuchen, den STATIC sur einem gleichgroßen Dialog trop erstellen, cela pourrait ensuite aller (pas getestet). si dans den Controls qui SKCONTROL.DLL qui Stil WS_TABSTOP enthalten ist, peux je allerdings pas dire - là devrait ensuite peut-être. SETSTYLE et GETSTYLE einspringen... |
|
| |
| |
| |
|
|
Rolf
Koch | Hi AH,
c'est mir oui alles bien sûr:
je hab oui cela Static sur dem Diaolg 
aussi J'ai eu avant SETSTYLE ou bien GETSTYLE sur SKControls anzuwenden et pas sur cela Static.
Rolf |
|
| |
| |
| |
|
|
Uwe
''Pascal''
Niemeier | allô Rolf!
devons car qui Edits absolument sur cela Static?
Du könntest vous aussi sur den Dialog saisir et so positionieren, dass vous sous dem Static liegen. optique sollte cela zumindest chez normalen Controls keinen Unterschied faire:
KompilierenMarqueSéparationwindow 100,100-500,500
declare dlg&
dlg&=create("dialog",%hwnd,"Info",200,200,300,300)
control("static","",$50000000,5,5,200,200,dlg&,1,0,$200)Static + Rahmen
create("edit",dlg&,"aaa",20,20,80,22)
create("edit",dlg&,"bbb",20,50,80,22)
create("edit",dlg&,"ccc",20,90,80,22)
while 1
waitinput
le
HTH
Pascal |
|
| |
| |
| |
|
(867)
Deutsch
English
Français
Español
Italia