Discussion :

[yanba]

Suivant une instruction, je changes la couleur, taille, fonte de certains edit, label, ...
Pour cla, je fais :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
with Edit4 do
      Begin
          Font.Name:=FontName;
          Font.Color:=FontColor;
          Font.Size:=FontSize;
      end;
  with Label11 do
      Begin
          Font.Name:=FontName;
          Font.Color:=FontColor;
          Font.Size:=FontSize;
      end;

J'en ai pas mal comme ca ... Connaissez vous une instruction du style :

Code :

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

1
2
3
4
5
With Font.Name:=FontName and Font.Color:=FontColor and Font.Size:=FontSize do
Begin
      Edit1 ....
      Label1 ....
End;

[Pedro]

Salut
Tu as la possibilité, déjà, de mettre ton code entre les balises code pour que ce soit plus lisible ensuite, tu peux faire:

Code :

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

1
2
3
4
5
6
7
8
9
10
11
 
var i:integer;
     t:TControl; 
for i:=0 to ControlsCOunt-1 do
if (Controls[i]=Edit4) or (Controls[i]=Label1) or ... then
with Controls[i].Font do
begin
  Name:=FontName;
  Color:=FontColor;
  Size:=FontSize;
end;

C'est une possibilité mais il y en surement d'autres

[TicTacToe]

Toujours en parcourant des composants,
il y a effectivement d'autres méthodes
A chacun de trouver la sienne

voir
http://www.developpez.net/forums/vie...light=#2582700

[LadyWasky]

Salut,
Oui, tu crées une procedure avec en paramètre un TControl :

Je te propose 4 possibilités :

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
 
//Important : ligne à ne pas oublier ! (à mettre juste avant ta procedure, ou dans la partie interface de ton unité)
type TPublicControl=class(TControl);
//
procedure InitFont1(AControlArray:array of TControl;FontName:string;FontColor:TColor;FontSize:Integer);
var i:Integer;
begin
  if SizeOf(AControlArray)=0 then Exit; //si on a pas fourni d'éléments dans le tableau
  for i:=Low(AControlArray) to High(AControlArray) do
  with TPublicControl(AControlArray[i]).Font do
  begin
    Name:=FontName;
    Color:=FontColor;
    Size:=FontSize;
  end;
end;
 
procedure InitFont2(AControlArray:array of TControl;AFont:TFont);
var i:Integer;
begin
  if SizeOf(AControlArray)=0 then Exit;
  for i:=Low(AControlArray) to High(AControlArray) do
  TPublicControl(AControlArray[i]).Font:=AFont;
end;
 
procedure InitFont3(AControl:TControl;FontName:string;FontColor:TColor;FontSize:Integer);
var i:Integer;
begin
  with TPublicControl(AControl).Font do
  begin
    Name:=FontName;
    Color:=FontColor;
    Size:=FontSize;
  end;
end;
 
procedure InitFont4(AControl:TControl;AFont:TFont);
var i:Integer;
begin
  TPublicControl(AControl).Font:=AFont;
end;

Que tu utilises ainsi :

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
//Edit1 est un TEdit;
  //Label1 est un TLabel;
  //GroupBox1 est un TGroupBox;
  //Memo1 est un TMemo;
  //Button1 est un TButton;
 
  ...
 
  //Plusieurs contrôles à la fois
  InitFont1([Edit1,Label1,GroupBox1,Memo1,Button1],'Arial',clRed,12);
 
  //Pareil mais en utilisant un paraètre TFont
  if FontDialog1.Execute then
  InitFont2([Edit1,Label1,GroupBox1,Memo1,Button1],FontDialog1.Font);
 
  //La même chose que ci dessus mais avec un seul contrôle à la fois
  InitFont3(Edit1,'Arial',clRed,12);
  if FontDialog1.Execute then InitFont4(Label1,FontDialog1.Font);

Bon dev

[yanba]

Merci pour votre aide !!