Navigation:  Klassen > bBrowser >

bBrowser:KeyCommand

Diese Seite drucken    Vorherige SeiteZurück zum Anfang des KapitelsNächste Seite

Zweck

Liste von Tastaturbefehlen, die bei Tastatureingaben abgearbeitet werden sollen.

Klasse

bBrowser

Typ

Access / Assign

Datentyp

bKeyCommandList

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.

 

Anmerkungen
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

bKeyCommand

bKeyCommandList

 


Page url: http://www.YOURSERVER.com/index.html?bbrowser_keycommand.htm