| |
| |
|
CB | Hi,
brauche veces otra vez fachmännische Ayuda!
Posesiones para einfacheren Handling mehrere EditControls en un StaticControl zusammengefasst - después de folgendem Schema:
KompilierenMarcaSeparaciónGroupBox5& = Create("GroupBox",%HWND,"",10,249,775,155)
GroupBox5& = Control("Static","",$50000009,10,258,775,148,%hwnd,3501,%Hinstance) Control anlegen (weißer Rahmen)
WSText& = Create("Text",GroupBox5&,"WS :",8,12,32,17)
SetFont WSText&,Fett&
WS1& = Control("ComboBox","",$50000042,40,10,80,121,GroupBox5&,3013,%hinstance)
ClearList
AddString "ges. WS"
AddString "HWS"
AddString "BWS"
AddString "LWS"
AddString "HWS und BWS"
AddString "BWS und LWS"
AddString "HWS und LWS"
MoveListToChoice(WS1&)
ClearList
SendMessage(WS1&,$14E,0,0)
WS2& = Control("ComboBox","",$50000042,120,10,105,121,GroupBox5&,3014,%hinstance)
ClearList
AddString "frei"
AddString "klopfschmerzhaft"
MoveListToChoice(WS2&)
ClearList
SendMessage(WS2&,$14E,0,0<lass=s2>)
Como mentira ahora also EditControls en una Static y dieses wiederum en una Tabcontrol.
Soweit funktioniert auch alles.
Bloß Yo seitdem el problema, daß el Abfragen des Status el individual Edits no mehr trabajo. Zum Breakpoint komme Yo nada mehr.
Ausschnitt de el Hauptschleife:
KompilierenMarcaSeparación
El Konstruktion se el Anwender etliches a Herumklicken ersparen. Wenn él una (cierto) Eintrag en un Feld gewählt ha, voluntad otro Felder entsprechend gesetzt y Foco auch igual dorthin gesetzt.
Tiene una de Euch una Concepto, wo el Fehler mentira podría?
So nebenbei: con welchem Stil kriege Soy un Rahmen analog a uno GroupBox zustande?
Christian |
|
| |
| |
| |
|
|
Rolf
Koch | Hi Christian,
[quote:d2b61bdc66]
So nebenbei: con welchem Stil kriege Soy un Rahmen analog a uno GroupBox zustande?
[/quote:d2b61bdc66]
Zumindest veces dazu:
Dann kuck doch en Roc, tal vez gefällt Usted una Rahmen, welcher así ähnlich aussieht.
Rolf |
|
| |
| |
| |
|
|
 | Christian - erfahrungsgemäß se una en solch Problema selten geholfen - sei porque - Usted erstellst veces una kleinste-lauffähige Variante welche genau el problema producido.
So kamma más rápido una solución encontrar - en lugar de sólo incluso esta Konstrukt en el Beine a stellen.
Yo weiß Yo weiß - Usted hofftest alguien löste ya una ähnliches Problema - aber auch el Solución zuzuordnen es anhand uno lauffähigen Beispieles einfacher.
Salve. |
|
| |
| |
| |
|
|
CB | Hi,
@IF: hast sí - otra vez veces - bastante. 
Das wär sí así, como täte Yo, el Mechaniker fragen, por qué el blöde Karre en cada Kurve scheppert y tener lo a Casa posición. Aber irgendwie Tuve sólo wirklich gehofft...
Na bien, habe also media Code soweit gestrippt, daß mein Prob erkenntlich ser debería y Einfachheit halber el INC con ALLEN Variables- y sonstigen DEFs komplett mitgeliefert.
Einiges es en Aufräumaktion esta zuviel gelöscht worden, el tut aber nichts a Sache.
El Einträge bajo Cor y Pulmo son konventionell en uno Groupbox zusammengefasst y reagieren korrekt.
Aber el Einträge bajo WS (Control SkelettGrp) tuns no mehr.
Mit una Grund, por qué Yo el Edits en una Control stellen voluntad, es, Yo auch el elends vielen Einzeleinträge bajo TAB3_AKTIV o. TAB3_INAKTIV loswerden möchte, y simplemente b.B. el jeweiligen Controls de- y einblende.
Wäre jedenfalls para nen Tip muy dankbar.
Christian |
|
| |
| |
| |
|
|
CB | Hi,
habe desafortunadamente algunos überflüssigen Code übersehen a löschen. Das kann a uno Fehlermeldung wegen fehlender Registry-Einträge führen.
Deshalb hier ne verschlimmbesserte Versión.
Christian |
|
| |
| |
| |
|
|
Rolf
Koch | Hi Christian,
puede ser veces sehen, dass uno de Andreas Miethe wirklich aprender kann 
Zuerst bastante oben (aber el hast Usted glaube Yo ya?):
KompilierenMarcaSeparación
Dann darunter Su Línea erweitern (also en $4000):
KompilierenMarcaSeparación
Dann una Proc redactar (mein Lieblingstipp de Andreas):
KompilierenMarcaSeparaciónDef CallWindowProc(5) !"USER32","CallWindowProcA"
Declare OldStaticProc&,UOldStaticProc&,dlg2&
Proc DummyCallback
Parameters wnd&,msg&,wparam&,lparam&
If msg& = $0111
Usermessage an %hwnd schicken
Sendmessage(%hwnd,$4000,0,lParam&)
Endif
Return CallWindowProc(OldStaticProc&,wnd&,msg&,wparam&,lparam&)
KompilierenMarcaSeparaciónSKELETTGrp& = Control("Static","",$64000000,10,258,775,148,%hwnd,3501,%Hinstance,$010000) Control invertir (weißer Rahmen)
OldStaticProc& = SetWindowLong(SKELETTGrp&,-4,ProcAddr(DummyCallback,4))
WSText& = Crear("Text",SKELETTGrp&,"WS :",8,13,32,17)
SetFont WSText&,Fett&
......
El Abfragen para el Sonderstatic Por favor, entonces así abfragen:
KompilierenMarcaSeparación
Und Yo hoffe, dass Yo nix vergessen habe y el Teil entonces genauso bien se ejecuta como en me.
Rolf |
|
| |
| |
| |
|
|
CB | ¡Hola, Rolf!
Vielen Dank otra vez para Su Mühe! Yo weiß no, si Usted mi Nachricht gestern todavía erreicht ha - lo funktioniert jedenfalls perfekt!
Schicke Usted abends, Yo alles lo gemacht tener - wirst staunen!
Ciao, Christian |
|
| |
| |
| |
|
|
Rolf
Koch | |
| |
| |
| |
|
(909)
Deutsch
English
Français
Español
Italia