| Форумы
ЧАТ |
Орешник |
|
| Форумы -» | Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG |
|
| ||
|
|
Новости |
Поиск |
FAQ |
Статьи |
Книги |
Новости VCL
| | Форумы ЧАТ |
Орешник |
|
| |||
| |||
| |||
« предыдущая ветвь | форум | следующая ветвь »
Key [D2005, XP]
ZV © (2006-05-19 09:30:00)Как переключаться между компонентами формы при помощи клавиш. Как опрашивать клавиши . Если можно пример <если определённая клавиша нажата то выполнить событие>
Ega23 (2006-05-19 10:24:00) [1]
> Нужно при нажатии клавиши НИЗ или ВЕРХ перемещаться по
> этому столбцу
Вообще-то в 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.
ZV (2006-05-19 10:03:00) [2]Как переключать фокус на нужные елементы (у меня SpeenEdit,Edit) Они у меня расположены в столбец. Нужно при нажатии клавиши НИЗ или ВЕРХ перемещаться по этому столбцу а при нажатии ЛЕВО ПРАВО изменять значения выбранного элемента
Ega23 (2006-05-19 09:45:00) [3]Почитай про класс TAction, у него есть свойство ShortCut
Elen (2006-05-19 09:33:00) [4]Можно занести эти клавиши в меню (которое не будет видно на экране), а в выполнении менюшек переключать фокус на нужные элементы.
| |
