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