Hallo Franky und GPI,
vielen Dank für Eure Antworten. Nachfolgend habe ich mal einen kleinen
Code zusammengebastelt, der mein RaiseEvent() demonstriert.
Funktionieren tut's, aber ist das auch sauber?
Code: Alles auswählen
Enumeration
#frmMain
EndEnumeration
Enumeration
#cmdLos
#lstOutput
EndEnumeration
#WM_App = $8000
Procedure myEvent()
PostMessage_(WindowID(#frmMain), #WM_App,0,0)
PostMessage_(WindowID(#frmMain), #WM_App + 1,0,0)
EndProcedure
If OpenWindow(#frmMain, 0, 0, 300, 150, #PB_Window_ScreenCentered | #PB_Window_SystemMenu, "RaiseEvent-Test")
If CreateGadgetList(WindowID(#frmMain))
ListViewGadget(#lstOutput,10,10,280,100)
ButtonGadget(#cmdLos,10,120,90,20,"Los!")
Repeat
Select WindowEvent()
Case #PB_EventCloseWindow
Break
Case #PB_EventGadget
Select EventGadgetID()
Case #cmdLos
myEvent()
EndSelect
Case #WM_App
AddGadgetItem(#lstOutput,-1,"#WM_App erhalten")
Case #WM_App + 1
AddGadgetItem(#lstOutput,-1,"#WM_App+1 erhalten")
EndSelect
Delay(1)
ForEver
EndIf
CloseWindow(#frmMain)
EndIf
End
GPI hat geschrieben:
Für Messages: #WM_App bis #WM_App+100
das bedeutet im Klartext, daß mir 101 benutzerdefinierte Messages zur
Verfügung stehen?
Nochmals Danke & Grüße ... Kiffi