Discussion :

[Bouillon]

Bonjour,

je cherche à créer une procédure ou une fonction qui me permettrait de placer par exemple un TRichEdit dans une boucle.

Ex: Ici je modifie la couleur d'une partie de chaîne à un certain endroit.

Code :

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

1
2
3
4
    RichEdit1.Text:=Conjug[1];
    RichEdit1.selstart:=length(Conjug[1]);
    RichEdit1.SelLength:=length(Table1.FieldByName('IPRESJE').AsString);
    RichEdit1.SelAttributes.Color:=rgb(0,0,255);

J'ai une centaine de TRichEdit et je voudrais faire varier l'indice des TRichEdit
(RichEdit1, RichEdit2, ...) selon la chaîne de caractères, la position de départ
et le nombre de caractères à colorier dans une procédure ou une fonction.

Est-il possible de réaliser un truc du genre?

Merci

BB

[Graffito]

Bonjour,

Si il y a 100 richedit : les créér dynamiquement et les mettre dans une Tlist et les passer en argument:

Code :

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

Myprocedure(Trichedit[MyTlist[i]], par1,par2, ...) ;

[Bouillon]

Merci,

hum me semble que j'ai du pain sur la planche avant que ça marche
mais je comprends ce que tu veux dire.

Merci

BB

[Sub0]

Code pour créer dynamiquement les 100 objets :

Code :

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

1
2
3
4
5
6
7
8
9
10
Var x: Integer;
Begin
  For x := 1 To 100 Do 
    With TRichEdit.Create(Form1) Do Begin
      Parent := Form1;
      Name := 'RichEdit' + IntToStr(x);
      // Tes propriétés à définir ensuite...
 
    End;
End;

Accéder aux objets avec FindComponent :

Code :

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

1
2
3
4
5
6
7
8
9
10
Var x: Integer;
Begin
  For x := 1 To 100 Do
    With TRichEdit(FindComponent('RichEdit' + IntToStr(x))) Do Begin
      Text := Conjug[1];
      SelStart := Length(Conjug[1]);
      SelLength := Length(Table1.FieldByName('IPRESJE').AsString);
      SelAttributes.Color := RGB(0, 0, 255);
    End;
End;

[Bouillon]

Merci beaucoup tu préserves mes voisins de jurons.

Me v'là sauvé.

A bientôt

BB