Navigation mit Pfeiltasten

[uwewo]

Hi,

hier Dein alter Code etwas verändert

Delphi-Quellcode:

procedure TForm1.FormKeyUp(Sender: TObject; var Key: Word; 
  Shift: TShiftState); 
begin 
   if (Form1.ActiveControl = RzBmpButton1) and (Key = VK_RIGHT)  then 
     begin
      Form1.ActiveControl := RzBmpButton2; 
      exit;//Beim erfüllen der Bedingung springt er hier aus der procedure
     end;
    if (Form1.ActiveControl = RzBmpButton2) and (Key = VK_RIGHT)  then 
     begin
      Form1.ActiveControl := RzBmpButton3; 
      exit;//Beim erfüllen der Bedingung springt er hier aus der procedure
     end;
   if (Form1.ActiveControl = RzBmpButton3) and (Key = VK_RIGHT)  then 
     begin
      Form1.ActiveControl := RzBmpButton4; 
      exit;//Beim erfüllen der Bedingung springt er hier aus der procedure
     end;
end;

ungetestet, denke aber es funktioniert.