Discussion :

[adovic]

je cherche à utiliser form1.onmove dans mon programme mais je la trouve pas sous delphi
y a-t-il une solution?

[ero-sennin]

Salut,

Qu'entends-tu par "utiliser Form1.OnMove" ?
Tu veux faire une action lorsque la fenêtre est déplacée ?

[adovic]

oui exactement ça
je veux exécuter une procédure lorsque formx 'move'

[ero-sennin]

Tu peux essayer (inspiré de cette QR) 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
type
  TForm1 = class(TForm)
  private
    { Déclarations privées }
    procedure OnWindowMoving(var Message: TWMWindowPosMsg); message WM_MOVE;
  public
  end;
 
 
implementation
 
{$R *.DFM}
 
procedure TForm1.OnWindowMoving(var Message: TWMWindowPosMsg);
begin
  if not Visible then 
    Exit;
  ShowMessage('Message de déplacement capté');
end;
 
end;

[adovic]

résolu merci
il faut ajouter après 'exit;'
with Message do begin
//execution d'une procedure