[Gudzik11]

Ребят помогите пожалуйста нужно сделать меню но так чтоб можно было двигаться по нему стрелками на клавиатуре.
К примеру есть 3 Label нужно чтоб при нажатии на стрелку вниз на клавиатуре поочерёдно подсвечивались Labelы а при нажатии на Enter происходило нажатие LabelClick

[poli-smen]

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

Ребят помогите пожалуйста нужно сделать меню но так чтоб можно было двигаться по нему стрелками на клавиатуре.
К примеру есть 3 Label нужно чтоб при нажатии на стрелку вниз на клавиатуре поочерёдно подсвечивались Labelы а при нажатии на Enter происходило нажатие LabelClick

Обрабатывай событие OnKeyDown:
VK_DOWN - Клавиша "Стрелка вниз"
VK_UP - Клавиша "Стрелка вверх"
VK_RETURN - Клавиша "Enter"

[Black Raider]

Как то так:

Код:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67

unit Unit1;   interface   uses   Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,   Dialogs, StdCtrls;   type   TForm1 = class(TForm)     Label1: TLabel;     Label2: TLabel;     Label3: TLabel;     procedure FormKeyUp(Sender: TObject; var Key: Word;       Shift: TShiftState);     procedure FormCreate(Sender: TObject);   private     FlabelSelect: TLabel;     FlabelNo: integer;     { Private declarations }   public     { Public declarations }     property labelSelect:TLabel read FlabelSelect write FlabelSelect;     property labelNo:integer read FlabelNo write FlabelNo;   end;   var   Form1: TForm1;   implementation   {$R *.dfm}   procedure TForm1.FormKeyUp(Sender: TObject; var Key: Word;   Shift: TShiftState);   begin labelselect.Color:=clBtnFace;   if key= VK_DOWN then begin   if labelNo=3 then labelNo:=0;   labelNo:=labelNo+1; end;   if key= VK_UP then begin   if labelNo=1 then labelNo:=4;   labelNo:=labelNo-1; end;   labelselect:=(FindComponent('Label'+inttostr(labelNo)) as TLabel); labelselect.Color:=clNavy;   if key=VK_RETURN then begin   showmessage('Enter Press '+labelSelect.Name);   //labelSelect.OnClick(self); //Îáðàáîò÷èê êîòîðûé onClick íà label end;   end;   procedure TForm1.FormCreate(Sender: TObject); begin labelSelect:=label1; labelselect.Color:=clNavy; labelNo:=1; end;   end.

[Gudzik11]

Спасибо большое то что нужно .

[angvelem]

И на скольки форумах ты запостил тему? Надеялся, что ответы разные будут?