| Форумы
ЧАТ |
Орешник |
|
| Форумы -» | Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG |
|
| ||
|
|
Новости |
Поиск |
FAQ |
Статьи |
Книги |
Новости VCL
| | Форумы ЧАТ |
Орешник |
|
| |||
| |||
| |||
« предыдущая ветвь | форум | следующая ветвь »
Имитирование нажатия кнопки [D5, Win95/98, Win2k]
VJar © (2002-11-09 13:59:00)Допустим у меня есть 4 кнопки типа SpeedButton:
Up,Down,Left,Rigth. Мне нужно, что бы при нажатии соответсвующих кнопок клавиатуры эти кнопки на форме тоже нажимались.
Как это можно сделать?
[NEW]Splinter (2002-11-10 11:19:00) [1]Объявить их и не париться - делов-то...
OxOTHuK (2002-11-10 10:56:00) [2]а если не объявлены процедуры нажатий?? тогда как?
Lego (2002-11-10 06:07:00) [3]на голой форме кинул 4 спидбутона SpeedButtonUp, SpeedButtonRight, SpeedButtonDown, SpeedButtonLeft...
procedure TForm1.SpeedButtonUpClick(Sender: TObject);
begin
Label1.Caption := "U";
end;
procedure TForm1.SpeedButtonRightClick(Sender: TObject);
begin
Label1.Caption := "R";
end;
procedure TForm1.SpeedButtonDownClick(Sender: TObject);
begin
Label1.Caption := "D";
end;
procedure TForm1.SpeedButtonLeftClick(Sender: TObject);
begin
Label1.Caption := "L";
end;
procedure TForm1.FormKeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState);
begin
case Key of
VK_UP : SpeedButtonUp.Click;
VK_RIGHT : SpeedButtonRight.Click;
VK_DOWN : SpeedButtonDown.Click;
VK_LEFT : SpeedButtonLeft.Click;
end;
end;
| |
