Navigation

Inscrivez-vous gratuitement
pour pouvoir participer, suivre les réponses en temps réel, voter pour les messages, poser vos propres questions et recevoir la newsletter

  1. #1
    Membre confirmé
    Avatar de ChPr
    Homme Profil pro
    Inscrit en
    septembre 2005
    Messages
    1 310
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 73
    Localisation : France, Val d'Oise (Île de France)

    Informations forums :
    Inscription : septembre 2005
    Messages : 1 310
    Points : 562
    Points
    562

    Par défaut Redéfinir des méthodes de composant à l'intérieur d'un nouveau composant

    Bonjour à toutes et à tous,

    Pour mon application GPS, je crée un nouveau composant clavier virtuel.

    Il est composé à la base d'un Tpanel sur lequel je dispose des boutons.

    Je n'arrive pas à retrouver comment faire pour redéfinir les méthodes (click, appui-souris, ...) permettant de particulariser ces boutons.

    Merci de votre aide.

    Pierre

  2. #2
    Membre confirmé
    Avatar de ChPr
    Homme Profil pro
    Inscrit en
    septembre 2005
    Messages
    1 310
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 73
    Localisation : France, Val d'Oise (Île de France)

    Informations forums :
    Inscription : septembre 2005
    Messages : 1 310
    Points : 562
    Points
    562

    Par défaut

    Bon, j'ai trouvé une solution, je ne sais pas si c'est la meilleure, en tous cas, cela fonctionne :

    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    4
    5
    6
    7
    8
    9
    10
    11
    12
    13
    14
    15
    16
    17
    18
    19
    20
    21
    22
    23
    24
    25
    26
    27
    28
    29
    30
    31
    32
    33
    34
    35
    36
    37
    38
    39
    40
    41
    42
    43
    44
    45
    46
    47
    48
    49
    50
    51
    52
    53
    type
      TClavierVirt = class(TPanel)
      private
        { Private declarations }
        Texte: TEdit;
        KeyNum: array[0..9] of TBitBtn; // Jeu de 10 boutons numériques
      protected
        { Protected declarations }
        procedure BitBtnClick(Sender: TObject); // Redéfinition de la méthode Click d'un BitBtn
     
      public
        { Public declarations }
        constructor Create(TheOwner: TComponent); override;
      published
        { Published declarations }
      end;
     
    procedure Register;
     
    implementation
     
    constructor TClavierVirt.Create(TheOwner: TComponent);
    var
      i, LBtn, HBtn: Integer;
    begin
      inherited Create (TheOwner);
    ...
      for i:= 0 to 9 do
      begin
        KeyNum[i]:= TbitBtn.Create(Self);
        with KeyNum[i] do
        begin
          Parent:= Self;
          Top:= 60;
          Width:= LBtn;
          Height:= HBtn;
          Left:= 8+i*(Width+8);
          Font.Size:= 18;
          Font.Style:= [fsBold];
          Caption:= IntToStr((i+1) mod 10);
          OnClick:= @BitBtnClick; // Assignation de la méthode Click
        end;
      end;
    end;
     
    procedure TClavierVirt.BitBtnClick(Sender: TObject);
    var
      S: String;
    begin
      S:= Texte.Text;
      Insert( TBitBtn(Sender).Caption, S, Texte.CaretPos.X+1); // Insertion dans le texte du caractère du bouton choisi
      Texte.Text:= S;
    end;
    Cordialement.

    Pierre

Discussions similaires

  1. Réponses: 4
    Dernier message: 22/09/2008, 15h33
  2. Réponses: 0
    Dernier message: 15/03/2008, 19h47
  3. Editeur de texte - liste des méthodes
    Par Carlito_superheros dans le forum Langages de programmation
    Réponses: 3
    Dernier message: 30/03/2005, 12h52
  4. [.NET] Pourquoi redéfinir la méthode dispose() d'une forme?
    Par Polyptyx dans le forum Général Dotnet
    Réponses: 3
    Dernier message: 07/09/2004, 12h10
  5. [Info]descriptif des méthode ?
    Par java_math dans le forum Eclipse Java
    Réponses: 1
    Dernier message: 01/06/2004, 08h36

Partager

Partager
  • Envoyer la discussion sur Viadeo
  • Envoyer la discussion sur Twitter
  • Envoyer la discussion sur Google
  • Envoyer la discussion sur Facebook
  • Envoyer la discussion sur Digg
  • Envoyer la discussion sur Delicious
  • Envoyer la discussion sur MySpace
  • Envoyer la discussion sur Yahoo