Форум: "Основная";
Текущий архив: 2002.11.21;
Скачать: [xml.tar.bz2];

Вниз

Имитирование нажатия кнопки   Найти похожие ветки 

← →
VJar   (2002-11-09 13:59) [0]

Допустим у меня есть 4 кнопки типа SpeedButton:
Up,Down,Left,Rigth. Мне нужно, что бы при нажатии соответсвующих кнопок клавиатуры эти кнопки на форме тоже нажимались.
Как это можно сделать?

---

← →
Lego   (2002-11-10 06:07) [1]

на голой форме кинул 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;


---

← →
OxOTHuK   (2002-11-10 10:56) [2]

а если не объявлены процедуры нажатий?? тогда как?

---

← →
[NEW]Splinter   (2002-11-10 11:19) [3]

Объявить их и не париться - делов-то...

---

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

Форум: "Основная";
Текущий архив: 2002.11.21;
Скачать: [xml.tar.bz2];

Наверх

Память: 0.44 MB
Время: 0.008 c