Модератор: Модераторы
Иван Шихалев писал(а):Собственно, к вариантной части можно и так и так обращаться. Если не определено поле тега, а только тип — значит это и неважно — какое представление требуется, то и используем.
PSDL_Event = ^SDL_Event;
SDL_Event = record
case longint of
0 : ( eventtype : Uint8 );
1 : ( active : SDL_ActiveEvent );
2 : ( key : SDL_KeyboardEvent );
3 : ( motion : SDL_MouseMotionEvent );
4 : ( button : SDL_MouseButtonEvent );
5 : ( jaxis : SDL_JoyAxisEvent );
6 : ( jball : SDL_JoyBallEvent );
7 : ( jhat : SDL_JoyHatEvent );
8 : ( jbutton : SDL_JoyButtonEvent );
9 : ( resize : SDL_ResizeEvent );
10: ( expose : SDL_ExposeEvent );
11: ( quit : SDL_QuitEvent );
12: ( user : SDL_UserEvent );
13: ( syswm : SDL_SysWMEvent );
end;
Вернуться в Обучение Free Pascal
Сейчас этот форум просматривают: нет зарегистрированных пользователей и гости: 6