Таймер, Т

← →
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]

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

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