Discussion :

[Argonz]

Bonjour à tous !

Je suis actuellement en train de mettre en place une batterie de test DUNIT pour application. Je cherche à simuler le clique sur l'onglet d'un TabControl.
J'ai créer une fonction qui positionne la souris sur cette onglet et qui lance un clique (mouse_event()). CEtte fonction marche très bien dans un simple projet avec deux form toute bête. Mais dés que j'effectue ce teste avec DUnit le clique ne s'effectue plus.

Voilà le code de ma fonction

Signature :

Code Delphi :

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

1
2
3
 
procedure SimulateClickOnTabSheet(PageControl : TPageControl;
                                                 TabSheet    : TTabSheet);

Implémentation;

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
17
 
procedure TestDUNIT.SimulateClickOnTabSheet(PageControl : TPageControl;
                                                                TabSheet    : TTabSheet);
var
  TabBounding    : TRect;
  TabBoundingCor : TPoint;
begin
  //Test que l'on ne puisse pas changer d'onglet lorsque l'on est en mode d'insertion
  TabBounding := PageControl.TabRect(TabSheet.PageIndex);
 
  TabBoundingCor := PageControl.ClientToScreen(TabBounding.TopLeft);
 
  Mouse.CursorPos := TabBoundingCor;
  Application.ProcessMessages;
 
  Mouse_Event(MOUSEEVENTF_LEFTDOWN,0,0,0,0);
end;

Et pour l'appelle de cette fonction je le fait de cette manière :

Code Delphi :

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

1
2
3
4
5
 
  FFormAvecTab.Show;
  SimulateClickOnTabSheet(FFormAvecTab.pxyPageControlDetails,
                                     FFormAvecTab.pxyTabSheetDetail);
  Check(FFormAvecTab.pxyPageControlDetails.ActivePage = FFormAvecTab.pxyTabSheetDetail,'BEAU ça a marché');

Une Bière à celui qui trouve la solution à ce problème !!

[TicTacToe]

il faut également relacher virtuellement le bouton avec

Code :

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

mouse_event(MOUSEEVENTF_LEFTUP, 0, 0, 0, 0);

non ?

[Argonz]

Non pas pour le clique sur un TabSheet d'un page contrôle.

D'autant plus que cela fonctionne très bien lorsque l'on sort du contexte DUnit,
et que meme avec un boutton simple cela ne fonctionne pas en DUnit.

[TicTacToe]

Non pas pour le clique sur un TabSheet d'un page contrôle.

D'autant plus que cela fonctionne très bien lorsque l'on sort du contexte DUnit,
et que meme avec un boutton simple cela ne fonctionne pas en DUnit.

bon, cela me parait quand meme curieux de pas relacher le bouton...

Sinon, tu peux essayer de positionner le curseur avec SetCursorPos plutot qu'avec Mouse.CursorPos

D'autre part tu peux également tenter via les messages:

Code :

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

1
2
Sendmessage(HAppli, WM_LBUTTONDOWN, MK_LBUTTON, y shl 16 + x);
SendMessage(HAppli, WM_LBUTTONUP, 0, 0);

éventuellement avec PostMessage également (le PostMessage n'attend pas le retour...)

[Argonz]

Pour ce qui est du clique sur le TabSheet, le test est très simple.
Tu prend un PageControl avec plusieurs Onglet.
Tu cliques sur un des onglets en gardant enfoncé le bouton de la souris (MOUSE_DOWN).Le TabSheet sur lequel tu clique s'affiches.

Pour la position du curseur les deux méthodes fonctionnes très bien j'ai testé les deux.

Par contre pour le SendMessage je ne comprend pas deux chose :
Happli -> c'est les Handle de la forme on l'on veut cliquer ??
y shl 16 + x -> c'est les cordonnées du clique, mais relative à quoi ??

En tout cas merci de ton aide :-)

[TicTacToe]

HAppli je sais plus si c'est celui de la form ou de l'application à vrai dire, je pense que c'est celui de la form.

sinon pour les coord, c'est par rapport à la form

[anapurna]

salut

en mode debugage ca te donne quoi tes coordonnée
surtout celle du

Code :

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

TabBounding := PageControl.TabRect(TabSheet.PageIndex);

@+ Phil

PS :

Tu peut essayer ça pour me dire si cela fonctionne

Code :

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

1
2
3
4
5
6
 
    TabBounding := PageControl.TabRect(TabSheet.PageIndex);
    TabBoundingCor := PageControl.ClientToScreen(TabBounding.TopLeft);
    X := TabBoundingCor.X;
    Y := TabBoundingCor.Y;
    SetCursorPos(X, Y);