Réagir aux déplacements de la fiche


Pour réagir aux déplacements de la fiche, il faut gérer le message WM_WINDOWPOSCHANGED de la manière suivante :

Réagir aux déplacements de la fiche

type
  TForm1 = class(TForm)
  private
    { Déclarations privées }
    procedure WMWindowPosChanged(var Message: TWMWindowPosChanged); message WM_WINDOWPOSCHANGED;
  end;

implementation

procedure TForm1.WMWindowPosChanged(var Message: TWMWindowPosChanged);
begin
  Caption := 'Position : ' +  IntToStr(Message.WindowPos.X) + ' - ' + IntToStr(Message.WindowPos.Y);
  inherited;
end;

3 requête(s) SQL executée(s) en 0.001 Secs - Temps total de génération de la page : 0.007 Secs