Multitouch Anwendung unter Delphi 7

[greenmile]

Hallo,

ich denke da fehlt noch etwas ganz wichtiges. Nachdem Windows "WMGestureNotify" gesendet hat, muss man mittels "SetGestureConfig" definieren, welche Gesturen man gerne bekommen möchte (im Zweifelsfall GC_ALLGESTURES):

TGestureStruct = packed record
dwID: DWord; // gesture ID
dwWant: Dword; // settings related to gesture ID that are to be turned on
dwBlock: DWord; // settings related to gesture ID that are to be turned off
End;
PGestureStruct = ^TGestureStruct;


procedure TForm1.WMGestureNotify(var Msg: TWMGestureNotify);
var GCGestureStruct;
begin
GC.dwID := Msg.NotifyStruct.dwInstanceID;
GC.dwWant := 1; // GC_ALLGESTURES;
SetGestureConfig(Msg.NotifyStruct.hwndTarget, 0, 3, @gc, SizeOf(TGestureStruct));

Msg.Result := DefWindowProc(Handle, Msg.Msg, Msg.Unused, Longint(Msg.NotifyStruct));
end;

Anschließend sollte WMGesture ankommen. Klappt bei mir allerdings nicht, ich denke ich habe nen Fehler im Struct.