Schüttel-Funktion / Fenster hin und her schütteln /Windows 7

[himitsu]

OK, WM_MOVE geht leider nicht ... das wird nur einmal nach dem Verschieben ausgelöst

Left und Top ändern sch leider auch erst nach vollendetem Verschieben, aber nicht wärenddessen

Delphi-Quellcode:

procedure TForm1.Timer1Timer(Sender: TObject);
var r: Integer;
begin
  if Left < _y then r := 1 else r := 0;
  if Top < _x then Inc(r, 2);
  if r <> _r then Inc(_c) else _c := 0;
  if _c > 5 then Beep;
  _x := Left;
  _y := Top;
  _r := r;
end;

also geht das auch so auch nicht