Активная панель????

[casio23]

как сделать так, чтобы нажатия реагировали только в том месте где активная панель то есть исли панель 4 то показать 5 и т.д!и обратно с 7 по 4!!Нажатия происходят по клавишам VK_DOWN и VK_UP!
Подскажите как организовать массив?

[Stilet]

Какая панель? Что имеется ввиду под этим словом?

[Sibedir]

надо делать BringToFront для следующей панели и наоборот SendToBack так для всех панелей в массиве их хоть сколько межет быть записали туда и храните номер самой верхней. VK_DOWN и VK_UP это onkeydown а в массив записываешь при создании поочереди и всё

P.S.: Фу, блин. Не, все-таки лично для меня это тяжело. Этож как стараться надо, чтобы писать не так, как говорить.

[MyLastHit]

Как я как всегда из твоих топиков "понял", тебе просто надо создать массив панелей, например 10 шт расположенных в вертикальный ряд, и к примеру есть какой то флаг(красный цвет панели например, а вообще что угодно, хоть фокус элементов в ней), => если панель №1 красного цвета и ты нажал VK_DOWN, то эта панель снова становиться цветом по дефолту, а та что ниже(панель 2) становится красной и тд.
Если так то напиши да... Или человекопонятным языком, что тебе нужно, безо всяких там "!!!!" и "???", а с "," и ".".

[casio23]

да ты правильно понял!панель расположена на всю форму с верху лежат еще панели, когда нажимаешь VK_DOWN то показывает следующую панель а когда VK_UP предедущую, нужно что бы onkeydown на определенных панелях работал(4..7)!

[Sibedir]

Так что-ли:

var
  pa: array of TPanel;
  pi: Integer;

{$R *.dfm}

procedure TForm1.FormCreate(Sender: TObject);
begin
  SetLength (pa, 4);
  pa[0] := Panel4;
  pa[1] := Panel5;
  pa[2] := Panel6;
  pa[3] := Panel7;
  pi := 3;
end;

procedure TForm1.FormKeyDown(Sender: TObject; var Key: Word; Shift: TShiftState);
begin
  case Key of
    VK_UP: begin
      if pi = 0 then
        pi := Length(pa) - 1
      else
        pi := pi - 1;
    end;
    VK_DOWN: begin
      if pi = Length(pa) - 1 then
        pi := 0
      else
        pi := pi + 1;
    end;
  end;
  pa[pi].BringToFront;
end;

[Stilet]

По-моему все еще проще можно устроить:

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, ExtCtrls;

type
  TForm1 = class(TForm)
    Panel1: TPanel;
    Button1: TButton;
    Panel2: TPanel;
    Button2: TButton;
    Panel3: TPanel;
    Button3: TButton;
    procedure FormCreate(Sender: TObject);
    procedure FormKeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.FormCreate(Sender: TObject);
begin
 KeyPreview:=true;
 ActiveControl:=Panel3;
end;

procedure TForm1.FormKeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
var p:TWinControl;
begin    p:=nil;
 case key of
  104:p:=FindNextControl(ActiveControl,true,false,true);
  98:p:=FindNextControl(ActiveControl,false,false,true);
 end;
 if p<>nil then begin
  p.BringToFront;
  p.SetFocus;
 end;
end;

end.

А главное - не важно сколько панелей будет, и массив не нужен

[MyLastHit]

А у панели тоже есть фокус?

[Sibedir]

2 Stilet

нужно что бы onkeydown на определенных панелях работал(4..7)!

А вдруг их 10. У меня работает именно с 4 по 7.

[Stilet]

У меня работает именно с 4 по 7.

Ради бога, никто не мешает проверять индекс панели

А у панели тоже есть фокус?

Чего бы нет. Она - окно тоже