Перемещение кнопки клавишами

[Wolfic]

Вот листинг моей проги: unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls; type TForm1 = class(TForm) Button1: TButton; procedure Button1KeyDown(Sender: TObject; var Key: Word; Shift: TShiftState); private { Private declarations } public { Public declarations } end; var Form1: TForm1; implementation {$R *.dfm} procedure TForm1.Button1KeyDown(Sender: TObject; var Key: Word; Shift: TShiftState); begin button1.SetFocus; if key = VK_Left then button1.left:=Button1.left-10 ; end; end. Кнопка Button1 при нажатии клавиши не двигается. В чём моя ошибка?

[kommunist]

вот правильный листинг, если хочешь чтобы двигалась много раз - зацикли здесь 32 код клавиши-пробел если хочешь поставь другой


unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls;
type
TForm1 = class(TForm)
Button1: TButton;
procedure onleftkeydown(Sender: TObject; var Key: Word;
Shift: TShiftState);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
implementation
{$R *.dfm}
procedure TForm1.onleftkeydown(Sender: TObject; var Key: Word;
Shift: TShiftState);
begin
form1.Button1.SetFocus;
if key =32 then
form1.Button1.Left:=left+10;

end;
end.

[mihali4]

Сообщение от Wolfic

Вот листинг моей проги: unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls; type TForm1 = class(TForm) Button1: TButton; procedure Button1KeyDown(Sender: TObject; var Key: Word; Shift: TShiftState); private { Private declarations } public { Public declarations } end; var Form1: TForm1; implementation {$R *.dfm} procedure TForm1.Button1KeyDown(Sender: TObject; var Key: Word; Shift: TShiftState); begin button1.SetFocus; if key = VK_Left then button1.left:=Button1.left-10 ; end; end. Кнопка Button1 при нажатии клавиши не двигается. В чём моя ошибка?

Для начала потрудитесь, пожалуйста, оформлять код (расширенный режим, значок #) в читабельном виде:

unit Unit1;  
interface  uses   Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,   Dialogs, StdCtrls;  
type   TForm1 = class(TForm)
Button1: TButton;     
procedure Button1KeyDown(Sender: TObject; var Key: Word; Shift: TShiftState);
private
     { Private declarations }   
public
     { Public declarations }
end;  
var   Form1: TForm1;  
implementation  
{$R *.dfm}    

procedure TForm1.Button1KeyDown(Sender: TObject; var Key: Word;   Shift: TShiftState); 
begin 
button1.SetFocus; 
if key = VK_Left then 
button1.left:=Button1.left-10 ; 
end;  
end.

Теперь по сути.
Обрабатывать нужно событие TForm1.OnKeyDown:

begin 
if key = VK_Left then 
button1.left:=Button1.left-10 ; 
end;

Не забудьте в свойствах Form1 поставить свойство KeyPreview в True.

[Wolfic]

Сообщение от kommunist

вот правильный листинг, если хочешь чтобы двигалась много раз - зацикли здесь 32 код клавиши-пробел если хочешь поставь другой


unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls;
type
TForm1 = class(TForm)
Button1: TButton;
procedure onleftkeydown(Sender: TObject; var Key: Word;
Shift: TShiftState);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
implementation
{$R *.dfm}
procedure TForm1.onleftkeydown(Sender: TObject; var Key: Word;
Shift: TShiftState);
begin
form1.Button1.SetFocus;
if key =32 then
form1.Button1.Left:=left+10;

end;
end.

Собственно, теперь мой вопрос заключаецо в том, как же зациклить 32 в коде программы=))).И ещё не могли бы вы сказать откуда можно скачать коды клавиш).Заранее благодарен.

[Wolfic]

Сообщение от mihali4

Не забудьте в свойствах Form1 поставить свойство KeyPreview в True.

Спасибо что сказали, а то бы у меня ничего не работало.

[Maslan]

И ещё не могли бы вы сказать откуда можно скачать коды клавиш).Заранее благодарен.

Это уж совсем не дело.... Пишешь "VK_" (без кавычек), жмёшь Ctrl+Space и тебе выдаётся куча кодов. Например, "стрелка влево": VK_LEFT=37

[mihali4]

Сообщение от Maslan

Это уж совсем не дело.... Пишешь "VK_" (без кавычек), жмёшь Ctrl+Space и тебе выдаётся куча кодов. Например, "стрелка влево": VK_LEFT=37

И где мы сию мудрость вписываем? На бумажке? Али в тексте модуля? Али в окошке хэлпа?
Уточните, будьте так любезны.

[Maslan]

Да, тёзка, вы правы. Должен был уточнить, но привычка принимать опыт за "естественный и единственно возможный" вариант победила.

Исправляюсь:
В редакторе кода Delphi, в теле функции, вводим переменную (i:integer), после чего пишем код "i:=VK_" и уже ТУТ нажимаем Ctrl+space

Сама функция может быть любой, например такой:
(красным помечено то, чего мы не писали)

 
procedure TForm1.Button1Click(Sender: TObject);
Var i:integer;
begin
 i:=VK_Left
end;

Это на случай, если переменной нужно просто взять и присвоить код клавиши "стрелка влево". Если нужен весь список (просто посмотреть или сделать себе удобную табличку), то:
Вариант 1: Ctrl+Click на слове "VK_LEFT" откроет модуль windows.pas и пролистает его в редакторе кода до строки, в которой "VK_LEFT" и определён.
Вариант 2: Открыть файл windows.pas любым текстовым редактором и найти позицию самостоятельно.


После (для обоих вариантов) ,рассмотрев объявления констант , можно делать с ними то, что душе угодно.
Например, код клавиши "Esc": VK_ESCAPE = 27;,
а "стрелки вниз": VK_DOWN = 40;
Можно скопировать этот участок текста (который с "VK_"), и сохранить в файл... И т.д.

[mihali4]

И все же. Видимо, зависит от версии?
Как вам понравится такой ответ дельфей у меня:
"Code Insight(tm) features are disabled while debugging"

[Maslan]

От версии зависит вот так: "на любой, начиная по крайней мере с пятой".

Ваш ответ

Code Insight(tm) features are disabled while debugging

Означает всего лишь, что Ctrl+Space было нажато во время отладки программы, а я ничего не говорил о необходимости установки точки останова и запуска программы на отладку. Закрой отладку и попробуй ещё раз