Discussion :

[systeme1]

Bonjour,

Sous delphi6 perso, dans mon applic je crée des checkbox dynamiquement :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
for i:=0 to memo1.lines.count-1 do
begin
  Tcheckbox.Create(Self).Name :=  NamePrefix + IntToStr(i);
    with Tcheckbox(FindComponent(NamePrefix + IntToStr(i))) do
      begin
      font.size:=6 ;
      font.Color := clgreen;
      width:=100;
      end;
end;

Comment définir et/ou utiliser les événements "on click" ou "on keypress" (par exemple) sur ces composants créés dynamiquement ?
Merci pour vos réponses.
Phil

[Pedro]

Salut
L'idéal dans ce cas-là, c'est d'utiliser un TObjectList dans lequel tu mets tous tes TCheckBox.
Pour accéder à chacune des TCheckBox, il suffira de faire:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
 
TCheckBox(ObjectList.Items[i]).Checked;

Pour plud d'infos, sur TObjectList

[systeme1]

Ok merci mais pour les événements sur ces composants créés à la volée on fait comment ?

[macumba]

Il suffit de lier tes évènements à un évt existant ou que tu as créé.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

 BtLettre.OnClick := BtReference.OnClick

;

Dans l'évt tu dois utiliser le sender pour faire une action spécifique pour chacun de tes checkbox.

Exemple sur des tboutons :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
procedure TFrmValeur.BtAClick(Sender: TObject);
begin
  WLettreCherchee := Copy((Sender as TButton).Name,Length((Sender as TButton).Name),1);
  EdRecherche.Text := WLettreCherchee;
  if Sender is TButton then
  begin
    MdValeur.CdsLibVal.locate('libval',WLettreCherchee, [loPartialKey]);
  end;
end;

[systeme1]

ok ok merci pour ta réponse
Phil