|
bBrowser:KeyCommand |
  
|
|
bBrowser:KeyCommand |
|
Zweck
Liste von Tastaturbefehlen, die bei Tastatureingaben abgearbeitet werden sollen.
Klasse
Typ
Access / Assign
Datentyp
Beschreibung
Über die Liste der Tastaturbefehle können zusätzliche Befehle im bBrowser implementiert werden. Bei jedem Tastendruck wird die Liste der Tastaturbefehle nach der gedrückten Taste durchsucht. Sofern ein Tastaturbefehl zur Taste existiert, wird dieser ausgeführt.
Wichtiger Hinweis!
Die Liste der Tastaturbefehle wird durchsucht, bevor die Standardtasten des bBrowser ausgeführt werden. Hierdurch ist es möglich, über die Tastaturbefehle die Standardtasten des bBrowser zu überlagern.
Beispiele
In dem folgenden Beispiel werden zwei Tastaturbefehle zum Löschen (Strg+Entf) und zum Einfügen (Strg + Einfg) von Datensätzen definiert.
METHOD PostInit() CLASS myDataWindow
LOCAL odbsCUSTOMER AS DBServer
LOCAL oKeyCommand AS bKeyCommand
// Browser erzeugen und anzeigen
odbsCUSTOMER := DBServer{"CUSTOMER"}
SELF:oBrowser := bBrowser{oOwner,;
1000,;
Point{0, 0},;
Dimension{300, 250}}
SELF:oBrowser:Use(odbsCUSTOMER)
SELF:oBrowser:Show()
// Tastaturbefehl: Löschen
oKeyCommand := bKeyCommand{KeyDelete,;
,;
TRUE,;
,;
,;
SELF,;
#RecordDelete)
SELF:oBrowser:KeyCommand:Add(oKeyCommand)
// Tastaturbefehl: Einfügen
oKeyCommand := bKeyCommand{KeyInsert,;
,;
TRUE,;
,;
,;
SELF,;
#RecordAppend)
SELF:oBrowser:KeyCommand:Add(oKeyCommand)
METHOD RecordDelete() CLASS myDataWindow
IF !EMPTY(SELF:oBrowser) .and. SELF:oBrowser:Used
SELF:oBrowser:Delete()
ENDIF
METHOD RecordAppend() CLASS myDataWindow
IF !EMPTY(SELF:oBrowser) .and. SELF:oBrowser:Used
SELF:oBrowser:Append()
ENDIF
Siehe auch
Page url: http://www.YOURSERVER.com/index.html?bbrowser_keycommand.htm