Einzelnen Beitrag anzeigen

Muchacho

Registriert seit: 9. Okt 2009
60 Beiträge
 
Delphi 2010 Enterprise
 
#13

Re: Schüttel-Funktion / Fenster hin und her schütteln /Windo

  Alt 9. Okt 2009, 15:38
Zitat von 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
Super himitsu

ich habe vorher Deinen Beitrag nicht gesehen.

Offensichtlich denkst Du etwas schneller als ich, da Du sogar schon einen Source-Entwurf vorgestellt hast.

Muchacho
  Mit Zitat antworten Zitat