TBeEdit
TBeEdit
Standard Be-Eingabefeld
Eigenschaften
Eigenschaft | Beschreibung | |
---|---|---|
IsLoaded:L | Muss auf 'True' gesetzt werden, um das Standard-Be-Kontextmenü zu erhalten | |
AutoNextField:L | Wird der eingegebene Text länger als die Länge der Eingabemaske, so wird automatisch das nächste Control fokusiert | |
PictureMaskValueOnError:N | Wird nur ausgeführt wenn ein PictureMask existiert und die Validierung des PictureMask fehlschlägt | |
Wert | Beschreibung | |
voeEmpty ( 0 ) | Setzt den Wert vom Edit auf leer String ( '' ) | |
voeDBOldValue ( 1 ) | Setzt den Wert vom Edit auf dem Wert aus dem Datenbestand vor dem Edit | |
voeLastValue ( 2 ) | Setzt den Wert vom Edit auf den letzten Wert vor dem Fehler |
Beispiel
CODE
//******************************************************************************
// Beschreibung: Dieses CodeBlock-Programm dient zur
// Demonstration der Klasse TBeInfoPanel
//******************************************************************************
| oForm, oEdit, oLabel |
//##############################################################################
//##############################################################################
// Initialisierung
//##############################################################################
//##############################################################################
// oFrom
oForm := CreateObject('TFormEx', 'frm_Main'),
oForm.Width := 300,
oForm.Height := 100,
// oEdit
oEdit := CreateObject('TBeEdit', 'edt_Test', oForm, oForm),
oEdit.Left := 100,
oEdit.Top := 5,
oEdit.Width := 180,
oEdit.Text := '',
oEdit.IsLoaded := True, // Wichtig, um das Be-Standard-Kontextmenü zu erhalten
// oLabel
oLabel := CreateObject('TLabel', 'lbl_Test', oForm, oForm),
oLabel.Left := 5,
oLabel.Top := 8,
oLabel.Caption := 'TBeEdit',
ShowModal(oForm),
DestroyObject(oForm),