Discussion :

[darkangel37]

je n'arrive pas à déplacer mon label sur ma forme principal, j'ai essayé dragmode en automatic ça ne marche pas!j'ai essayé de modifié les paramètres TOp et Left du label en fonction de la position de la souris ça marche pas non plus!
est-ce que quelqu'un pourrait m'aider svp!!!

[Furlaz]

Bonjour,

C'est curieux ton problème, normalement le Tlabel il se déplace comme on veut. Il est possible de le placer ou tu veux dans ta Form normalement.

Ta essayer de le supprimer et dans remettre un pour voir si ca te faisait la meme chose ?

[Furlaz]

Dans ta propriété Align Tu as quoi ?

Il faut mettre alNome pour que ca fonctionne je pense

EDIT : ou bien alCustom ca fonctionne aussi !

[mike600river]

salut,
as tu fait un form->repaint()?

Code :

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

1
2
 Label3->Left=0;
 Form_creer_famille->Repaint();

[darkangel37]

je vais essayé tout de suite et je te did si ça marche!!

j'ai essayé un autre label ça marche pas!

[Furlaz]

Tu as essayé ca :

Code :

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

1
2
 Label3->Left=0;
 Form_creer_famille->Repaint();

ou de changer la propriété Align ? ou les 2 ?

[mike600river]

chez moi sans le repaint ca marche aussi dsl

mon label a la propriété align à alNone
tu peux faire voir comment tu manipules ton label?

[darkangel37]

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
void __fastcall TForm1::Label1MouseDown(TObject *Sender,
      TMouseButton Button, TShiftState Shift, int X, int Y)
{
 
        mem_x=X;
        mem_y=Y;
        sourisclic=true;
 
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Label1MouseMove(TObject *Sender, TShiftState Shift,
      int X, int Y)
{
        if(sourisclic)
        {
          Label1->Top=Label1->Top+Y-mem_y;
          Label1->Left=Label1->Left+X-mem_x;
        }
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Label1MouseUp(TObject *Sender, TMouseButton Button,
      TShiftState Shift, int X, int Y)
{
        sourisclic=false;        
}
//---------------------------------------------------------------------------

ça marche c'est bon!

mais je voudrais savoir quand même comment on peut faire avec la méthode du dragdrop du label sur une form

[mike600river]

dragdrop? elle est ou cette propriété? je l'ai pas trouvé. c'est du dragmode dont tu parles?

je comprend pas trop ce que tu voudrais faire de plus ou de different. te passer du code et que le label se deplace tout seul?

[darkangel37]

oui je voulais parler de la propiriété dragmode à quoi elle sert si on peu pas déplacer le label avec?

il y a la fonction dragdrop pour le label!

[Tenguryu]

C'est trop laid je trouve, ça pose le composant dans une fenetre baaah

[Sunchaser]

Salut,

As tu essayer de gérer les évènements OnDragDrop et OnDragOver de la TForm sur laquelle doit 'circuler' le TLabel ?
Donc DragMode du TLabel a dmAutomatic,
dans le OnDragOver de la TForm:

Code :

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

1
2
 
Accept = Source->ClassNameIs("TLabel");

dans le OnDragDrop de la TForm:

Code :

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

1
2
3
4
5
6
7
 
  if (Source->ClassNameIs("TLabel"))
  {
  TLabel *pLabel = dynamic_cast < TLabel * > (Source);
  pLabel->Left = X;
  pLabel->Top = Y;
  }

Bon.....le positionnement du Label est a améliorer, la je fais a la bourrin...dsl.

@ +

[Pasqualini]

Pour déplacer un composant, par exemple un TPanel :
Dans le "OnMouseDown du Panel :

Code :

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

1
2
3
4
5
 
{
  ReleaseCapture();
  SNDMSG(Panel1->Handle, WM_NCLBUTTONDOWN, HTCAPTION, 0);
}

[tugui]

Et voilà:

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
 
//---------------------------------------------------------------------------
void __fastcall TfrmPrincipal::Label4MouseMove(TObject *Sender,
      TShiftState Shift, int X, int Y)
{
    TControl* control = static_cast<TControl*>(Sender);
    static bool pulsado = false;
    static TPoint posicion;
 
    if (!pulsado && Shift.Contains(ssLeft))
      posicion = Point(X, Y);
      pulsado = Shift.Contains(ssLeft);
    if (pulsado)
    {
      control->Left += X - posicion.x;
      control->Top  += Y - posicion.y;
    }
}
//---------------------------------------------------------------------------

[darkangel37]

merci cantrelle et aux autres !!! ça marche