(445)  S'inscrire

Français
Forum

Waitinput Durchbruch

 
- page 1 -



Hubert
Binnewies
allô zusammen,

j'ai un Proggi dans travail cela déjà knapp 1500 Zeilen long ist.
eh bien hat cela Proggi plusieurs la fenêtre avec Buttons.
Logischerweise mets je pour qui Fenstererstellung une Whilenot Boucle dans qui qui erste Befehl un Waitinput ist.
mais seltsamerweise wird cela Waitinput permanent durchbrochen sans le moi une Aktion ausführe.
Im Programme verwende je keinen Minuteur, c'est zwar qui Fil.pcu vorhanden, mais vous steckt dans einem Proc-ENDPROC cela pas aufgerufen wird.
et ansonsten weiss je pas womit cela Waitinput de meinem Proggi durchbrochen volonté peux.
Hat einer ne Ahnung comment je abfragen peux womit cela Waitinput durchbrochen wurde??

merci Schonmal d'avance.

Hubert
 
WinXP Prof, XProfan 9.1 Newbie

Ein kluger Kopf sagte mal:
"Nach dem derzeitigen Stand der Technik ist es unmöglich Programme zu schreiben, die fehlerfrei laufen!"
03.08.2006  ▲
Vollständiges citation
Absatzweise CitationZeilenweise Citation
 



 
- page 1 -



Hubert
Binnewies
j'ai la fois weitergeforscht....

alors....dans suivant Konstelation habe je im speziellen cela Problem:
KompilierenMarqueSéparation
DLGRhin&=CREATE("DIALOG",%HWND,"Rechner hinzufügen",22,20,400,330)
USEFONT "MS Sans Serif",13,0,0,0,0
SETDIALOGFONT 1
Def Cps(6) Control("STATIC",@$(2),$5400010E,@%(3),@%(4),@%(5),@%(6),@%(1),2000, %Hinstance)
Picstatic1&=Cps(DlgRhin&,"",0,0,Width(Dlg&),Height(Dlg&))
Pich1&=Create("hpic",-1,"IMGRHhintergrund.bmp")
Sendmessage(Picstatic1&,$172,0,Pich1&)
EDIT1& =@CREATE("EDIT",Picstatic1&,"",0050,0080,0285,0020)
EDIT2& =@CREATE("EDIT",Picstatic1&,"",0050,0140,0285,0020)
EDIT3& =@CREATE("EDIT",Picstatic1&,"",0050,0202,0285,0020)
BUTTON1Rhin& =@CREATE("BUTTON",Picstatic1&,"Hinzufügen",0037,0250,0090,0030)
BUTTON2Rhin& =@CREATE("BUTTON",Picstatic1&,"Liste",0147,0250,0090,0030)
BUTTON3Rhin& =@CREATE("BUTTON",Picstatic1&,"OK",0257,0250,0090,0030)
SETFOCUS(Picstatic1&)
LET DIALOGENDERhin%=0

WHILENOT DIALOGENDERhin%

    waitinput

    If @EQU(%KEY,2)

        LET DIALOGENDERhin%= 1

    ELSEIF %wmPaint=1

    ELSEIF GETFOCUS(EDIT1&) EDIT

    ELSEIF GETFOCUS(EDIT2&) EDIT

    ELSEIF GETFOCUS(EDIT3&) EDIT

    ELSEIF GETFOCUS(BUTTON1Rhin&) BUTTON Hinzufügen

        LET DIALOGENDERhin%= 1
        ..........

    ELSEIF GETFOCUS(BUTTON2Rhin&) BUTTON Liste

        LET DIALOGENDERhin%= 1
        ......

    ELSEIF GETFOCUS(BUTTON3Rhin&) BUTTON OK

        LET DIALOGENDERhin%= 1

    ENDIF

Endwhile

...........

ausser dem %wmpaint wird cela waitinput pas durchbrochen.
cela Waitinput reagiert pas sur qui Buttons,
seulement si je sur Buttons im übergeordneten Hauptfenster klicke.
et chez dem la fenêtre habe Je l' Hintergrund per Loadbmp geladen, là Xprofan et Windows cela Neuzeichnen on le fly erledigen.

Im Unterfenster habe je cette Weg gewählt, là cela Contrôle aussi ici cela Neuzeichnen on le fly erledigt.
Schmeisse je cela Contrôle raus reagiert aussi qui Waitinput wieder.

je peux alors weder sur cela Contrôle encore sur cela Waitinput verzichten.
Hat einer ne concept comment je qui beiden en supplément bringe sich trop vertragen?

Vielen Dank d'avance.

Hubert
 
WinXP Prof, XProfan 9.1 Newbie

Ein kluger Kopf sagte mal:
"Nach dem derzeitigen Stand der Technik ist es unmöglich Programme zu schreiben, die fehlerfrei laufen!"
03.08.2006  ▲
 



quelle XProfanversion oui c'est ca?

qui Code ist malheureusement pas courir - quelque chose comme ist gemein.
 
03.08.2006  ▲
 




RGH
Salut,
gebe chez den Dialogelementen den Dialog comme Elternfenster à et pas cela Static. cela Elternfenster gibt à, à welches la fenêtre Nouvelles sur cela Betätigemn qui Dialogelemnte envoyé volonté. un Static peux avec cela rien anfangen.

Salut
Roland
 
Intel Duo E8400 3,0 GHz / 4 GB RAM / 1000 GB HDD - ATI Radeon HD 4770 512 MB - Windows 7 Home Premium 32Bit - XProfan X4
03.08.2006  ▲
 




Hubert
Binnewies
[quote-part:63b31b4736=iF]quelle XProfanversion oui c'est ca?

qui Code ist malheureusement pas courir - quelque chose comme ist gemein. [/quote-part:63b31b4736]
tztz.....alors...irgendwo im Forum (sorry je weiss pas plus wohin) hattest du tout autor gebeten qui verwendete XProfan Version à une bestimmte Stelle trop écrivons...
Hab je gemacht, mais si cela trop petite ist musst Du déjà deine Webseite paraphraser

[quote-part:63b31b4736=RGH]allô,
gebe chez den Dialogelementen den Dialog comme Elternfenster à et pas cela Static. cela Elternfenster gibt à, à welches la fenêtre Nouvelles sur cela Betätigemn qui Dialogelemnte envoyé volonté. un Static peux avec cela rien anfangen.

Salut
Roland[/quote-part:63b31b4736]
Hab je versucht, dabei entsteht mais un d'autre Problem.
là je cela Static d'abord zeichne liegen qui Buttons et Edits optique avant dem Static.
mais là qui Parent qui Dialog ist liegen vous Programmtechnisch derrière elle et peut Somit avec qui souris pas erreicht volonté.
Ergo: funktioniert pas.

mais j'ai Schonmal un Ähnliches Prob gehabt, peut-être erinnerst Du toi daran IF.
exposition la fois ici : [...] 
là hattest nämlich oui c'est ca DU mir den Tip avec dem Static gegeben.

je hab mir mais den Beitrag mais aussi nochmal oui c'est ca durchgelesen, et là encore un Tip de Dir entdeckt, den Getmessage.
Daraus habe je une Solution gebastelt (je hoffe qui fonctionne aussi encore im Compilat)
KompilierenMarqueSéparation
DLGRhin&=CREATE("DIALOG",%HWND,"Rechner hinzufügen",250,120,400,330)
USEFONT "MS Sans Serif",13,0,0,0,0
SETDIALOGFONT 1
Def Cps(6) Control("STATIC",@$(2),$5400010E,@%(3),@%(4),@%(5),@%(6),@%(1),2000, %Hinstance)
Picstatic&=Cps(DlgRhin&,"",0,0,Width(Dlg&),Height(Dlg&))
Pich&=Create("hpic",-1,"IMGRHhintergrund.bmp")
Sendmessage(Picstatic&,$172,0,Pich&)
EDIT1& =@CREATE("EDIT",Picstatic&,"",0050,0080,0285,0020)
EDIT2& =@CREATE("EDIT",Picstatic&,"",0050,0140,0285,0020)
EDIT3& =@CREATE("EDIT",Picstatic&,"",0050,0202,0285,0020)
BUTTON1Rhin& =@CREATE("BUTTON",Picstatic&,"Hinzufügen",0037,0250,0090,0030)
BUTTON2Rhin& =@CREATE("BUTTON",Picstatic&,"Liste",0147,0250,0090,0030)
BUTTON3Rhin& =@CREATE("BUTTON",Picstatic&,"OK",0257,0250,0090,0030)
SETFOCUS(Picstatic&)
LET DIALOGENDERhin%=0

WHILENOT DIALOGENDERhin%

    GetMessage

    If &wParam=1

        Continue

    Endif

    If @EQU(%KEY,2)

        LET DIALOGENDERhin%= 1

    ELSEIF GETFOCUS(EDIT1&) EDIT

    ELSEIF GETFOCUS(EDIT2&) EDIT

    ELSEIF GETFOCUS(  BUTTON1Rhin&) BUTTON Hinzufügen

        LET DIALOGENDERhin%= 1

    ELSEIF GETFOCUS(BUTTON2Rhin&) BUTTON Liste

        LET DIALOGENDERhin%= 1

    ELSEIF %Getfocus=BUTTON3Rhin& BUTTON OK

        LET DIALOGENDERhin%= 1

    ENDIF

Endwhile

Funktioniert soweit einwandfrei, j'ai seulement im weiteren Verlauf un d'autre Prob:
comment peux je qui Systemvariable %Key effacer?
avec einfachem Lecture wird qui pas zurück gesetzt...

Hubert
 
WinXP Prof, XProfan 9.1 Newbie

Ein kluger Kopf sagte mal:
"Nach dem derzeitigen Stand der Technik ist es unmöglich Programme zu schreiben, die fehlerfrei laufen!"
04.08.2006  ▲
 



Hm %clé effacer hm peut-être avec
KompilierenMarqueSéparation
?
 
04.08.2006  ▲
 




Jörg
Sellmeyer
allô Georg,
Probier la fois cela:
KompilierenMarqueSéparation
print %key,"Taste drücken"
WaitInput
print %key,"Taste drücken, %key wird zurückgesetzt"
WaitInput
SetTimer 1
WaitInput
KillTimer
print %key
WaitI
a>
 
Windows XP SP2 XProfan X4
... und hier mal was ganz anderes als Profan ...
04.08.2006  ▲
 




Hubert
Binnewies
merci euch beiden....hat wunderbar funktioniert..

maintenant weiss je aussi cela qui GetMessage den %Key pas löscht.
 
WinXP Prof, XProfan 9.1 Newbie

Ein kluger Kopf sagte mal:
"Nach dem derzeitigen Stand der Technik ist es unmöglich Programme zu schreiben, die fehlerfrei laufen!"
04.08.2006  ▲
 




Hubert
Binnewies
un Prob habe je encore avec meiner neuen Konstruktion....

je weiss maintenant zwar comment %Key gelöscht wird, mais dans qui Konstruktion wird il pas plus gesetzt (weiss qui geier pourquoi)..
maintenant suis je pas dans qui situation cela Kreuzchen zum Schliessen abzufragen.
aussi %Message , &wParam , &lParam donner aucun eindeutige Werte, seulement chez einem Double-cliquez sur sur Schliessen, et c'est pas Sinn qui l'affaire.

Hat là une ne concept??

merci Schonmal d'avance.

Hubert.
 
WinXP Prof, XProfan 9.1 Newbie

Ein kluger Kopf sagte mal:
"Nach dem derzeitigen Stand der Technik ist es unmöglich Programme zu schreiben, die fehlerfrei laufen!"
05.08.2006  ▲
 




Hubert
Binnewies
aucun une concept???

Seltsam...
 
WinXP Prof, XProfan 9.1 Newbie

Ein kluger Kopf sagte mal:
"Nach dem derzeitigen Stand der Technik ist es unmöglich Programme zu schreiben, die fehlerfrei laufen!"
08.08.2006  ▲
 



 
- page 2 -


toujours une lauffähigen Code s'il te plaît quel cela Problem aufzeigt - ensuite peux aussi geholfen volonté.
 
08.08.2006  ▲
 




Hubert
Binnewies
qui zweite Code ist gemeint.....
Um ihn courir trop faire, muss encore un Hauptfenster erzeugt volonté, qui Variablen declariert volonté et ne Bitmap en supplément gesetzt volonté....
qui ersten 2 Dinge pourrait je oui encore faire...
mais qui Bitmap.....

cela là dessus mais est jusqu'à sur:
KompilierenMarqueSéparation
Def Cps(6) Control("STATIC",@$(2),$5400010E,@%(3),@%(4),@%(5),@%(6),@%(1),2000, %Hinstance)
Picstatic&=Cps(DlgRhin&,"",0,0,Width(Dlg&),Height(Dlg&))
Pich&=Create("hpic",-1,"IMGRHhintergrund.bmp")
Sendmessage(Picstatic&,$172,0,Pich&)pre>

et
KompilierenMarqueSéparation
qui Standart code comment il vom Roc erzeugt wird.
cela obere ist seulement eingesetzt et qui Create´s après angepasst
cela GetMessage ersetzt cela Waitinput et qui Si abfrage sorgt pour dass cela la fenêtre seulement reagiert si on sur nen Butten qui maustaste loslässt.

cela blöde ist dass cela obere Construire pas den %Key mets womit
KompilierenMarqueSéparation
Si @EQU(%KEY,2)

niemals zutrifft.

comment peux je maintenant toutefois cela klicken sur cela Schliessfeld abfragen?
ou bien comment bekomme je cela Schliessfeld entier weg?

merci Schonmal d'avance...

Hubert
 
WinXP Prof, XProfan 9.1 Newbie

Ein kluger Kopf sagte mal:
"Nach dem derzeitigen Stand der Technik ist es unmöglich Programme zu schreiben, die fehlerfrei laufen!"
08.08.2006  ▲
 



cela Schliessfeld (systemmenü) peux Du sur den Windowstyle supprimer. (-8)
 
08.08.2006  ▲
 



◄
12

répondre


Topictitle, max. 100 marque.
 

Systemprofile:

ne...aucune Systemprofil angelegt. [anlegen]

XProfan:

 Posting  Font  Smilies  ▼ 

s'il te plaît s'inscrire um une Beitrag trop verfassen.
 

Options du sujet

Unreaded
abonner
La liste de voeux
Notes
guests
Effacer
Permanent
Done

3.585 Views

Untitledvor 0 min.
H.Brill16.06.2024
RudiB.05.03.2024
Joerg28.04.2016
Untitled16.05.2012

Themeninformationen

cet Thema hat 4 participant:

Hubert Binnewies (8x)
iF (5x)
Jörg Sellmeyer (1x)
RGH (1x)


Admins  |  AGB  |  Applications  |  Auteurs  |  Chat  |  protection des données  |  Télécharger  |  Entrance  |  Aider  |  Merchantportal  |  Empreinte  |  Mart  |  Interfaces  |  SDK  |  Services  |  Jeux  |  cherche  |  Support

un projet aller XProfaner, qui il y a!


Mon XProfan
Privé Nouvelles
Eigenes Ablageforum
Sujets-La liste de voeux
Eigene Posts
Eigene Sujets
Zwischenablage
Annuler
 Deutsch English Français Español Italia
Traductions

protection des données


Wir verwenden Cookies seulement comme Session-Cookies à cause de qui technischen Notwendigkeit et chez uns gibt es aucun Cookies de Drittanbietern.

si du ici sur unsere Webseite klickst ou bien navigierst, stimmst du unserer Erfassung de Informationen dans unseren Cookies sur XProfan.Net trop.

Weitere Informationen trop unseren Cookies et en supplément, comment du qui Kontrolle par-dessus behältst, findest du dans unserer nachfolgenden Datenschutzerklärung.

d'accordDatenschutzerklärung
je voudrais keinen Cookie