GetNumberFromEvent - Funktion (Unit GVWinNum)

Deklaration:
function GetNumberFromEvent(Event: TEvent; EventType: Byte): Integer;

Funktion:
Diese Funktion versucht aus dem gegebenen Ereignis Event (es muß sich um ein
Tastaturereignis handeln) eine Fensternummer herauszufiltern. EventType kann
einen der etXXXXXXX Werte annehmen. Um z.B. Fenster über
"Alt-<Nummer>" selektieren zu können, müssen Sie folgende Zeilen in die
HandleEvent-Methode Ihrer Applikation einfügen:

...
Num := GetNumberFromEvent(Event, etAltNumKeys);
If Num <> wnNoNumber then
Message(@Self, evBroadCast, cmSelectWindowNum, Ptr(0, Num));
...