Bei Drücken der UserFunktionstaste im geöffneten RBS wird das Ereignis KeyDown mit Cockpit.Parameter=1 aktiviert

begin
  cpSetFTaste(True,'Test');
end.

Dieser Code schaltet die zusätzliche Taste in der Funktionsleiste ganz Rechts im RBS auf Sichtbar mit der Bezeichnung Test.
Wird die Taste angeklickt, so löst es im KeyDown ein Cockpit.Parameter=1 aus.

Im folgenden Beispiel ist zu sehen, wie man die Taste ein- und wieder ausblenden kann und wie sie reagiert, wenn sie mit der Maus angeklickt wird.

begin

  // Taste <f> gedrückt
  if Cockpit.Parameter = 70 then
  begin
    cpSetFTaste(true, 'Test');
  end;
  
  // Taste <g> gedrückt
  if Cockpit.Parameter = 71 then
  begin
    cpSetFTaste(false, '');
  end;
  
  // Eigene F-Taste aktiviert
  if Cockpit.Parameter = 1 then
  begin
   
    sCpVersion := Cockpit.CpVersion;
    sCpBuildNr := IntToStr(Cockpit.CpBuild);
    
    msg := 'Sie haben die Version' + CrLf +
            sCpVersion + CrLf +
            'Build-Nr.: ' + sCpBuildNr + CrLf;
              
    cpShowMessage(msg);
    
  end;
  
end.

Dieser zweite Beispielcode zeigt nach dem Drücken der Taste <f> Cockpit.Parameter = 70 auf einem gestarteten RennBildschirm eine weitere Funktionstaste mit der Bezeichnung Test.

Klickt man diesen Button an, liefert die Schaltfläche Cockpit.Parameter = 1. Entsprechend zeigt das AddOn die Version und die Buildnummer in einer Meldung an.

Drücken der Taste <g> Cockpit.Parameter = 71 blendet die Schaltfläche wieder aus.

Start - FAQ - Glossar - Sitemap - Impressum