Discussion :

[Xavier]

Bonjour,
voici j'ai rencontré un petit problème: j'ai mis dans la fonction MouseUp() de Memo1 pour afficher une chaine de caractères, tout se passe bien si je fait d'abord "MouseDown" sur Memo1.
Cependant, quand je clique (MouseDown) sur Memo2, je déplace le curseur et je relache le bouton de souris sur Memo1: la fonction MouseUp de Memo1 n'a pas été déclenchée!
Je voudrais que MouseUp() se déclenche chaque fois qu'on lache le bouton sur la zone de Memo1.
Merci par avance

[winow]

Bonjour
Essay de copier/collé le code de l'evenement MouseDown & MouseUp du Memo1 et Memo2,
pour que l'ont puissent vous aidé, Car je n'est rien compris.
A++

[Xavier]

Il n'y a pas de code (juste int i=10; pour marquer un point d'attêt). Le problème est que la fonction MouseUp() ne se déclenche pas si on n'a pas cliqué sur memo1 (biensur, MouseDown() marche).

[totoche76]

Hello

Le problème, c'est que quand tu cliques dans Memo2 (MouseDown) , tous les messages de souris qui vont suivre (MouseMove, MouseUp) seront envoyés directement à Memo2... Memo1 ne verra rien tant que tu n'auras pas relaché la souris...
La solution, c'est peut-être de passer par l'événement OnDragDrop (en jouant sur les propriétés DragCursor/DragMode des mémos) ou alors de faire un truc du genre:

Code :

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

1
2
3
4
5
6
7
8
9
void __fastcall TForm1::Memo2MouseUp(TObject *Sender, TMouseButton Button, TShiftState Shift, int X, int Y)
  {
  TPoint pos = Memo2->ClientToParent( TPoint(X,Y) );
  if (ControlAtPos(pos, true, true) == Memo1)
    {
    TPoint pos_parent = Memo1->ParentToClient(pos);
    Memo1MouseUp(Sender, Button, Shift, pos_parent.x, pos_parent.y);
    }
  }

A++

[Xavier]

Merci totoche76, cela marche. Juste actualiser un peu les coordonnées entre les deux memos.

Est-ce que quelqu'un peut me donner un peu plus de lumière sur l'utilisation DragCursor/DragMode?

Je voudrais réaliser une fonction comme suit:
Déplacer une des images se situant dans un GroupBox vers un autre GroupBox tout en respectant la position de souris.
Merci beaucoup

[Xavier]

Merci totoche76, cela marche. Juste actualiser un peu les coordonnées entre les deux memos.

Est-ce que quelqu'un peut me donner un peu plus de lumière sur l'utilisation DragCursor/DragMode?

Je voudrais réaliser une fonction comme suit:
Déplacer une des images se situant dans un GroupBox vers un autre GroupBox tout en respectant la position de souris.
Merci beaucoup

[totoche76]

Re,

Mets des TImage dans un GroupBox, propriété DragMode = Automatic
Sur un 2ème GroupBox, code les événements OnDragDrop et OnDragOver, ainsi que le OnStartDrag des images (mem_x et mem_y variables de la fenêtre):

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
void __fastcall TForm1::GroupBox2DragDrop(TObject *Sender, TObject *Source, int X, int Y)
  {
  if (Source->InheritsFrom(__classid(TControl)))
    {
    TControl* ctrl = dynamic_cast<TControl*>(Source);
    ctrl->Parent = GroupBox2;
    ctrl->Left = X - mem_x; //ctrl->Width/2;
    ctrl->Top = Y - mem_y; //ctrl->Height/2;
    }
  }
 
void __fastcall TForm1::GroupBox2DragOver(TObject *Sender, TObject *Source, int X, int Y, TDragState State, bool &Accept)
  {
  Accept = true;
  }
 
void __fastcall TForm1::Image1StartDrag(TObject *Sender, TDragObject *&DragObject)
  {
  mem_x = Image1->ScreenToClient( Mouse->CursorPos).x;
  mem_y = Image1->ScreenToClient( Mouse->CursorPos).y;
  }

A++