Hilfe
EventSource
Aufruf
Parameter
Rückgabewert
Beschreibung
Zusatzinformation
Beispiel
Siehe auch
handle = EventSource ()
Parameter
-
Rückgabewert
Liefert Handle eines Objekts zurück
Beschreibung
Die Funktion EventSource liefert Handle eines Objekts zurück, von wo ein Event erfolgt ist. Weitere Anweisungen wie EventData
(liefert weitere Event-Informationen) und EventX
/EventY
(liefern Koordinaten) vervollständigen diese Funktion. Die untere Tabelle listet alle Events auf:
Zusatzinformation
Hier ist eine Übersicht der Events in BlitzPlus:
| Bezeichnung | ID | Data | Source | X/Y/Z |
|---|---|---|---|---|
| KeyDown | $101 | Scancode | - | - |
| KeyUp | $102 | Scancode | - | - |
| KeyStoke | $103 | ASCII-Code | - | - |
| MouseDown | $201 | Maustaste | Gadget-Handle | - |
| MouseUp | $202 | Maustaste | Gadget-Handle | - |
| MouseMove | $203 | - | Canvas-Handle | Mauskoordinaten |
| MouseWheel | $204 | Drehung | - | - |
| MouseEnter | $205 | - | Canvas-Handle | Mauskoordinaten |
| MouseLeave | $206 | - | Canvas-Handle | - |
| GadgetAction | $401 | Eingabe | Gadget-Handle | - |
| WindowMove | $801 | - | Window-Handle | Fensterkoordinaten |
| WindowSize | $802 | - | Window-Handle | Fenstergröße |
| WindowClose | $803 | - | Window-Handle | - |
| WindowActivate | $804 | - | Window-Handle | - |
| MenuEvent | $1001 | Menunummer | - | - |
| AppSuspend | $2001 | - | - | - |
| AppResume | $2002 | - | - | - |
| AppBeginModal | $2004 | - | - | - |
| AppEndModal | $2005 | - | - | - |
| TimerTick | $4001 | Ticks | Timer-Handle | - |
Beispiel
Standardbeispiel:
window = CreateWindow("Window", 0, 0, 300, 300, 0, 1 + 2 + 8)
button1 = CreateButton("Button", 10, 10, 100, 30, window)
button2 = CreateButton("Button", 10, 50, 100, 30, window)
button3 = CreateButton("Button", 10, 90, 100, 30, window)
While Not KeyHit(1)
Select WaitEvent()
Case $101
SetStatusText window, "Event: KeyDown"
Case $102
SetStatusText window, "Event: KeyUp"
Case $103
SetStatusText window, "Event: KeyStoke"
Case $401
h = EventSource()
SetStatusText window, "Event: Gadget (" + Str$(h) + ")"
Case $801
SetStatusText window, "Event: WindowMove"
Case $802
SetStatusText window, "Event: WindowSize"
Case $804
SetStatusText window, "Event: WindowActivate"
End Select
Wend
button1 = CreateButton("Button", 10, 10, 100, 30, window)
button2 = CreateButton("Button", 10, 50, 100, 30, window)
button3 = CreateButton("Button", 10, 90, 100, 30, window)
While Not KeyHit(1)
Select WaitEvent()
Case $101
SetStatusText window, "Event: KeyDown"
Case $102
SetStatusText window, "Event: KeyUp"
Case $103
SetStatusText window, "Event: KeyStoke"
Case $401
h = EventSource()
SetStatusText window, "Event: Gadget (" + Str$(h) + ")"
Case $801
SetStatusText window, "Event: WindowMove"
Case $802
SetStatusText window, "Event: WindowSize"
Case $804
SetStatusText window, "Event: WindowActivate"
End Select
Wend
Siehe auch
EventData, EventID, EventX, EventY, EventZ, FlushEvents, PeekEvent, WaitEvent, HotKeyEvent
GUI
Event