Discussion :

[DarwinTheBeagle]

Bonjour.
J ai un mainform avec un bouton qui ouvre/ferme un form 2 (form2.show)
Pb: quand j'ouvre le form2 il passe au 1Er plan mais quand je clique n'importe ou sur mon form1, ce dernier ne passe pas au premier plan.
J'ai tout essayé (enfin ce que je pensais valide) mais rien n'y fait. L'évènement se déclenche puisque mon form change de caption pour ok mais rien au niveau du passage au premier plan !!!

Auriez vous une solution ?

Merci pour votre aide.

Mon code bourrin :

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
procedure TForm1.Bt_LogClick(Sender: TObject);
begin
  if form2.Visible then
    form2.Visible := false
  else
    form2.Visible := true;
end;
 
procedure TForm1.FormClick(Sender: TObject);
begin
  Form1.BringToFront;
  Form1.FormStyle := fsstayontop;
  Form1.FormStyle := fsnormal;
  Form1.Refresh;
  Form1.Caption := 'OK';
end;

[ShaiLeTroll]

form2 n'est pas fsStayOnTop ?
Pas de CreateParams particulier ?

[DarwinTheBeagle]

A vrai dire, j ai honte pke j avais tellement trifouillé...

J ai refait un projet vide avec seulement cela et BringToFront ne fonctionne pas mais le code me permet d arriver à mes fins sauf que je detecte le click sur le form.
Pourrais tu m indiquer comment le détecter sur n'importe quel control et eventuellement la barre de titre aussi ?

Edit : J ai cherché du côté de ApplicationEventsMessage mais je m y suis perdu !