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