eingabe problem, ohne pause

Übersicht

BlitzBasic

BlitzPlus

	Mathias-Kwiatkowski Betreff: eingabe problem, ohne pause	Mo, Okt 10, 2005 16:14 Antworten mit Zitat
hier is mein problem, nimmt diesen code das untere feld ist eine eingabe die im oberen feld dargestellt werden soll nun mein problem, sobald man enter drückt soll der text dargestellt werden, das geht ja auch aber er stellt dann immer einen text da bis man dann halt eine taste oder so drückt. mein problem is es das er auf tastendruck hören soll "enter" und das nur einmal, aber das der code auch noch im hintergrund weiterläuft geht sowas=? Code: [AUSKLAPPEN] [EINKLAPPEN] window1=CreateWindow("Win1",0,0,1024,768,0,17) text_feld_1=CreateTextArea(10,10,1024-250,768-150,window1) texteingabe=CreateTextField(10,768-130,1024-250,20,window1) DisableGadget text_feld_1 Repeat If EventData()=13 Then FlushEvents eingabe$ = TextFieldText$ (texteingabe) AddTextAreaText text_feld_1,eingabe$+Chr$(13) SetGadgetText texteingabe , "" EndIf tmp=WaitEvent(5) Select tmp Case $803 : End End Select Forever

Mathias-Kwiatkowski

Betreff: eingabe problem, ohne pause

Mo, Okt 10, 2005 16:14
Antworten mit Zitat

hier is mein problem, nimmt diesen code das untere feld ist eine eingabe die im oberen feld dargestellt werden soll nun mein problem,
sobald man enter drückt soll der text dargestellt werden, das geht ja auch aber er stellt dann immer einen text da bis man dann halt eine taste oder so drückt. mein problem is es das er auf tastendruck hören soll "enter" und das nur einmal, aber das der code auch noch im hintergrund weiterläuft geht sowas=?

Code: [AUSKLAPPEN]

window1=CreateWindow("Win1",0,0,1024,768,0,17)
text_feld_1=CreateTextArea(10,10,1024-250,768-150,window1)
texteingabe=CreateTextField(10,768-130,1024-250,20,window1)

DisableGadget text_feld_1

Repeat

If EventData()=13 Then
FlushEvents
eingabe$ = TextFieldText$ (texteingabe)
AddTextAreaText text_feld_1,eingabe$+Chr$(13)
SetGadgetText texteingabe , ""
EndIf

tmp=WaitEvent(5)
Select tmp
Case $803 : End
End Select
Forever