Kein Verschieben des Datawindows
Verhindern, dass ein Datawindow mit der Titlebar per Drag&Drop verschoben werden kann.
//*********************************************************
//
// Object: Window
// Event: ue_syscommand
// EventID: pbm_syscommand
// Arguments: unsignedlong commandtype
// integer xpos
// integer ypos
// Returns: long
// Description: Dieses Event verhindert, dass das Datawindow mit Hilfe der
// Titlebar verschoben werden kann. Ohne diese Zeilen kann das
// Datawindow (sofern es eine Titlebar hat) per Drag&Drop
// verschoben werden.
// Dieses Event muss manuell im Datawindow erzeugt werden (s.o.).
//
//*********************************************************
// Revision History
// Date Name Revision
//--------------------------------------------------------------------------------
// 07.10.2004 Christoph Menken CM Initial Version
//*********************************************************
// Copyright ©2004 Power People All Rights Reserved.
//*********************************************************
// Die Message 61458 ist für das Klicken zuständig
If Message.WordParm = 61458 Then
// Die Action abschließen, dadurch wird diese nicht
// weiter ausgeführt und das Drag&Drop verhindert
Message.Processed = True
Message.ReturnValue = 0
End If
|
