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

Thema durchsuchen

Ansicht

Themen-Optionen

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

Ein Thema von Muchacho · begonnen am 9. Okt 2009 · letzter Beitrag vom 21. Okt 2009

Vorheriger Beitrag

Nächster Beitrag

himitsu

Online

Registriert seit: 11. Okt 2003
Ort: Elbflorenz
44.585 Beiträge

Delphi 12 Athens

#11

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

9. Okt 2009, 14:23

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

zusammenfalten · markieren

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;