| |
| |
|
Alfred
Wagner | ¡Hola Profaner
Folgendes Problema
Zuerst el Code
$P+
SET(ERRORLEVEL,0)
DEF GETSYSCOLOR(1) !USER32,GetSysColor
DECLARE Ende&,Übernehmen&,CHECKBOX1&
PROC Ende_ONCLICK
GETMESSAGE
If Übernehmen& = 1
@Messagebox(Usted hast el Übernehmen Button no gedrückt!,Meldung,64)
Más
@Messagebox(Usted hast el Übernehmen Button gedrückt!,Meldung,64)
EndIf
ENDE%=1
ENDPROC
PROC Übernehmen_ONCLICK
GETMESSAGE
ENDPROC
PROC CHECKBOX1_ONCLICK
GETMESSAGE
ENDPROC
WINDOWSTYLE 31
WINDOWTITLE Neues Ventana
WINDOW (%maxx/2 - 380/2),(%maxy/2 - 180/2) - 380,180
SET(TRUECOLOR,1)
DECLARE ENDE%
CLS GETSYSCOLOR(15)
USEFONT MS Sans Serif,13,0,0,0,0
SETDIALOGFONT 1
Ende& = CREATE(BUTTON,%HWND,Ende,0275,0100,0070,0022)
Übernehmen& = CREATE(BUTTON,%HWND,Übernehmen,0175,0100,0080,0022)
EnableWindow Übernehmen&,0
CHECKBOX1& = CREATE(CHECKBOX,%HWND,CHECKBOX,0021,0034,0227,0015)
SETFOCUS(%HWND)
WHILENOT ENDE%
WAITINPUT
If %KEY=2
ENDE%= 1
ELSEIF %KEY=4
ELSEIF GETFOCUS(Ende&) Ende
Ende_ONCLICK
ELSEIF GETFOCUS(Übernehmen&) BUTTON
Übernehmen_ONCLICK
ELSEIF GETFOCUS(CHECKBOX1&) CHECKBOX
EnableWindow Übernehmen&,1
ENDIF
ENDWHILE
Sombrero alguien Tip si el Beenden Button weiß si el Übernehmen Buttonbetätigt worden o no.
Gracias ya veces en el vorhinein para euere Ayuda
Grüße
Alfred con Familie |
|
| |
| |
| |
|
|
Rolf
Koch | Hi Alfred,
zuerst una vez, wäre lesbarer, si hier vorgestellten Code en lesbare Form bringst, Code einfügen, marca y el Rautebutton encima el Eingabefenster hier clic.
Usted hast Übernehmen geschrieben, dies es en el Programación no así adecuado, nutze mejor Uebernehmen.
Yo hier simplemente ne neue Variable instalado.
Wird el Button angeklickt, así esta Variable en 1 gesetzt y dies en Beenden abgefragt.
KompilierenMarcaSeparación $P+
SET("ERRORLEVEL",0)
DEF GETSYSCOLOR(1) !"USER32","GetSysColor"
DECLARE Ende&,Übernehmen&,CHECKBOX1&
Neue Variable
Declare ch_ueber%
PROC Ende_ONCLICK
GETMESSAGE
If ch_ueber% = 0
@Messagebox("Du hast den Übernehmen Button nicht gedrückt!","Meldung",64)
Else
@Messagebox("Du hast den Übernehmen Button gedrückt!","Meldung",64)
EndIf
ENDE%=1
ENDPROC
PROC Übernehmen_ONCLICK
GETMESSAGE
ch_ueber%=1
ENDPROC
PROC CHECKBOX1_ONCLICK
GETMESSAGE
ENDPROC
WINDOWSTYLE 31
WINDOWTITLE "Neues Fenster"
WINDOW (%maxx/2 - 380/2),(%maxy/2 - 180/2) - 380,180
SET("TRUECOLOR",1)
DECLARE ENDE%
CLS GETSYSCOLOR(15)
USEFONT "MS Sans Serif",13,0,0,0,0
SETDIALOGFONT 1
Ende& = CREATE("BUTTON",%HWND,"Ende",0275,0100,0070,0022)
Übernehmen& = CREATE("BUTTON",%HWND,"Übernehmen",0175,0100,0080,0022)
EnableWindow Übernehmen&,0
CHECKBOX1& = CREATE("CHECKBOX",%HWND,"CHECKBOX",0021,0034,0227,0015)
SETFOCUS(%HWND)
WHILENOT ENDE%
WAITINPUT
If %KEY=2
ENDE%= 1
ELSEIF %KEY=4
ELSEIF GETFOCUS(Ende&) Ende
Ende_ONCLICK
ELSEIF GETFOCUS(Übernehmen&) BUTTON
Übernehmen_ONCLICK
ELSEIF GETFOCUS(CHECKBOX1&) CHECKBOX
EnableWindow Übernehmen&,1
ENDIF
<s=s4 href='./../../funktionsreferenzen/XProfan/endwhile/'>ENDWHILE
|
|
| |
| |
| |
|
|
 | @Alfred: Man merkt se simplemente si él gedrückt wurde. Wenn él gedrückt se setzt uno una beliebige Variable en una beliebigen Valor. Diese Variable puede ser später abprüfen. 
Auch Rolfs Tipp el uno Codes en Foren con ...
KompilierenMarcaSeparación
...ummantelt es ebenso Gold wert. ;)
Umlaute en Quelltexten find Yo auch übel.  |
|
| |
| |
| |
|
|
Alfred
Wagner | Gracias Rolf
haut hin
hier veces una test con el rautebutton,habs bisher no tan correcto kapiert,danke
KompilierenMarcaSeparación $P+
SET("ERRORLEVEL",0)
DEF GETSYSCOLOR(1) !"USER32","GetSysColor"
DECLARE Ende&,Übernehmen&,CHECKBOX1&
Neue Variable
Declare ch_ueber%
PROC Ende_ONCLICK
GETMESSAGE
If ch_ueber% = 0
@Messagebox("Du hast den Übernehmen Button nicht gedrückt!","Meldung",64)
Else
@Messagebox("Du hast den Übernehmen Button gedrückt!","Meldung",64)
EndIf
ENDE%=1
ENDPROC
PROC Übernehmen_ONCLICK
GETMESSAGE
ch_ueber%=1
ENDPROC
PROC CHECKBOX1_ONCLICK
GETMESSAGE
ENDPROC
WINDOWSTYLE 31
WINDOWTITLE "Neues Fenster"
WINDOW (%maxx/2 - 380/2),(%maxy/2 - 180/2) - 380,180
SET("TRUECOLOR",1)
DECLARE ENDE%
CLS GETSYSCOLOR(15)
USEFONT "MS Sans Serif",13,0,0,0,0
SETDIALOGFONT 1
Ende& = CREATE("BUTTON",%HWND,"Ende",0275,0100,0070,0022)
Übernehmen& = CREATE("BUTTON",%HWND,"Übernehmen",0175,0100,0080,0022)
EnableWindow Übernehmen&,0
CHECKBOX1& = CREATE("CHECKBOX",%HWND,"CHECKBOX",0021,0034,0227,0015)
SETFOCUS(%HWND)
WHILENOT ENDE%
WAITINPUT
If %KEY=2
ENDE%= 1
ELSEIF %KEY=4
ELSEIF GETFOCUS(Ende&)Ende
Ende_ONCLICK
ELSEIF GETFOCUS(Übernehmen&)BUTTON
Übernehmen_ONCLICK
ELSEIF GETFOCUS(CHECKBOX1&)CHECKBOX
EnableWindow Übernehmen&,1
ENDIF
<s=s4 href='./../../funktionsreferenzen/XProfan/endwhile/'>ENDWHILE
hoffe ha geklappt
ni Cuestión
wieso debería mann no tomar nehmen en el code ?
Grüße
Alfred con Familie |
|
| |
| |
| |
|
|
| | Yo Su Posting veces überarbeitet - klicke simplemente Editieren bajo Deinem Posting entonces siehst Usted Yo geändert habe. |
|
| |
| |
| |
|
|
| Umlaute son bastante simplemente Sonderzeichen, Roland erlaubt esta - aber empfohlen son ellos no.
Natürlich betrifft el no Stringinhalte!
Ein S$=Hallo hier rüber es natürlich ok!
Ein VieleÄpfel&=50 se pero no empfohlen.
Usted puede auch später veces Problemas deshalb bekommen - z.B. si el IDE wechselst. Je después de el en welchem Formato Usted el Textdatei abspeicherst puede Umlaute en una vez otro Bytewerte bekommen. Das wiederum podría dazu führen el el XProfankompiler en una vez doch no mehr así klar kommt. |
|
| |
| |
| |
|
|
Alfred
Wagner | danke euch beiden
una vez más una test para el nächsten code
KompilierenMarcaSeparación
habe siempre pensamiento el quelltext gehört zwischen el klammern de code!
aber code bedeutet anfang y /codeende.
na sí a uno mals kapiert ha,dauerts eben una wenig
danke otra vez
Güße
Alfred con Familie |
|
| |
| |
| |
|
|
| | Klar gerne geschehen, Usted puede de paso *reusper* Su obiges Posting Editar y nachträglich el Code conjunto - damits no así schlimm aussieht. |
|
| |
| |
| |
|
(1.525)
Deutsch
English
Français
Español
Italia