|
Тема |
BUTTON-и ;) |
|
Автор |
Timo (собствен ник ) |
|
Публикувано | 18.12.14 01:38 |
|
|
VK_UP,VK_DOWN,VK_LEFT,VK_RIGHT
С клавишите на горе на долу и на ляво и дясно искам като ги натискам да се натиска и бутона button.click Пробвах няколко начина и нищо не стана.
procedure TForm1.Form4KeyUp(Sender: TObject; var Key: Word;
Shift: TShiftState);
begin
if key = VK_LEFT then
begin
end;
end;
procedure TForm1.KeyPress(Sender: TObject; var Key: Char);
begin
if key = #26 then
begin
// key := #0;
BEEP;
end;
end;
Как да го направя и къде ми е грешката?
|
| |
|
|
|