TFormEx
TFormEx
Basis Formular Klasse.
Eigenschaften
Eigenschaft | Beschreibung | Zugriff |
---|---|---|
OrigCapt:C | Fenster-Titel, nicht die Eigenschaft Caption verwenden da diese bei Docking-Fenstern überschrieben wird. | Lesen/Schreiben |
ActiveControl:O | Fokusiertes Steuerelement bei Start | Lesen/Schreiben |
ImageIndex:N | ImageIndex aus be-ImageList für Icon im Fenster-Navigator | Lesen/Schreiben |
PositionSaveId:C | @+5 Zeichen für ID, zum Speichern der Größe/Position | Lesen/Schreiben |
Position:C | poDesigned = Standard-Wert ab D2007, damit Formular immer an gleicher Position geöffnet wird | Lesen/Schreiben |
Verwendung
Im F12-Designer ist es die Standard Fenster-Klasse
Beispiel
CODE
|oForm, oButton, oEdit|
// Form Object und Demo Steuerelemente erzeugen
oForm := CreateObject('TFormEx'),
oButton := CreateObject('TBeBitBtn',,oForm,oForm),
oEdit := CreateObject('TBeEdit',,oForm,oForm),
startseq
oForm.Width := 200, // Breite des Fensters
oForm.Height := 150, // Höhe des Fensters
oForm.OrigCapt := 'Demo', // Titel des Fensters
oForm.ActiveControl := oEdit, // Fokusiertes Steuerelement bei Start
oForm.ImageIndex := 1, // ImageIndex aus be-ImageList für Icon im Fenster-Navigator
oForm.Position := poDesigned, // Standard-Wert ab D2007, damit Formular
// immer an gleicher Position geöffnet wird
oForm.PositionSaveId := '@DEMO1', // @+5 Zeichen für ID zum speichern der Position
// Demo Steuerelemente
oEdit.Top := 20,
oEdit.Left := 20,
oEdit.Text := today(),
oButton.Top := 60,
oButton.Left := 20,
oButton.Caption := 'Demo',
ShowModal(oForm),
always
DestroyObject(oForm),
stopseq,