Текущий архив: 2002.11.21;
Скачать: CL | DM;
Вниз
Имитирование нажатия кнопки Найти похожие ветки
← →
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;
Скачать: CL | DM;
Память: 0.47 MB
Время: 0.018 c
