Discussion :

[slimjoe]

Bonjour,

Je démarre une nouvelle application et, sur la fiche principale, je place un bouton qui a la tâche de créer de nouvelles fiches SDI. Pour ce faire, j'insère le code suivant sur le OnClick du bouton :

Code :

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

1
2
3
4
5
6
7
procedure TForm1.Button1Click(Sender: TObject);
begin
   with TForm.Create(self) do
   begin
      Show;
   end;
end;

Simple n'est-ce pas ?

Mon problème : si je mets ma fiche principale en plein écran, ma fiche secondaire (celle crée par le bouton) se cache derrière. Existe-t-il un truc qui ferait en sorte que, à l'intérieur de mon application, ma fiche principale soit toujours derrières les autres ?

Merci!

[slimjoe]

Bon. J'me sens un peu imbécile.

FormStyle = fsStayOnTop fait exactement ce dont j'ai besoin.

Code :

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

1
2
3
4
5
6
7
8
procedure TForm1.Button1Click(Sender: TObject);
begin
   with TForm.Create(self) do
   begin
      FormStyle := fsStayOnTop;
      Show;
   end;
end;

[Vilukariok]

OUuuaaaah!
Trop merci, c'est pile poil ce que je cherchais

[devyan]

Bonjour,

Peut-être tout simplement :

Code :

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

1
2
3
4
5
6
7
procedure TForm1.Button1Click(Sender: TObject);
begin
   with TForm.Create(self) do
   begin
      ShowModal;
   end;
end;

cf. Guide Pascal et Delphi

devyan