Doppelbelegung der Tasten

Lernenochdazu · Beiträge: 23

Guten Tag, kann mir hier bitte jemand erklären wie ich es schaffe Keys doppelt triggern zu lassen? Beispiel: Pause mit Escape, wieder entpausieren mit Escape. Zur Zeit löse ich das mit Escape zur Pause und zum entpausieren mit Leertaste. Das geht natürlich besser, aber wie? Hab schon was probiert aber das ist noch falsch. Ideen?

markieren

Delphi-Quelltext

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:

     
     if key = vk_esc then
     begin
          keycheck := 1;
     end;

     if (key = vk_esc) and (keycheck = 1) then
     begin
          keycheck := 0;
     end;

Was er da jeweils tun sollte hab ich mal rausgelassen. Würde gerne wissen wie das reine doppeltabfragen funktioniert. LG

jasocul · Verfasst: Mi 06.07.22 14:17

Ganz klassisch:
Zunächst keycheck als Boolean definieren und dann:

markieren

Delphi-Quelltext

1:
2:
3:
4:
5:

     
     if key = vk_esc then
     begin
          keycheck := not keycheck;
     end;

Lernenochdazu · Beiträge: 23

jasocul hat folgendes geschrieben :

Ganz klassisch:
Zunächst keycheck als Boolean definieren und dann:

markieren

Delphi-Quelltext

1:
2:
3:
4:
5:

     
     if key = vk_esc then
     begin
          keycheck := not keycheck;
     end;

Ich habs mal so umgesetzt, so funktioniert es nicht. Ich hatte auch bei beiden not keycheck, damit hat es auch nicht funktioniert. Aber ich verstehe sowieso nicht wieso not keycheck. Ich will ja dass er einen keycheck macht. Wenn das erste getriggert wird und alles pausiert wird muss der bool ja umgesetzt werden zum Gegenstück, damit man mit der gleichen Taste das ganze wieder beenden kann. Dann muss wieder umgesetzt werden, damit man theoretisch wieder pausieren kann. Oder verstehe ich das falsch? LG

Moderiert von Th69: Delphi-Tags hinzugefügt

Gausi · Verfasst: Mi 06.07.22 14:39

Das würde ich so machen:

markieren

Delphi-Quelltext

1:
2:
3:
4:
5:
6:
7:
8:

if key = vk_esc then 
begin
  if keycheck then
    MachWas
  else
    MachWasAnderes;
  keycheck := not keycheck;
end;

Oder habe ich dein Vorhaben falsch verstanden? :gruebel:

_________________
We are, we were and will not be.

Lernenochdazu · Beiträge: 23

markieren

Delphi-Quelltext

1:
2:
3:
4:
5:
6:
7:
8:
9:

if key = vk_esc then
     begin
     if keycheck then
     begin
     end else
     begin
     keycheck := not keycheck;
     end;
     end;

So pausiert er aber entpausiert nicht mehr.

Moderiert von Th69: Vollzitat entfernt.

Gausi · Verfasst: Mi 06.07.22 15:05

Schau dir nochmal meine Verschachtelung an. ;-)

Die Zeile keycheck := not keycheck; wird bei mir immer ausgeführt, wenn ESC gedrückt wird. Ganz egal, wie der Status von keycheck gerade ist. Denn der soll ja immer wechseln, wenn du diese Taste drückst, oder?

_________________
We are, we were and will not be.

Lernenochdazu · Beiträge: 23

Es war eine Geburt, aber es funktioniert! Kp wieso ich das nicht direkt hatte. Danke.

Moderiert von Th69: Vollzitat entfernt.

	Mitgliederliste
	Gruppen
	Das Team
	Richtlinien
	Synonyme