Discussion :

[Delphi-ne]

Je voudrais savoir comment, à l'intérieur du code d'un UserControl, on peut connaître sa position dans la form qui le contient.
j'ai essayé avec la propriété Ambiant à partir d'un sujet que j'avais retrouvé sur ce forum mais il ne donne pas les propriétés Top et Left

[zazaraignée]

Si tu as inclus les propriétés Top et Left à ton UserControl, ça ne devrait pas être un problème.

[Delphi-ne]

Concrêtement je rajoute 2 propriétés : UC_top et UC_left
Dans le code appelant je fais UserControl1.UC_top = UserControl1.top et idem pour left?
Ca ma semble un peu redondant ou j'ai mal compris ?

[zazaraignée]

Je viens de relire la question et tu dis bien

à l'intérieur du code d'un UserControl

Je ne vois pas comment tu peux connaître d'avance la position qu'occupera ton UserControl dans une éventuelle form...

[parp1]

zazaraignée a raison, imagine que tu veuilles ajouté deux contrôles identique?
Ils seront superposés. Galère...

La seul chose que tu peux faire c'est organiser les contrôles interne à ton Usercontrol.

Vous avez vu pour une fois j'ai répondu a un post sans l'avoir créer.. lol

Comme on dit en normandie, c'est ty qui d'viendrait a mitemp bon...

[OhMonBato]

Je pense qu'il y a un flou sur le but recherché. Pourrais tu expliquer ce que tu veux exactement faire de ces propriétés stp ?

[zazaraignée]

Concrêtement je rajoute 2 propriétés : UC_top et UC_left
Dans le code appelant je fais UserControl1.UC_top = UserControl1.top et idem pour left?
Ca ma semble un peu redondant ou j'ai mal compris ?

L'ajout d'une propriété et de ses méthodes Let et Get, tu dois connaître, vu que tu as créé ton contrôle. Mais les propriétés de ce que tu mets dedans ne sont pas forcément automatiquement passées à ton contrôle. Tu dois les reprogrammer. Quoique, Top et Left... plus j'y penses, devraient s'ajouter automatiquement...

Tu peux nous lister les propirétés de ton UC qui sont visible dans l'éditeur VB quand tu en place un sur un Form?

[avigeilpro]

Coucou.
Je ressort ce sujet non répondu car j'ai le même besoin :
Je souhaite connaitre la position du usercontrol (ou plutôt de son instance) sur la form. En effet Usercontrol.Left et Usercontrol.Top n'existent pas

[avigeilpro]

J'avais pas vu qu'il y avait un autre post qui était presque similaire et dans lequel se trouvait ceci :

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
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
Private Type POINTAPI
        X As Long
        y As Long
End Type
Private Type RECT
        Bottom As Long
        Left As Long
        Right As Long
        Top As Long
End Type
Private Type WINDOWPLACEMENT
        flags As Long
        Length As Long
        ptMaxPosition As POINTAPI
        ptMinPosition As POINTAPI
        rcNormalPosition As RECT
        showCmd As Long
End Type
Private Declare Function GetWindowPlacement Lib "user32" ( _
    ByVal Hwnd As Long, _
    lpwndpl As WINDOWPLACEMENT) As Long
 
Private Declare Function MoveWindow Lib "user32" ( _
    ByVal Hwnd As Long, _
    ByVal X As Long, _
    ByVal y As Long, _
    ByVal nWidth As Long, _
    ByVal nHeight As Long, _
    ByVal bRepaint As Long) As Long
Public FMeCoord As WINDOWPLACEMENT
 
Private Type LesCoord
        Height As Long
        Left As Long
        Top As Long
        Width As Long
End Type
 
Public MeCoord As LesCoord
 
'******************************************************************
'** la propriété ScaleMode de UserControl doit être mis à Pixels **
'** la propriété KeyPreview de UserControl doit être mis à True  **
'******************************************************************
 
Public Sub GetPlace(Hwnd As Long)
    'recuperation des coordonnées de l'UserControl posé sur le conteneur
    GetWindowPlacement Hwnd, FMeCoord
 
MeCoord.Height = FMeCoord.showCmd - FMeCoord.rcNormalPosition.Right
MeCoord.Left = FMeCoord.rcNormalPosition.Left
MeCoord.Top = FMeCoord.rcNormalPosition.Right
MeCoord.Width = FMeCoord.rcNormalPosition.Top - FMeCoord.rcNormalPosition.Left
End Sub