Discussion :

[kawaiinah972]

Salut
Je me demandais comment faire pour appliquer une taille de police à toute l'application.
J’ai créé une SpinTaille qui permet de choisir la taille de police pour cette form et, avec le bouton "appliquer", je voudrais l'appliquer à toutes mes forms.
Alors, voici mes bases :

Code :

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

1
2
3
4
5
6
7
8
9
procedure TFParametres.SpinTailleChange(Sender: TObject);
begin
  Font.Size:= SpinTaille.Value;
end;
 
procedure TFParametres.BtnApplyClick(Sender: TObject);
begin
 
end;

[BeanzMaster]

Bonsoir

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
procedure TFParametres.BtnApplyClick(Sender: TObject);
Var 
  i : integer;
begin
  for i := 0 to application.ComponentCount-1 do
  begin
    if application.Components[i] is TForm then
    begin
      with TForm(application.Components[i]) do
      begin
        Font.Size := Self.Font.Size;
      End;
    End;
  End;
End;

Note qu'il faudra bien sûr que tes "Forms" ne soient pas créées dynamiquement ou sinon elles devront l'être avant d'appeler ta procédure.

Bonne soirée.