Discussion :

[SergioMaster]

Bonjour,

c'est la première fois que je fais cette tentative il ne s'agit pas de changer de style d'affichage des composants mais bien du style de la fenêtre elle même soit la propriété borderstyle de la forme. Est-ce possible (environnements windows et mac donc pas d'appel api windows) ? (je n'ai même pas fait encore la tentative en VCL)
en tout cas même si l'instruction est acceptée rien ne se passe il me manque certainement une instruction

Code :

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

1
2
3
4
5
6
7
 
procedure TForm1.Timer4Timer(Sender: TObject);
begin
BorderStyle:=TFMXFormBorderStyle.Sizeable; // pas de changement
Fill.Kind:=TBrushKind.None;     // ok                     
Layout2.Visible:=false;           // ok
end;

mon objectif ? passer d'un pseudo splashscreen (borderstyle=none) à une forme "classique" avec bordure

[SergioMaster]

Au temps pour moi, il suffisait de poser le problème pour qu'il se résolve

j'ai laissé ma forme de départ en sizeable et non en none et j'ai joué sur la propriété transparency

Code :

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

1
2
3
4
5
6
7
 
procedure TForm1.Timer4Timer(Sender: TObject);
begin
transparency:=False; 
Fill.Kind:=TBrushKind.None;     // ok  cache l'image de fond                   
Layout2.Visible:=false;           // ok cache les textes de "démarrage"
end;

[free07]

Bonjour,

Ce qui veut dire que cela n'est possible qu'au moment de la conception ? ( donc pas en éxécution )

Si on veut par exemple rendre 'sizeable' une fenêtre durant l’exécution du programme cela ne fonctionne pas ? ( en même temps je ne vois pas trop l'intérêt durant l’exécution mais bon... )