KeyPress Problem

[thomas2009]

Hallo
der Panel bewegt immer mit 10 Pixel !
egal ob ich die taste Pfeil allein oder CTRL+Pfeil Taste

Delphi-Quellcode:

procedure TForm1.FormKeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
 if ((Key = 17) and (Key = 39)) then begin
 Panel1.left:=  Panel1.left+1;
end;

 if Key = 39 then begin
Panel1.left:=  Panel1.left+10;
end;
end;

Woran liegt es dann ?

[jaenicke]

Zitat von thomas2009:

if ((Key = 17) and (Key = 39)) then begin

Eigentlich sollte an der Stelle die Warnung vom Compiler erscheinen, dass die Bedingung nie erfüllt werden kann. Wie auch? Wie soll ein Wert denn gleichzeitig 17 UND 39 sein?

Wenn du den Status der Tasten Shift, Strg usw. auslesen möchtest, dann schau dir doch einmal den Wert des Parameters Shift an.

[hitzfeld]

Delphi-Quellcode:

procedure TForm1.FormKeyDown(Sender: TObject; var Key: Word; 
  Shift: TShiftState); 
begin 
if ((Key = 17) and (Key = 39)) then begin 
Panel1.left:=  Panel1.left+1; 
end; 

if ((Key <> 17) and Key = 39)) then begin 
Panel1.left:=  Panel1.left+10; 
end; 
end;

Vielleicht hilft das?

Gerd

[jaenicke]

Zitat von hitzfeld:

if ((Key = 17) and (Key = 39))

Wie soll das gehen?
Ich habe das doch schon geschrieben...

Vielleicht anders... Das ist wie wenn du im Laden sagst:
Wenn diese Frucht eine Banane ist UND diese Frucht eine Ananas ist, dann nehme ich sie.

Kann die selbe Frucht jemals eine Banane UND eine Ananas gleichzeitig sein? Nein. Genauso wenig kann Key gleichzeitig 17 UND 39 sein...

Die richtige Lösung ist die Abfrage des Parameters Shift.

[HighSpeed]

Es müsste wohl eher so aussehen:

Delphi-Quellcode:

procedure TForm1.FormKeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
 if (ssCtrl in Shift) and (Key = 39) then
  Panel1.left := Panel1.left + 1;
 end else if Key = 39 then
  Panel1.left:=  Panel1.left+10;
end;

[HighSpeed]

Wichtig ist das else, da die 2. Bedingung in beiden Fällen erfüllt ist und ausgeführt werden würde.

[Uwe Raabe]

@HighSpeed: Da war dann doch ein end zuviel...

Etwas anders formuliert funktioniert es auch:

Delphi-Quellcode:

procedure TForm1.FormKeyDown(Sender: TObject; var Key: Word; Shift: TShiftState);
begin
  if Key = 39 then begin
    if ssCtrl in Shift then
      Panel1.left := Panel1.left + 1
    else 
      Panel1.left := Panel1.left + 10;
    Key := 0; // optional, damit kein anderes Control mehr auf den Key reagieren kann
  end;
end;

[thomas2009]

es ging nun
Ich habe allerdings ein ganz neues Projekt erstellt.

Danke

[HighSpeed]

@ Uwe Raabe:
stimmt, is beim begin / end löschen wohl irgendwie übrig geblieben...

aber das passiert ja schonmal, wenn man nich alles immer duch n compiler laufen lässt

[Blackheart]

Zitat von thomas2009:

es ging nun
Ich habe allerdings ein ganz neues Projekt erstellt.

Danke

Wenn du in deinen ettlichen Threads zum Thema Keys mal erwähnt hättest worum es geht oder worauf du hinaus willst, wäre dir und auch andereren damit ziehmlich geholfen.