Discussion :

[Letinono]

Bonjour, je souhaite déplacer effectuer un déplacement de mon panel sur mon ihm. Pour cela j'utilise un timer et sur lévènement du passage de la souris sur ce panel j'active le timer qui effectue le code suivant:

Code :

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

1
2
3
4
5
6
7
8
9
10
  if (top_temp >= 537) and enter_panel_legend then
    top_temp := top_temp - 2
  else if (top_temp < 590) and not enter_panel_legend then
    top_temp := top_temp + 2
  else Timer1.Enabled := False;
 
 
 
  with Panel_legende do
    top := top_temp;

Cela fonctionne, mais j'ai 2 questions.

Tout d'abord est-ce correct?

Ensuite, je rencontre un soucis lorsque j'affecte une frame (TFrame) à ce panel, puisque l'évènement du passage de la souris sur le panel ne s'active plus.

Avez vous une solution pour ce problème?

Merci d'avance.

[madlozoz]

Pour l'incorectitude, je ne trouve rien à redire.

Pour ton frame, à priori, le plus propre serait

Code :

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

MonFrame.OnMouseMove := MonPanel.OnMouseMove

Sinon, MonForm.ControlAtPos derait te renvoyer le panel (à supposer que le panel soit un enfant direct de MonForm) si tu lui donne les coordonnée de la sourie (Mouse.CursorPos.x:y). J'ai pas testé, tu me racontera.

[Pascal Jankowski]

Tu peux faire beaucoup plus simple en définissant ainsi l'événement onMouseMove de ton TPanel, pas besoin de timer. Cela fonctionne également quand le composant se situe dans une frame

Code :

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

1
2
3
4
5
6
procedure TForm1.Panel1MouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
begin
  ReleaseCapture;
  Panel1.Perform(WM_SYSCOMMAND,$f012,0);
end;

Cela fonctionne peu importe le composant.

Si tu veux ensuite le redimentionner utilise les codes suivants:

ResizeLeft = $F001;
ResizeRight = $F002;
ResizeTop = $F003;
ResizeTopLeft = $F004;
ResizeTopRight = $F005;
ResizeBottom = $F006;
ResizeBottomLeft = $F007;
ResizeBottomRight = $F008;
MoveComponent = $F012;

[Letinono]

Merci pour votre aide,

J'testé le code que vous m'avez proposé, mais je ne souhaite pas déplacer à l'aide de la souris le panel, je souhaite simplement faire "monter" le panel lorsque je passe la souris dessus, un petit peu comme ce que l'on peut trouver sur certains sites internet.

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
18
19
20
21
22
23
24
25
26
27
28
29
30
procedure TFrmMesure.Panel_legendeMouseEnter(Sender: TObject);
begin
  enter_panel_legend := True;
  top_temp := Panel_legende.top;
  Timer1.Enabled := True;
end;
 
procedure TFrmMesure.Panel_legendeMouseLeave(Sender: TObject);
begin
  enter_panel_legend := False;
  Timer1.Enabled := True;
end;
 
procedure TFrmMesure.Timer1Timer(Sender: TObject);
begin
 
  if (top_temp >= 537) and enter_panel_legend then
    top_temp := top_temp - 2
  else if (top_temp < 590) and not enter_panel_legend then
    top_temp := top_temp + 2
  else Timer1.Enabled := False;
 
 
 
  with Panel_legende do
    top := top_temp;
 
 
 
end;

Voila le code entier.

Le soucis que j'ai donc, c'est que l'évènement "OnMouseEnter" ne se déclenche pas si j'applique une frame sur le Panel_legende. Y a t'il un moyen de récupérer cet évènement ?