Touches de raccourcie dans un PageControl

Question

Bonjour &#224; tous,
je d&#233;bute sous Delphi et j'aurais besoin d'un peu d'aide:
Voil&#224;, j'ai un PageControl ("Onglets") qui contient plusieurs TabSheet.
je voudrais pouvoir associer un touche de raccourci &#224; chaque Onglets.
Par exemple F2 m'affiche l'onglet 1 ("menu_principal"), F3 l'onglet 2 ("reference")...

Tapli_inventario = class(TForm)
    Onglets: TPageControl;
    menu_principal: TTabSheet;
    reference: TTabSheet;
    traitement_references: TTabSheet;
    suivi_validation: TTabSheet;
    progression: TTabSheet;
    productivite: TTabSheet;
    finaliser_inventaire: TTabSheet;
    StyleXP: TXPManifest;
    procedure FormKeyPress(Sender: TObject; var Key: Char);
Merci d'avance pour votre aide,
Pierrot

Niki2001 · Answer

Je pense que &#231;a doit &#234;tre &#231;a:
case key of
  VK_F1: Onglets.ActivePage:= menu_principal;
  VK_F2: Onglets.ActivePage:= reference;
  ......
end;
Bonne prog!

pierrot8131 · Answer

Bonjour, merci pour ta r&#233;ponse rapide.
Mais &#231;a ne semble pas fonctionner.

Voici mon appli:
unit apli_main;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, ComCtrls, XPMan;

type
  Tapli_inventario = class(TForm)
    Onglets: TPageControl;
    menu_principal: TTabSheet;
    lecteur: TTabSheet;
    traitement_references: TTabSheet;
    suivi_validation: TTabSheet;
    progression: TTabSheet;
    productivite: TTabSheet;
    finaliser_inventaire: TTabSheet;
    StyleXP: TXPManifest;
    procedure FormKeyPress(Sender: TObject; var Key: Char);

  private
    { D&#233;clarations priv&#233;es }
  public
    { D&#233;clarations publiques }
  end;

var
  apli_inventario: Tapli_inventario;

implementation

{$R *.dfm}

procedure Tapli_inventario.FormKeyPress(Sender: TObject; var Key: Char);
begin
    case key of
      VK_F1: Onglets.ActivePage:= menu_principal;
      VK_F2: Onglets.ActivePage:= lecteur;
    end;
end;

end.

J'ai manqu&#233; quoi ?

Merci d'avance
Pierrot

f0xi · Answer

utilise un ActionList, 

cr&#233;e autant d'action que tu veux.

definis leurs propri&#233;t&#233;e "ShortCut" a "F1 .. F12"

ensuite place ce code dans le OnExecute de l'action :



PageControl1.ActivePage := Menu_Principal;



ect...



en utilisant un Menu normal (fichier, editer, pages) tu peu egalement assigner des raccourcis clavier 

au lien du menu. exemple de menu :



Fichier

  Ouvrir  (Ctrl+O)

  Sauver  (Ctrl+S)

  Quitter (Alt+Q)

Editer

  Copier  (Ctrl+C)

  Couper  (Ctrl+X)

  Coller  (Ctrl+V)

  Annuler (Ctrl+Z)

  Refaire (Ctrl+R)

Pages

  Menu principal (F2)

  References     (F3)

  Options        (F5)



voila.

Comme &#231;a peut importe si tel ou tel control a le focus, les raccourcis
seront dispo partout dans l'application que tu utilise un Menu ou une
ActionList.

Touches de raccourcie dans un PageControl

3 réponses

Votre réponse

Discussions similaires