Главная страница
    Top.Mail.Ru    Яндекс.Метрика
Форум: "Начинающим";
Текущий архив: 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
6-1138453363
Lupi
2006-01-28 16:02
2006.06.04
Поиск линков


6-1137435217
guitarist
2006-01-16 21:13
2006.06.04
Hyperterminal


2-1147791349
AlexanderMS
2006-05-16 18:55
2006.06.04
Ошибка при чтении string из файла


15-1146854934
ArtemESC
2006-05-05 22:48
2006.06.04
Глаза...


15-1146837235
syte_ser78
2006-05-05 17:53
2006.06.04
Просьба. Если кому не лень...





Afrikaans Albanian Arabic Armenian Azerbaijani Basque Belarusian Bulgarian Catalan Chinese (Simplified) Chinese (Traditional) Croatian Czech Danish Dutch English Estonian Filipino Finnish French
Galician Georgian German Greek Haitian Creole Hebrew Hindi Hungarian Icelandic Indonesian Irish Italian Japanese Korean Latvian Lithuanian Macedonian Malay Maltese Norwegian
Persian Polish Portuguese Romanian Russian Serbian Slovak Slovenian Spanish Swahili Swedish Thai Turkish Ukrainian Urdu Vietnamese Welsh Yiddish Bengali Bosnian
Cebuano Esperanto Gujarati Hausa Hmong Igbo Javanese Kannada Khmer Lao Latin Maori Marathi Mongolian Nepali Punjabi Somali Tamil Telugu Yoruba
Zulu
Английский Французский Немецкий Итальянский Португальский Русский Испанский