Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by himitsu,
9. Okt 2009
Also das Titelleiste anklicken kann man abfangen ... da sendet ja Windows eine Nachricht an das Fenster
und das Problem mit dem Anfassen und erst nach 2, 10, 60 oder wieviel auch immer Sekunden erst schütteln, ist ja schon gelöst ... siehe mein Code ... dem ist es egal wann geschüttelt wird, man muß nur eine gewisse Zeit schütteln
praktisch bei 200ms Timer und mit dem dortigen Wert 5 = 1...
Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by himitsu,
9. Okt 2009
OK, WM_MOVE geht leider nicht ... das wird nur einmal nach dem Verschieben ausgelöst :wall:
Left und Top ändern sch leider auch erst nach vollendetem Verschieben, aber nicht wärenddessen
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;