Текущий архив: 2006.06.04;
Скачать: CL | DM;

Вниз

Key   Найти похожие ветки 

← →
ZV ©   (2006-05-19 09:30) [0]

Как переключаться между компонентами формы при помощи клавиш. Как опрашивать клавиши . Если можно пример <если определённая клавиша нажата то выполнить событие>

---

← →
Elen ©   (2006-05-19 09:33) [1]

Можно занести эти клавиши в меню (которое не будет видно на экране), а в выполнении менюшек переключать фокус на нужные элементы.

---

← →
Ega23 ©   (2006-05-19 09:45) [2]

Почитай про класс TAction, у него есть свойство ShortCut

---

← →
ZV ©   (2006-05-19 10:03) [3]

Как переключать фокус на нужные елементы (у меня SpeenEdit,Edit) Они у меня расположены в столбец. Нужно при нажатии клавиши НИЗ или ВЕРХ  перемещаться по этому столбцу а при нажатии ЛЕВО ПРАВО изменять значения выбранного элемента

---

← →
Ega23 ©   (2006-05-19 10:24) [4]

> Нужно при нажатии клавиши НИЗ или ВЕРХ  перемещаться по
> этому столбцу


Вообще-то в Windows это делается нажатием Tab или Shift+Tab. Отступать от привычного интерфейса - нехорошо.

Но если очень хочется, то примерно так:

type
 TForm1 = class(TForm)
   Edit1: TEdit;
   Edit2: TEdit;
   Edit3: TEdit;
   Edit4: TEdit;
   Edit5: TEdit;
   Edit6: TEdit;
   procedure FormKeyDown(Sender: TObject; var Key: Word;
     Shift: TShiftState);
   procedure FormCreate(Sender: TObject);
 private
   { Private declarations }
 public
   CurrControl:TWinControl;
 end;

var
 Form1: TForm1;

implementation

{$R *.DFM}

procedure TForm1.FormKeyDown(Sender: TObject; var Key: Word;
 Shift: TShiftState);
begin
 Case Key of
  VK_UP   :      CurrControl:=FindNextControl(CurrControl, False, True, True);
  VK_DOWN :      CurrControl:=FindNextControl(CurrControl, True, True, True);
 end;
CurrControl.SetFocus;
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
 CurrControl:=Edit1;
end;

end.


---

Страницы: 1 вся ветка

Текущий архив: 2006.06.04;
Скачать: CL | DM;

Наверх

Память: 0.47 MB
Время: 0.046 c