Форум: "Начинающим";
Текущий архив: 2006.06.04;
Скачать: [xml.tar.bz2];
Вниз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;
Скачать: [xml.tar.bz2];
Память: 0.45 MB
Время: 0.081 c