Скачать: CL | DM;

Таймер, Т_Т   Найти похожие ветки 

← →
VseHotjatIJaHo4u   (2006-02-04 16:14) [0]

Доброго времени суток.
Создаю таймер:

    TPlayer=class
    private
       Xmain,YMain:integer;
...
    public
...
    end;

    TGLGame=class
    private
...
    public
       Player:TPlayer;
       procedure TimerProc(wnd: HWND; Msg: UINT; idEvent: UINT; Time: DWORD); stdcall;
...
    end;

procedure TGLGame.TimerProc(wnd: HWND; Msg: UINT; idEvent: UINT; Time: DWORD); stdcall;
begin
     Player.Xmain:=Player.Xmain+100; // Когда обращаюсь к другому классу, то происходит непонятное, эта и ниже стоящие команды не выполняются
     ShowMessage("Test");
end;
constructor TGLGame.Create;
begin
 SetTimer(0, 1, 1000, @GLGame.TimerProc);
 Player:=TPlayer.Create;
end;
Может кто подскажет в чем дело то.

---

← →
McSimm ©   (2006-02-04 17:52) [1]

>  SetTimer(0, 1, 1000, @GLGame.TimerProc);

Вы уверены, что этот указатель указывает туда куда надо?

---

← →
begin...end ©   (2006-02-04 20:00) [2]

http://delphimaster.net/view/1-1137730928/

---

← →
VseHotjatIJaHo4u   (2006-02-04 21:14) [3]

> Вы уверены, что этот указатель указывает туда куда надо?

Вот я и прошу помощи :\ Незнаю

---

← →
VseHotjatIJaHo4u   (2006-02-04 21:16) [4]

Все спасибо, понял

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.45 MB
Время: 0.03 c