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

[mutabor]

Во первых используй что-то одно либо FormPaint либо таймер, щас некогда смотреть, посмотрю завтра, ты кординаты менял?
А где процедуры KeyDown, KeyUp?

[mutabor]

держи код, я немного переделал, как убрать мерцание не знаю оно у тебя было изначально, а я в OpenGL не силен, вообще мерцания быть не должно, у меня есть похожий исходник с таймером и т.д. там его нет

const
  speed = 0.01;

var
  Form1: TForm1;
  hrc: HGLRC;
  DC:HDC;
  H:THandle;
  lef,right,up,down: boolean;
  px, py: double;

implementation

{$R *.DFM}

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
H:=Handle;
DC:=GetDC(H);
SetDCPixelFormat(DC);
hrc := wglCreateContext(DC);
wglMakeCurrent(DC, hrc);
glClearColor (0.5, 0.5, 0.75, 1.0);
end;

procedure TForm1.FormPaint(Sender: TObject);
begin
glClear (GL_COLOR_BUFFER_BIT);
glColor3f(1.0, 0.85, 0.35);
glviewPort(0, 0, ClientWidth, ClientHeight);
glPointSize(20);
glBegin(GL_POINTS);
glvertex2f(px,py);
glEnd;
end;

procedure TForm1.FormDestroy(Sender: TObject);
begin
wglMakeCurrent(0, 0);
wglDeleteContext(hrc);
ReleaseDC(H,DC);
DeleteDC(DC);
end;

procedure TForm1.FormKeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
if key = 37 then lef:=true;
if key = 38 then up:=true;
if key = 39 then right:=true;
if key = 40 then down:=true;
end;

procedure TForm1.FormKeyUp(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
if key = 37 then lef:=false;
if key = 38 then up:=false;
if key = 39 then right:=false;
if key = 40 then down:=false;
end;

procedure TForm1.Timer1Timer(Sender: TObject);
begin
if lef then px:=px-speed;
if right then px:=px+speed;
if up then py:=py+speed;
if down then py:=py-speed;
SwapBuffers(DC);
InvalidateRect(H,nil,False);
end;

P.S. интервал таймера поставь 20

[Roof]

Спасибо люди добрые!!!

[Roof]

2 mutabor
Почти все понял ))) все работает! ))
я самоучка, вот не могу понять последнюю строку:

InvalidateRect(H,nil,False);

если не сложно опиши для чего и когда применять можно

[Roof]

единственный прикол с мерцанием это да...
у меня аж другие приложения и рабочий стол мелькают )

[mutabor]

InvalidateRect вызывает перерисовку объекта в определенной области.
В этими параметрами и в этой программе InvalidateRect(H,nil,False) равнозначна Repaint;

p.s. держи ссылку думаю пригодится
http://www.citforum.ru/programming/o...opengl&delphi/

[Roof]

2mutabor
Интересная ссылка спасиб, кое-что полезное я нашел уже
Избавился от мерцания, с горем попалам, мне помогли
Я вот дописал немного код, теперь эта точка у меня стреляет , но, правда, всего один раз Помоги пожалуйста реализовать код чтоб при каждом нажатии Enter эта точка стреляла. Чего-то полдня просидел пробовал с циклами заморочиться, но так ничего и не вышло

[Roof]

unit Unit1;
interface
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, OpenGL, ExtCtrls;
type
  TForm1 = class(TForm)
    Timer1: TTimer;
    procedure FormCreate(Sender: TObject);
    procedure FormDestroy(Sender: TObject);
    procedure FormPaint(Sender: TObject);
    procedure FormKeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
    procedure FormKeyUp(Sender: TObject; var Key: Word;
      Shift: TShiftState);
    procedure Timer1Timer(Sender: TObject);
  private
     DC: HDC;
     hrc: HGLRC;
     procedure SetDCPixelFormat;
    { Private declarations }
  public
    { Public declarations }
  end;
const
   speed = 0.01;
   var
   Form1: TForm1;
   lef,right,up,down, fire: boolean;
   px, py, snar: double; //snar - приращение для снаряда
implementation
{$R *.dfm}
 
procedure TForm1.FormCreate(Sender: TObject);
begin
DC := GetDC(Handle);
   SetDCPixelFormat;
   hrc := wglCreateContext(DC);
   wglMakeCurrent(DC, hrc);
   glClearColor (0.5, 0.5, 0.75, 1.0);
end;
 
procedure TForm1.FormDestroy(Sender: TObject);
begin
wglMakeCurrent(0, 0);
  wglDeleteContext(hrc);
  ReleaseDC(Handle, DC);
  DeleteDC (DC);
end;

procedure TForm1.SetDCPixelFormat;
var
   nPixelFormat: Integer;
   pfd: TPixelFormatDescriptor;
begin
   FillChar(pfd, SizeOf(pfd), 0);
   pfd.dwFlags := PFD_DRAW_TO_WINDOW or PFD_SUPPORT_OPENGL or
                  PFD_DOUBLEBUFFER;
   nPixelFormat := ChoosePixelFormat(DC, @pfd);
   SetPixelFormat(DC, nPixelFormat, @pfd);
end;
 
procedure TForm1.FormPaint(Sender: TObject);
begin
   glViewPort (0, 0, ClientWidth, ClientHeight);
   glClear (GL_COLOR_BUFFER_BIT);
   glColor3f(1.0, 0.85, 0.35);
   glviewPort(0, 0, ClientWidth, ClientHeight);
   glPointSize(20);
   glBegin(GL_POINTS);
     glvertex2f(px,py);
     glEnd;
 
    glPointSize(5);
    glBegin(GL_POINTS);
    glColor3f(0.6, 0.2, 0.8);
    glvertex2f(px, py);
    glEnd;
 
{запуск снаряда}
     if fire= true then begin
    glPointSize(5);
    glBegin(GL_POINTS);
    glColor3f(1.0, 0.1, 0.2);
    glvertex2f(px, py+snar);
    glEnd;
    end;
    SwapBuffers (DC);
    end;
 
procedure TForm1.FormKeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
   if key = 37 then lef:=true;
   if key = 38 then up:=true;
   if key = 39 then right:=true;
   if key = 40 then down:=true;
   if key = 13 then fire:= true
end;
 
procedure TForm1.FormKeyUp(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
   if key = 37 then lef:=false;
   if key = 38 then up:=false;
   if key = 39 then right:=false;
   if key = 40 then down:=false;
end;
 
procedure TForm1.Timer1Timer(Sender: TObject);
begin
   if lef then px:=px-speed;
   if right then px:=px+speed;
   if up then py:=py+speed;
   if down then py:=py-speed;
   if fire then  snar:= snar+ speed;
   InvalidateRect(Handle,nil,False);
end;
end.

[mutabor]

замени эту строку
if fire then snar:= snar+ speed;
этим

   if fire then
     begin
     snar:= snar + speed;
     if snar > 1 then
       begin
       fire:=false;
       snar:=0;
       end;
     end;

[Roof]

я, наверное, просто вопрос неправильно поставил...
мне нада более сложную вещь реализовать - если снаряд вылетел из точки и пролетел уже, например, расстояние >= 0.25 (py+0.25) от центра точки, то при нажатии Enter снова может вылететь 2-ой снаряд, а 1-ый снаряд так и должен лететь до конца формы. Так же когда 2-ой снаряд пролетел от центра точки расстояние >= 0.25, то может вылететь и 3-ий снаряд, при нажатии Enter (если не нажал, то не вылетает ), а 1-ый и 2-ой так и продолжают лететь до конца формы, не исчезая с поля
мне кажется, что нужно с динамическими переменными сделать...
Или я не прав?