Zum Inhalt springen

OBS/Stammdaten/Programmparameter/Hotkey Manager: Unterschied zwischen den Versionen

Aus OBS Wiki
← Zum vorherigen VersionsunterschiedZum nächsten Versionsunterschied →
VisuellWikitext
Schinke (Diskussion | Beiträge)
Programmierer, Administratoren
4.171 Bearbeitungen
KKeine Bearbeitungszusammenfassung
Schinke (Diskussion | Beiträge)
Programmierer, Administratoren
4.171 Bearbeitungen
KKeine Bearbeitungszusammenfassung
Zeile 40: Zeile 40:
=={{F10}} Weitere==
=={{F10}} Weitere==
===A - Hotkey Macro setzen===
===A - Hotkey Macro setzen===
Hierüber kann einem Hotkey ein Macro hinterlegt werden.
Beispiel:
<source lang="delphi">
procedure Hotkey(oForm:TxForm; nKey:Integer);
var oKunde  : TCombiListe;
    FrmEdit : TFrmEdit;
begin
    oKunde  := NIL;
    FrmEdit := TFrmEdit(oForm);
   
    if (Assigned(FrmEdit)) then begin
        DebugLine('Name:' + FrmEdit.ClassName + ' Key: ' + IntToStr(nKey));
        DebugLine('Form OK'); 
        oKunde := TCombiListe(FrmEdit.FindComponent('CBL_DB_T_SACHBEARB'));
    end;
   
    if (Assigned(oKunde)) then begin
        MySetFocus(oKunde);
        DebugLine('Fokus gesetzt');
        //xSet('T_SACHBEARB','01');
        //xSet('ABC','99');
    end;
end;
</source>
</font>
</font>

Version vom 8. September 2020, 14:29 Uhr

Hotkey Manager

Spalten

Spalte Beschreibung
Titel
Name
Feld
User Für welche Benutzer ist der Hotkey aktiv (XXX bedeutet, dass der Hotkey für alle Benutzer aktiviert ist)
Gruppe Beispiel
Level
Scan-Key Hier wird der Hotkey angezeigt
ReradOnly Einträge mit Ja können nicht bearbeitet werden und müssen zuvor mit F9 Kopie kopiert werden.
Hotkey

Beispiel

Tasten und Schaltflächen

 ↩ Enter

F6 Menü

F7 Formul

F9 Kopie

F10 Weitere

A - Hotkey Macro setzen

Hierüber kann einem Hotkey ein Macro hinterlegt werden.

Beispiel: 

 
procedure Hotkey(oForm:TxForm; nKey:Integer);
var oKunde  : TCombiListe;
    FrmEdit : TFrmEdit;
begin
    oKunde  := NIL;
    FrmEdit := TFrmEdit(oForm);
    
    if (Assigned(FrmEdit)) then begin
        DebugLine('Name:' + FrmEdit.ClassName + ' Key: ' + IntToStr(nKey));
        DebugLine('Form OK');   
        oKunde := TCombiListe(FrmEdit.FindComponent('CBL_DB_T_SACHBEARB'));
    end;
    
    if (Assigned(oKunde)) then begin
        MySetFocus(oKunde);
        DebugLine('Fokus gesetzt');
        //xSet('T_SACHBEARB','01');
        //xSet('ABC','99');
    end;
end;

Abgerufen von „https://wiki.bergau.de/index.php?title=OBS/Stammdaten/Programmparameter/Hotkey_Manager&oldid=58262“