XProfan

- page 2 -

Rolf
Koch

entweder Du klickst sur Ausführliche Antwort écrivons et la hâte là qui Formatierungsoptionen ou bien tu mets es sans qui Leerzeichen entre dem code (seulement avec cela es ici dargestellt wird):
[c o d e]ici qui code[/c o d e]

Jörg
Sellmeyer

Andre Hilprecht

cela verstehe je, alles bien sûr.
peut-être brauchte Je l' le détour sur GetText$(Pass%) pas aller, weil mon Mot de passe ne...aucune mot mais une numéro ist.

quoi d'autre, comment bekommt son den Programmcode ici dans so un la fenêtre, sieht besser aus et je muss bestimmt la fois wieder un paire Zeilen Quellcode posten?

Salut André

c'est ne...aucune le détour mais qui einzige Possibilité à den Text trop venons - égal si Text ou bien numéro. Pass% contient seulement cela Handle zum Editcontrol.
si Vous numéro la hâte et weiterverwenden veux, darfst Du pas oublier qc vous avec Val(GetText$(Pass%)) dans une numerischen Wert trop verwandeln.

Salut
Jörg

Windows XP SP2 XProfan X4
... und hier mal was ganz anderes als Profan ...

Andre Hilprecht

peut-être brauchte Je l' le détour sur GetText$(Pass%) pas aller, weil mon Mot de passe ne...aucune mot mais une numéro ist.

Den le détour volonté déjà aller doit

Beim erstellen des Éditer-Controls ordnet Windows diesem une Identifizierungnummer trop, qui Du dans Pass% gespeichert la hâte. là ist comme seulement qui ID zum Éditer gespeichert. Um à den Text trop venons, dois cette avec GetText$ auslesen, wobei Du qui ID trop dem Contrôle übergibst, welches cette Text contient.

je suis trop lente

, bof alter homme et qui Hitze

Andre
Hilprecht

Hm, vous faites mir justement bien sûr, cela quelque chose pas allez, quoi chez mir mais funzt ??!!??
alors mon partie sieht maintenant so aus:
Kompilieren Marque Séparation

Text%    = @Create(Text,D%,Bitte Programmpasswort eingeben:,20,20,300,20)
Pass%    = @Create(Edit,D%,,   20, 50,200,-30)
Font%    = @Create(Font,Sans Serif,24,0,0,0,0)
SetFont Pass%, Font%
sendmessage(Pass%,204,ord(*),0)
OK%      = @Create(DefButton,D%,OK, 20,140, 140,30)
CANCEL%  = @Create(DefButton,D%,Abbruch,180,140,140,30)
@SetFocus(Pass%)
F% = 0

WhileNot F%

    WaitInput

    If Clicked(OK%)

        Pass$    = @GetText$(Pass%)

        If Pass$=0000

            DestroyWindow(OK%)
            F% = 1
            DestroyWindow(D%)
            Client

        ElseIf Pass$ <> 0000

            Text1% = @Create(Text,D%,Das Passwort ist leider,20,200,140,20)
            Text2% = @Create(Text,D%,F A L S C H   ! !,60,220,140,20)
            EnableWindow Text%,0
            EnableWindow Pass%,0
            EnableWindow OK%,0
            EnableWindow CANCEL%,0
            SLEEP 2500
            F% = 1
            DestroyWindow(D%)

        EndIf

    ElseIf @Clicked(CANCEL%)

        F% = 1
        DestroyWindow(D%)

    EndIf

Endwhile

et es funzt maintenant wunschgemäß.

merci Euch allen, jusqu'à zum prochain Denkanstoß Salut André

Kompilieren Marque Séparation

tu fais es doch so, comment wir schrieben

Pass$  = @Gettext$(Pass%)

Pass% ist qui ID vom Éditer
Pass$ ist qui Stringvariable wohin qui Text gespeichert volonté soll

- page 3 -

Andre
Hilprecht

la hâte droite, stimmt, cela musste je einbauen weil IMMER qui annonce kam;
cela Mot de passe ist malheureusement faux!
So funzt jetz jedenfalls mon Mot de passe-Abfrage wunschgemäß et Sternchen.

Michael
Wodrich

Mir sommes encore un paire Dinge aufgefallen:

Button: Es sollte seulement un DefButton eingesetzt volonté, reste ist Button.
qui Grund: Def steht pour Default (Vorgabe). ca ist alors qui vorgewählte Button.

DestroyWindow(Ok%) - pas nötig. si Du den Dialog löscht, aller qui daraufliegenden Controls freiwillig avec...

Überhaupt peux Du qui ganzen DestroyWindow() sur 1 réduire. Gebe simple qui Variablen F% la valeur 2 si cela Mot de passe stimmt. ensuite peux Du derrière qui Tandis que-Boucle den DestroyWindow mettons et
Cas F% = 2: Client
den Programmteil appel.

belle Grüße
Michael Wodrich
(aussi Jahrgang 60)

Programmieren, das spannendste Detektivspiel der Welt.

Pedro
Santos

allô

comment déjà Pascal erwähnt Sendmessages bieten une la quantité Opportunités
Wäre une gute concept ici dans qui Communty un Container trop schafen wohin Sendmessages avec Beschreibung quoi es bewirkt abgelegt volonté. justement pour Einsteiger ist cela un Segen

Gruss

Pedro

Windows XP Home
Xprofan 10

@Petro
cela wird chez qui numéro à Messages, qui il y a un schwieriges Unterfangen

Alleine qui Messages pour RichEdit würden ici Seiten füllen. Pour Windows Allgemein
wird cela alors à peine aller. mais peut-être hat iF hierzu ne concept, weil grundsätzlich sollte
là quoi possible son.

Nico
Madysa

on pourrait dans qui Online-Doku un le chapitre Messages anlegen.

Nico Madysa

Nunja je pourrait nen MessagesPool erfinden - alle Headerfiles de XProfan comme Datenbasis einspeisen - et un leichtes fouiller ermöglichen.

@Nico: dans qui ODoku gibt es bereits Sheets avec Messages.