Multitouch Anwendung unter Delphi 7

[sx2008]

Schön, aber du hast noch einen heftigen Bug in deinem Code:

Delphi-Quellcode:

procedure TForm1.WMGestureNotify(var Msg: TWMGestureNotify);
begin
  Msg.Result := DefWindowProc(Form1.Handle, Msg.Msg, Msg.Unused, Longint(Msg.NotifyStruct));
end;

Was würde wohl passieren, wenn von der Formular-Klasse TForm1 mehrere Objekte (also Formulare) erzeugt werden?