TAppMessage

type TAppMessage = record

  am_Message: TMessage;

Standard message structure

  am_type: Word;

Message type (AMTYPE_*)

  am_UserData: LongWord;

Application specific

  am_ID: LongWord;

Application definable ID

  am_NumArgs: LongInt;

Number of elements in arglist

  am_ArgList: PWBArgList;

The arguements themselves

  am_Version: Word;

Will be AM_VERSION

  am_Class: Word;

Message class (AMCLASSICON_*)

  am_MouseX: SmallInt;

Mouse x position of event

  am_MouseY: SmallInt;

Mouse y position of event

  am_Seconds: LongWord;

Current system clock time

  am_Micros: LongWord;

Current system clock time

  am_Reserved: array [0..7] of LongWord;

Avoid recompilation

end;