Discussion :

[kmaniche]

Bonsoir,

je cherche un moyen pour afficher une fenêtre Form2 suite au clique sur un bouton de la fenêtre Form1, mais sans que celle-ci ai le focus.

Rapplez-vous, pour un TComboBox, en cliquant sur le bouton qui fait dérouler la liste, on a une fenêtre qui s'affiche, mais cellci ne possède pas le focus.
je ne sais pas si vous m'avez bien compris.

essayer ce code :

Code :

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

1
2
3
4
5
6
7
8
9
 
 TPoint Q ;
 
 Q = ClientToScreen(TPoint(Button1 -> Left, Button1 -> Top+Button1 -> Height)) ;
 
 Form2 -> Left = Q.x ;
 Form2 -> Top  = Q.y ;
 
 Form2 -> Show() ;

il affiche la Form2 à la position du Bouton1.

voici le programme :Pièce jointe 7827

donc comment fait pour ne pas perdre le focus de la form1 quand j'affiche la form2.

Merci d'avance

[bandit boy]

Salut,
tu pourrais changer la propriété de ta Form2 pour fsStayOnTop. Elle serait en premier plan mais pas forcément avec le focus.

[henderson]

Salut !

En rendant le focus à l'autre form juste après le Show :

Code :

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

1
2
Form2 -> Show() ;
Form1->SetFocus();

A plus !

[kmaniche]

Bonjour,
Merci "Henderson" pour ta réponse.

Oui j'ai déjà essayer cela, maison voir le passage du focus entre les deux fiches. alors comment remédier à cà.

Merci d'avance

[henderson]

Salut !

Une autre solution qui fonctionne (mais mal...) avec un TPanel parent :

Code :

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

1
2
3
4
5
6
Panel1->BevelOuter = bvNone;
Panel1->BevelInner = bvNone;
Form2->Parent = Panel1;
Form2->SetBounds(0,0, Panel1->Width, Panel1->Height);
Form2->Visible = true;
Panel1->Visible = true;

Il faudrait en particulier interdire le déplacement de la fenêtre dans le panel parent... (???... je n'ai pas trop le temps)

A plus !

[kmaniche]

OK, j'ai oublier de mettre