Discussion :

[anubis_1001]

Salut,
mon projet contient un Tform1 principale, je voudrais que lors du clique sur un bouton par exemple, un autre Form (form2) soit créé et ajouter sur la fiche, jusque la tout se passe bien...

Code :

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

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

seulement la je voudrais avoir form2 en arrière plan par rapport à form1 (form1 au dessus et form2 en arrière) tout en gardant bien sur form1 comme form principal (mainform) de l'application.

merci pour vos réponses..

[qi130]

As-tu essayé avec

Code :

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

Form1.BringToFront;

[anubis_1001]

Oui, j'ai déjà essayé cela, sans succès malheureusement ... (le focus est bien donné à la form1 mais sans l'amener au 1er plan)

[guillemouze]

et SetTopWindow(Form2.handle) ?

[cincap]

Bonjour à toutes et à tous,

@anubis_1001, et mettre dans les propriétés :

Form1.FormStyle := fsStayOnTop

@+,

Cincap

[anubis_1001]

Salut, d'abord merci pour vos réponses,
@guillemouze: alors pour cette fonction je ne connais pas (mon delphi non plus d'ailleurs), pouvez-vous me dire dans quelle unité se trouve t-elle?

@cincap: le form est bien mis en 1er plan, mais ça me donne pas l'effet que je recherche malheureusement(je ne veux pas que le form1 revienne en arrière). En fait je cherche à mettre form2 comme un arrière plan si on veut.... donc il s'étale sur tout l'ecran, et si il vient cacher form1 dés qu'on déplace celui-ci ou qu'on clique sur form2, ça ne m'arrange pas...

cependant en exploitant un peu votre idée..:

Code :

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

1
2
3
4
5
6
7
8
9
10
 
procedure TForm1.Button1Click(Sender: TObject);
begin
  with TForm2.Create(Self) do
  begin
     Show; 
  end;
  form1.FormStyle:= fsStayOnTop;
  form2.FormStyle:= fsStayOnTop; //bien évidemment génère une exception form2 n'étant pas encore créé
end;

si vous essayez ce code il me donne l'effet que je recherche, bien évidemment c'est tout bête et ne peut être utilisé dans un projet sérieux; (essayer de cacher l'exception avec un try except me ramène à l'état du début...)

bon, je vous remercie tous pour vos réponses encore une fois, si vous avez une idée pour faire cet "arriére plan" je suis preneur (en laissant form1 la form principale de l'application bien sur)

[cincap]

Bonjour à toutes et à tous,

@anubis_1001, et si tu fais ceci :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
 
procedure TForm1.Button1Click(Sender: TObject);
begin
 TForm2.Create(Self) 
with TForm2 do
  begin
     Show; 
  end;
  form1.FormStyle:= fsStayOnTop;
  form2.FormStyle:= fsStayOnTop; 
end;

@+,

Cincap

[Aka Guymelef]

Pour utiliser la fonction de Guillemouze tu dois avoir l'unité Windows d'inclus vu que c'est une API.

Si ça ne compile pas, précises-nous ta version de Delphi.