Hallo zusammen,
ich versuche gerade ein Klickadventure zu schreiben. Die Dialoge werde in einem Memofeld dargestellt.Wenn man die ENTER-Taste drückt, soll der Dialog fortgeführt werden. Leider funktioniert das ganze aber gar nicht so, wie ich das haben will
Anstatt immer nachfolgende Textzeilen auszugeben, wird immer wieder nur die erste textzeile erneut ausgegeben, wenn man die ENTER-Taste drückt. Habt ihr eine Idee woran das liegen könnte?
Code:
procedure memo1keypress(Sender: Tobject; var key: char);
begin
if key = #13 then begin
weiter:= true;
end;
end;
Code:
procedure personklick (Sender: Tobject);
begin
weiter:= false;
memo1.lines.add('hallo');
while weiter = false do begin
delay(1);
end;
weiter:= false;
memo1.lines.add('hiho');
while weiter = false do begin
delay(1);
end;
weiter := false;
memo1.lines.add('was geeeeeeht?');
while weiter = false do begin
delay(1);
end;
weiter := false;
{..und so weiter das Ganze...}
end;
Ich bin langsam echt am Verzweifeln. Vielleicht bin ich auch auf nem ganzen falschen Weg. Bitte um Hilfe.
Schon mal Danke im Voraus!
Gruß Beatmaster