TProgram.GetEvent - Methode

Deklaration:
procedure GetEvent(var Event: TEvent); virtual;

Funktion:
TProgram.GetEvents überprüft zunächst, ob ein von TProgram.PutEvent
generiertes Ereignis anliegt und gibt gegebenenfalls dieses Ereignis zurück.

Ist das nicht der Fall, wird GetMouseEvent und, wenn auch darüber nur ein
Ereignis des Typs evNothing ermittelt wird, GetKeyEvent aufgerufen.
Liefert auch dieser Aufruf evNothing, wird GetTimerEvent aufgerufen,
um ein Zeitgeber-Ereignis abzufragen.

Liegt ein solches Ereignis an, ruft GetEvent die Methode Timer
auf, liefert aber selbst nur ein Ereignis des Typs evNothing zurück.

Ergab aber auch GetTimerEvent ein evNothing-Ereignis, ruft GetEvent die
Methode Idle auf. Dadurch kann ein Programm, das auf Eingaben des
Benutzers wartet, im Hintergrund andere Aufgaben erledigen.

Ist endlich ein der Weitergabe würdiges Ereignis ermittelt, überprüft
GetEvent, ob dies ein Ereignis des Typs evKeyDown oder evMouseDown ist.
Sollte das der Fall sein, wird das Ereignis zunächst der Statuszeile
übergeben.