AllowedEvents

betrifft

Wird ein Control zur Laufzeit einem Formular hinzugefügt, können hier in einem semikolon-separierten String die Namen der Eventmethoden angegeben werden, welche vom Client zum Server übertragen werden sollen.

Beispiel:

Dim c As Control

c := F1.Controls.Add("TCEEdit.Edit", "MyEdit", 1000, 1000, 2000, 200, True, "GenericEvent", "KeyDown;KeyUp", "EDIT")

c.AlignRight := TCEServer.AlignHorizontal.AlignHorRight

c.Expression("Value", TCEServer.ControlPropertyTypes.ObjectProperty) := "Country"

Der Programmcode fügt dem Formular F1 ein Steuerelement TCEEdit.Edit hinzu. Wenn eines der Events KeyDown oder KeyUp ausgelöst wird, wird für jeden dieser Events die Methode GenericEvent aufgerufen. Das neue Steuerelement wird mit der Vorlage EDIT aus den Eigenschaften der Wissensbasis erstellt.

Die Funktion GenericEvent muss folgende Definition aufweisen:

Function GenericEvent(ByVal EI As TCEServer.ControlEventInfo) As Void

End Function