Publicité
+ Répondre à la discussion
Affichage des résultats 1 à 3 sur 3
  1. #1
    Invité régulier
    Homme Profil pro koffi jean parfait Etchien
    Développeur informatique
    Inscrit en
    janvier 2010
    Messages
    20
    Détails du profil
    Informations personnelles :
    Nom : Homme koffi jean parfait Etchien
    Localisation : Côte d'Ivoire

    Informations professionnelles :
    Activité : Développeur informatique
    Secteur : High Tech - Éditeur de logiciels

    Informations forums :
    Inscription : janvier 2010
    Messages : 20
    Points : 8
    Points
    8

    Par défaut Procedures associées aux composants checkbox créés dynamiquement

    Bonjour à tous, bonne et heureuse Année 2013.
    ma préoccupation concerne les procédures associées à l'événement onclick
    de mes composants checkbox crées dynamiquement
    voici le code

    Code :
    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
    procedure TF_TEST.Button1Click(Sender: TObject);
    begin
     
      for i:= 1 to n do
      begin
     
      pan1:= TPanel.Create(pan);
      pan1.Parent := pan;
      pan1.Align := alTop;
      pan1.Top :=100;
      pan1.Height := 30;
      pan1.Width := 30;
      pan1.BorderStyle:=bsNone;
      pan1.BevelOuter:=bvNone;
      pan1.ParentBackground := true;
     
     
     SetLength(ListeCheck, i);
      ListeCheck[i] := TCheckBox.Create(pan1);
      with ListeCheck[i] do
      begin
        Parent := pan1;
        SetBounds(8,7,300,14);
        Font.Name := 'Tahoma';
        Font.Style := [fsBold];
        ParentFont := False;
        State:=cbUnchecked;
        Caption := IntToStr(i)+'.'+IntToStr(j);
     
        ListeCheck[i].OnClick:=repchecked;
        end;
     
       Application.ProcessMessages;
      end;
     
    end;
     
     
    procedure TF_TEST.RepChecked(sender: TObject);
    begin
        ShowMessage('Best ');
        Enabled:=false;
    end;
    je reçois le message mais le Enabled du checkbox qui reçois l'evenement ne passe pas a false
    quelqu'un pourais t'il m'aider,merci d'avance

  2. #2
    Modérateur
    Avatar de Rayek
    Homme Profil pro
    Développeur informatique
    Inscrit en
    mars 2005
    Messages
    5 192
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 40
    Localisation : France, Haute Savoie (Rhône Alpes)

    Informations professionnelles :
    Activité : Développeur informatique
    Secteur : High Tech - Éditeur de logiciels

    Informations forums :
    Inscription : mars 2005
    Messages : 5 192
    Points : 7 622
    Points
    7 622

    Par défaut

    Citation Envoyé par jeanparfait Voir le message

    procedure TF_TEST.RepChecked(sender: TObject);
    begin
    ShowMessage('Best ');
    Enabled:=false;
    end;
    Normal , le Enabled tu le fais sur la TF_TEST, il faut que tu indiques le composant.

    Code :
    1
    2
    3
    4
    5
    6
     
    procedure TF_TEST.RepChecked(sender: TObject);
    begin
        ShowMessage('Best ');
        TCheckBox(Sender).Enabled:=false;
    end;
    Modérateur Delphi Combattez la brute
    Aucune réponse aux sollicitations techniques par MP

    Le guide du bon forumeur :
    __________
    [Projet en cours] Des unités pour faciliter l'utilisation d'indy : EasyIndy 1.3

  3. #3
    Invité régulier
    Homme Profil pro koffi jean parfait Etchien
    Développeur informatique
    Inscrit en
    janvier 2010
    Messages
    20
    Détails du profil
    Informations personnelles :
    Nom : Homme koffi jean parfait Etchien
    Localisation : Côte d'Ivoire

    Informations professionnelles :
    Activité : Développeur informatique
    Secteur : High Tech - Éditeur de logiciels

    Informations forums :
    Inscription : janvier 2010
    Messages : 20
    Points : 8
    Points
    8

    Par défaut resolu

    j'y avais même pas pensé merci

+ Répondre à la discussion
Cette discussion est résolue.

Liens sociaux

Règles de messages

  • Vous ne pouvez pas créer de nouvelles discussions
  • Vous ne pouvez pas envoyer des réponses
  • Vous ne pouvez pas envoyer des pièces jointes
  • Vous ne pouvez pas modifier vos messages
  •