===== cpSetFTaste =====

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

==== Syntax ====

^  Befehl | cpSetFTaste(Visible:Boolean; Text:String );|
^  Funktion| aktiviert eine zusätzliche Taste in der Funktionsleiste vom RBS |
^  Visible | True oder False |
^  Text | max. 10 Zeichen |
^  ab | **//3.2.1 build 437//** |





==== Codebeispiel ====

<Code:pascal linenums>
begin
  cpSetFTaste(True,'Test');
end.</Code> 

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.\\
\\


==== Codebeispiel 2 ====

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.

<Code:pascal linenums>
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.</Code>

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.


{{ :cockpit-xp:addon:befehlsreferenz:cpwiki-cpsetftaste-button.png?nolink |}}
{{ :cockpit-xp:addon:befehlsreferenz:cpwiki-cpsetftaste-meldung.png?nolink |}}



\\
----

[[cockpit-xp:start|Start]] - [[cockpit-xp:faq|FAQ]] - [[cockpit-xp:glossar|Glossar]] - [[cockpit-xp:sitemap|Sitemap]] - [[cockpit-xp:impressum|Impressum]]