BringtoFront, SetFocus : ça ne fonctionne pas
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:
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; |
