basic drag and drop implement using SetWindowLongPtr
You can not select more than 25 topics Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
 
 

76 lines
2.1 KiB

object Form1: TForm1
Left = 0
Top = 0
Caption = 'Form1'
ClientHeight = 683
ClientWidth = 806
FormFactor.Width = 320
FormFactor.Height = 480
FormFactor.Devices = [Desktop]
OnClose = FormClose
DesignerMasterStyle = 0
object Memo1: TMemo
Touch.InteractiveGestures = [Pan, LongTap, DoubleTap]
DataDetectorTypes = []
Position.X = 64.000000000000000000
Position.Y = 584.000000000000000000
Size.Width = 409.000000000000000000
Size.Height = 41.000000000000000000
Size.PlatformDefault = False
TabOrder = 1
Viewport.Width = 405.000000000000000000
Viewport.Height = 37.000000000000000000
end
object Image1: TImage
MultiResBitmap = <
item
end>
Position.X = 32.000000000000000000
Position.Y = 32.000000000000000000
Size.Width = 512.000000000000000000
Size.Height = 512.000000000000000000
Size.PlatformDefault = False
end
object TrackBar1: TTrackBar
CanParentFocus = True
Orientation = Horizontal
Position.X = 88.000000000000000000
Position.Y = 552.000000000000000000
Size.Width = 361.000000000000000000
Size.Height = 19.000000000000000000
Size.PlatformDefault = False
TabOrder = 3
OnChange = TrackBar1Change
end
object Edit1: TEdit
Touch.InteractiveGestures = [LongTap, DoubleTap]
TabOrder = 4
Position.X = 568.000000000000000000
Position.Y = 392.000000000000000000
OnExit = Edit1Exit
end
object Label1: TLabel
Position.X = 568.000000000000000000
Position.Y = 336.000000000000000000
Text = 'Label1'
TabOrder = 5
end
object Label2: TLabel
Position.X = 560.000000000000000000
Position.Y = 456.000000000000000000
Size.Width = 81.000000000000000000
Size.Height = 17.000000000000000000
Size.PlatformDefault = False
Text = 'Label2'
TabOrder = 6
end
object Label3: TLabel
Position.X = 632.000000000000000000
Position.Y = 456.000000000000000000
Size.Width = 81.000000000000000000
Size.Height = 17.000000000000000000
Size.PlatformDefault = False
Text = 'Label3'
TabOrder = 7
end
end