Open GL. при нажатии клавиш Left, Ridth, Up и Down точка должна двигаться по форме

[Roof]

Здравствуйте помогите пожалуйста написать обработчик клавиш в программке.

procedure TForm1.FormPaint(Sender: TObject);
var Key: Char;
begin

wglMakeCurrent(Canvas.Handle, hrc);
 glClearColor (0.5, 0.5, 0.75, 1.0);
 glClear (GL_COLOR_BUFFER_BIT);
 glviewPort(0, 0, ClientWidth, ClientHeight);
 glPointSize(20);
 glColor3f(1.0, 0.85, 0.35);
 glBegin(GL_POINTS);
 glvertex2f(1,0);

  if Key = Char(VK_LEFT) then   //не работает
  glVertex2f(0, 0);
 

 glend;
 wglMakeCurrent(0, 0);
end;
 
procedure SetDCPixelFormat (hdc : HDC);
var
 pfd : TPixelFormatDescriptor;
 nPixelFormat : Integer;
begin
 FillChar (pfd, SizeOf (pfd), 0);
 nPixelFormat := ChoosePixelFormat (hdc, @pfd);
 SetPixelFormat (hdc, nPixelFormat, @pfd);
end;
 
procedure TForm1.FormCreate(Sender: TObject);
begin
 SetDCPixelFormat(Canvas.Handle);
 hrc := wglCreateContext(Canvas.Handle);
end;
 
procedure TForm1.FormDestroy(Sender: TObject);
begin
 wglDeleteContext(hrc);
end;

procedure TForm1.FormClick(Sender: TObject);
begin
Refresh;
end;
 
procedure TForm1.FormKeyPress(Sender: TObject; var Key: Char);
begin
Refresh;
end;
end.

Вообще говоря программка рисует на поверхности формы точку размером 20 и мне нужно, чтоб при нажатии клавиш Left, Ridth, Up и Down эта самая точка двигалась по форме. Так же мне нада чтоб я мог задавать интервал с которым она должна перемещаться.

 
if Key = Char(VK_LEFT) then
  glVertex2f(0, 0);

вот данные инструкции не работают , а все остальное вроде верно, так как брал все из книжки.

[UnD)eaD)Snake]

попробуй
if IsKeyDown(vk_left) then
glVertex2f(0, 0);

[Roof]

не компилируется теперь вообще.

[Error] Unit1.pas(50): E2003 Undeclared identifier: 'IsKeyDown'

как описать IsKeyDown ?

[mutabor]

Вообще для обработки клавиш и мыши, а также чтобы добавить таймер в OGL программах на Дельфи можно либо использовать VCL либо WinAPI. Все тоже самое что и в обычных Дельфи программах, только графика OGL.

Создаешь таймер, задаешь нужный интервал, для каждой клавиши создаешь глоб. boolean переменную. Нажал клавишу - true, отпустил - false. В обр. таймера если нужная переменная = true, изменяешь координаты перемещаемого объекта и делаешь отрисовку.

[mutabor]

не компилируется теперь вообще

сделай так

var lef, right, up, down: boolean;

//OnKeyDown
if key = 36 then lef:=true;
//и так для остальных клавиш, коды стрелок 36,37,38,39 вроде

//в OnKeyUp обратный процесс все false

а нужный код в таймере пиши

[Roof]

2 mutabor
хм... интересно сейчас попробую спасибо!

[UnD)eaD)Snake]

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

не компилируется теперь вообще.

[Error] Unit1.pas(50): E2003 Undeclared identifier: 'IsKeyDown'

как описать IsKeyDown ?

Добавь в uses Keyboard

[Roof]

2 UnD)eaD)Snake
Форумчанин
KeyBoard добавил, но компилятор не признает

[Fatal Error] Unit1.pas(7): F1026 File not found: 'Keyboard.dcu'

я так понял может компонент нужно какой поставить дополнительно?

[Roof]

2 mutabor
Проверь код пожалуйста. Что я неправильно сделал? все компилируется, но точка так и не начала двигаться . Писал только для стрелки Up.

 
var
  Form1: TForm1;
  lef, right, up, down: boolean;

implementation
{$R *.dfm}
 
procedure TForm1.FormPaint(Sender: TObject);
var Key: Char;
begin
wglMakeCurrent(Canvas.Handle, hrc);
 glClearColor (0.5, 0.5, 0.75, 1.0);
 glClear (GL_COLOR_BUFFER_BIT);
 glviewPort(0, 0, ClientWidth, ClientHeight);
 glPointSize(20);
 glColor3f(1.0, 0.85, 0.35);
 glBegin(GL_POINTS);
 glvertex2f(0, 0);
 if key = #36 then begin
 up:=true;
 Form1.Timer1Timer(Timer1);
 end;
 glend;
 wglMakeCurrent(0, 0);
end;
 
procedure SetDCPixelFormat (hdc : HDC);
var
 pfd : TPixelFormatDescriptor;
 nPixelFormat : Integer;
begin
 FillChar (pfd, SizeOf (pfd), 0);
 nPixelFormat := ChoosePixelFormat (hdc, @pfd);
 SetPixelFormat (hdc, nPixelFormat, @pfd);
end;
 
procedure TForm1.FormCreate(Sender: TObject);
begin
 SetDCPixelFormat(Canvas.Handle);
 hrc := wglCreateContext(Canvas.Handle);
end;
 
procedure TForm1.FormDestroy(Sender: TObject);
begin
 wglDeleteContext(hrc);
end;

procedure TForm1.FormClick(Sender: TObject);
begin
Refresh;
end;
 
procedure TForm1.FormKeyPress(Sender: TObject; var Key: Char);
begin
Refresh;
end;
 
procedure TForm1.Timer1Timer(Sender: TObject);
begin
if up= true then begin
  glBegin(GL_POINTS);
  glvertex2f(0, 0.5);
 glend;
 end;
 end;
end.

.

[UnD)eaD)Snake]

Сори, вот попробуй