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;

Как да го направя и къде ми е грешката?

Съдържаниет е скрито
Влезте за да го видите

Ако опишеш по-членоразделно проблема, ще ти помогна.
Просто не разбирам какво искаш и трябва да гадая:
Дали искаш като натиснеш стрелка да излиза буквичка ли?
Или да се изпълнява KeyPress?
button.click не е бутон, а е обработчик на събитие.

Вероятно ако си формулираш вярно въпроса - сам ще си отговориш.

Съдържаниет е скрито
Влезте за да го видите

Съдържаниет е скрито
Влезте за да го видите

Съдържаниет е скрито
Влезте за да го видите

Я сетни KeyPreview пропъртито на формата на True и опитай пак.

Linux isn't free, it's worthless.

Съдържаниет е скрито
Влезте за да го видите

Направих го KeyPreview на True но не се получи.

Имам 4 бр. BitBtn и искам като натисна стрелките на клавиатурата да се натискат съответно бутоните.

Съдържаниет е скрито
Влезте за да го видите

Ами викай им метода клик с параметър нул

чакай, чакай. Лошо съм обяснил! Искам параметъра който да показва натискането на бутона (да хлътва бутона) при натискане на стрелката! Другото съм го направил!

Съдържаниет е скрито
Влезте за да го видите

И за колко време да хлътва? :)


Бутоните tButton нямат такава екстра, вероятно може да се докара с прерисуване, но ми се струва, че другите алтернативи са по-четливи:
- Tool лента (Toolbar май се казваше) - има тулбутон, който е доста кадърен
- bitmap бутон и да му сменяш битмапа
- panel и да му сменяш борда от изпъкнал на вдлъбнат
Всеки от вариантите има предимства и недостатъци.

Ахъ
Кофти, може и да го избегна или да му сложа img

Съдържаниет е скрито
Влезте за да го видите

Да, най-лесно ще е някъде ОКОЛО или ВЪРХУ бутона да извеждаш една (зелена) точка, примерно. TImage, да речем.

Да, то това си е глезотийка де.

Съдържаниет е скрито
Влезте за да го видите

Съдържаниет е скрито
Влезте за да го видите

Съдържаниет е скрито
Влезте за да го видите