Discussion :

[fveto]

Bonjour à tous,

J'ai trouvé ces codes pour connaitre et mémoriser la position d'un form.

Cette procédure fonctionne correctement sauf qu'il faut la placer dans chaque unité (Form) et j'en ai 41.

Je cherche à placer cette procédure dans une seule unité et l'appeler des autres, le problème est le paramètre "Message".

Est il possible de faire autrement.

Merci

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
 
 
    ....
 
    Procedure OnMoving (var Message : TMessage);
 
    Private
    ....
    Public
    ....
    End;
 
Procedure TForm1.OnMoving (var Message : TMessage);
Begin
     With Message Do
          If  Msg = WM_MOVING Then
          Begin
               With TRect(pointer(LParam)^) Do
               begin
                      PosX := Left;
                      PosY := Top;
               End;
          End
          Else
             Inherited;
End;

[ShaiLeTroll]

Tu peux juste changer l'ancêtre TForm

Tu fais propre classe de TForm SANS DFM (ça c'est important)
Tu y mets ton code (dans un override de WndProc par exemple)
Tu n'as qu'a change l'ancêtre et l'IDE n'y voit que du feu !

[fveto]

Tu peux juste changer l'ancêtre TForm

Tu fais propre classe de TForm SANS DFM (ça c'est important)
Tu y mets ton code (dans un override de WndProc par exemple)
Tu n'as qu'a change l'ancêtre et l'IDE n'y voit que du feu !

Bonjour et merci pour la reponse,

Je metrise pas assez bien delphi pour bien comprendre ta soluton, est il possible d avoir plus de details

Merci