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.
|
|
|
|
object Form1: TForm1
|
|
|
|
|
Left = 0
|
|
|
|
|
Top = 0
|
|
|
|
|
Caption = 'Form1'
|
|
|
|
|
ClientHeight = 480
|
|
|
|
|
ClientWidth = 640
|
|
|
|
|
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 = 64.000000000000000000
|
|
|
|
|
Size.Width = 345.000000000000000000
|
|
|
|
|
Size.Height = 329.000000000000000000
|
|
|
|
|
Size.PlatformDefault = False
|
|
|
|
|
TabOrder = 1
|
|
|
|
|
Viewport.Width = 341.000000000000000000
|
|
|
|
|
Viewport.Height = 325.000000000000000000
|
|
|
|
|
end
|
|
|
|
|
object Button1: TButton
|
|
|
|
|
Position.X = 496.000000000000000000
|
|
|
|
|
Position.Y = 352.000000000000000000
|
|
|
|
|
TabOrder = 3
|
|
|
|
|
Text = 'Button1'
|
|
|
|
|
OnClick = Button1Click
|
|
|
|
|
end
|
|
|
|
|
end
|
