1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
|
object Form1: TForm1
Left = 299
Height = 353
Top = 155
Width = 701
HorzScrollBar.Page = 700
VertScrollBar.Page = 352
ActiveControl = Memo1
AllowDropFiles = True
Caption = 'On Drop Files event example'
ClientHeight = 353
ClientWidth = 701
OnDropFiles = FormDropFiles
LCLVersion = '1.7'
object Label1: TLabel
Left = 13
Height = 14
Top = 18
Width = 375
Caption = 'Drag and drop files on this form and see the results in memo. '
ParentColor = False
end
object Memo1: TMemo
Left = 12
Height = 287
Top = 48
Width = 666
ScrollBars = ssVertical
TabOrder = 0
end
object ApplicationProperties1: TApplicationProperties
OnDropFiles = ApplicationProperties1DropFiles
left = 126
top = 300
end
end
|
