проблема с FormKeyUp

[casio23]

Добрый день,подскажите сделать?
На форме лежат 7 панелей,в таймере идет счетчик
id:=id+1;
p[id].BringToFront;
if id = 4 then begin Timer1.Enabled:=false;
То есть дошла до 4 панели и остановилась,это работает!
ВОПРОС:
а как сделать так что бы по нажатию на клавиши VK_DOWN и VK_UP показывалась определенная панель?Но панель должна показываться по порядку 4,5,6,7 и обратно 7,6,5,4!

Кто знает помогите!

[unbanned]

procedure TForm1.FormKeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
 if Ord(Key)=40 then .... // down
 if Ord(Key)=38 then .... // up
end;

[VVM]

Если я верно понял задумку, то удобнее использовать PageControl вместо множества панелей.

[casio23]

Сообщение от unbanned

procedure TForm1.FormKeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
 if Ord(Key)=40 then .... // down
 if Ord(Key)=38 then .... // up
end;

Нет,это не подходит я так уже делал,это сможет перейти только на 1 панель вверх или вниз!!!!мне нужно по порядку чтобы переходило 5,6,7-и 7,6,5,4!!!!!!

[Пепел Феникса]

вам сказали хороший вариант уже.
а вообще пост 2 + FindComponent или же массив панелей.

[casio23]

Нет мне не нужен PageControl, вы не так поняли мне нужно узнать номер на кокой панели находится фокус,ил скорее всего какая активная панель, нужен массив, подскажите код??

[casio23]

кто знает помогите,очень нужно как узнать номер активной панели??????????????

[casio23]

есть кто живой???