TRichEdit dans une boucle

Version imprimable

29/10/2006, 19h03
Bouillon

TRichEdit dans une boucle
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:

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
29/10/2006, 20h00
Graffito

Bonjour,

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

Code:

Myprocedure(Trichedit[MyTlist[i]], par1,par2, ...) ;
29/10/2006, 20h12
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.:cry:

Merci

BB

Code pour créer dynamiquement les 100 objets :

Code:

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:

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;

29/10/2006, 23h16
Bouillon

Merci beaucoup tu préserves mes voisins de jurons.:)

Me v'là sauvé.

A bientôt

BB