Ergebnis der Suchanfrage

• Forum: Neuen Beitrag zur Code-Library hinzufügen

  AW: Multitouch Anwendung unter Delphi 7

    Delphi
    by himitsu, 21. Nov 2010
  oder eventuell auch so
  procedure TForm1.WMTOUCH(var Msg: TMessage);
  var
  TouchInputs: array of TTouchInput;
  TouchPoints: array of TPoint;
  counter: Integer;
  begin
  SetLength(TouchInputs, Msg.WParam);
  SetLength(TouchPoints, Msg.WParam);
  GetTouchInputInfo(Msg.LParam, Msg.WParam, @TouchInputs, SizeOf(TTouchInput));
• Forum: Neuen Beitrag zur Code-Library hinzufügen

  AW: Multitouch Anwendung unter Delphi 7

    Delphi
    by himitsu, 21. Nov 2010
  Hab mal ein bissl am Exceptionhandling rumgespielt. :angle2:
  TouchPointToPoint wird in den Private-Abschnitt der TForm1 verschoben.
  Und die angesprochenen Form1 entfernt.
  
  
  procedure TForm1.WMGestureNotify(var Msg: TWMGestureNotify);
  begin
  Msg.Result := DefWindowProc(Handle, Msg.Msg, Msg.Unused, Longint(Msg.NotifyStruct));
  end;