unit1.dfm

这个例子让你的程序可以在运行期间对控件进行选取、移动、动态更改所选对象尺寸等可视操作

object Form1: TForm1
  Left = 192
  Top = 107
  BorderStyle = bsSingle
  Caption = #21487#22312#36816#34892#26399#31227#21160#12289#26356#25913#25511#20214#22823#23567#30340#21333#20803#31034#20363
  ClientHeight = 313
  ClientWidth = 455
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -12
  Font.Name = #23435#20307
  Font.Style = []
  OldCreateOrder = False
  Position = poDesktopCenter
  OnCreate = FormCreate
  OnMouseUp = Image1MouseDown
  PixelsPerInch = 96
  TextHeight = 12
  object Image1: TImage
    Left = 16
    Top = 56
    Width = 128
    Height = 128
    Picture.Data = {
      0A544A504547496D616765262E0000FFD8FFE000104A46494600010200000100
      010000FFE1011A45786966000049492A00080000000700120103000100000001
      000000310102001C0000006200000032010200140000007E0000001302030001
      000000010000006987040001000000DC0000009B9C01001A000000920000009C
      9C010030000000AC000000000000004143442053797374656D73204469676974
      616C20496D6167696E6700323030323A31313A32352032333A34333A313300A8
      521F61517FDC7E20002000FE564772207D5067448D906E0000FA510459200068
      007400740070003A002F002F007700770077002E006D00650073006B0079002E
      006E006500740000000400009007000400000030323130909202000400000039
      37310002A00400010000008000000003A00400010000008000000000000000FF
      DB00430001010101010101010101010101010101010101010101010101010101
      0101010101010101010101010101010101010101010101010101010101010101
      01010101FFDB0043010101010101010101010101010101010101010101010101
      0101010101010101010101010101010101010101010101010101010101010101
      010101010101010101FFC00011080080008003012200021101031101FFC4001F
      0000010501010101010100000000000000000102030405060708090A0BFFC400
      B5100002010303020403050504040000017D0102030004110512213141061351
      6107227114328191A1082342B1C11552D1F02433627282090A161718191A2526
      2728292A3435363738393A434445464748494A535455565758595A6364656667
      68696A737475767778797A838485868788898A92939495969798999AA2A3A4A5
      A6A7A8A9AAB2B3B4B5B6B7B8B9BAC2C3C4C5C6C7C8C9CAD2D3D4D5D6D7D8D9DA
      E1E2E3E4E5E6E7E8E9EAF1F2F3F4F5F6F7F8F9FAFFC4001F0100030101010101
      010101010000000000000102030405060708090A0BFFC400B511000201020404
      0304070504040001027700010203110405213106124151076171132232810814
      4291A1B1C109233352F0156272D10A162434E125F11718191A262728292A3536
      3738393A434445464748494A535455565758595A636465666768696A73747576
      7778797A82838485868788898A92939495969798999AA2A3A4A5A6A7A8A9AAB2
      B3B4B5B6B7B8B9BAC2C3C4C5C6C7C8C9CAD2D3D4D5D6D7D8D9DAE2E3E4E5E6E7
      E8E9EAF2F3F4F5F6F7F8F9FAFFDA000C03010002110311003F00FEFE28A28A00
      28A28A0028A290903A903EA71401FE75BFF05D5FDB43FE0A23F083FE0A7FFB45
      783B57D4F4AF0EFC1ED13C29E02B9F801A478B341F0D6B3E107F84D2F83B4DBA
      D5FC5DE0CFF84C747D56C24D7756F1CCDE26B7F1B6AFA3456BABC1AB6996BE1F
      BED40D8787F448EDFF00AC7FF8207FC53FDA47E34FFC12BBF665F893FB525F6A
      FACFC42F12D8F8D2E7C3BE25F1179BFF0009178AFE1345E39F1041F09FC47AC4
      97124D7378FA978223D20E95AADD4B2DDEBBE1E8B47D76EE7BAB9D4A5BA97DDB
      FE0A9BFB35F85FF6A1FD88BE3FF8564F0B785F5FF899E10F873E20F89BF04758
      D6FC3FA66B7A8F86BE2D7C2E5B6F897E049F47B9BDB59AEB4F8755F15783B46D
      235F8ACA485757D02EF50D26FE3BCD3EEE7B47FCF4FF0083727F6C7F0BFED1BF
      B247C4EF869E1E924363FB3BFC60BDB5F05E8E999E4D03E0F7C6CD387C5FF87D
      E1D411A661D33C11AE6B7F103E196856C6354B2F0FF80B49B44063863A00FE88
      6BC7FF00682F8DFE06FD9A7E067C5EFDA13E265D5CDA7C3FF82BF0E7C5FF0013
      7C5F2D8C22E7506D0BC1BA1DEEB97F6DA6DB1645B9D4EF62B2367A75B33C6B71
      7D3DBC2D22072EBC47ED65FB59FC1BFD8AFF0067AF89BFB4CFC79D6E7F0D7C35
      F85DA0B6AFAA3C70799ABEBBA9DCDC43A7787BC23E17B09DAD5756F1578B35CB
      BD3F41F0FE9BE7411CFA8DF44D7773676515CDE41FC817C12F17FED3FF00F072
      F7C47F1DE9DE3EF10788FE11FEC43E0FD5E1B5F1CF873C31A8DC0F86DF0FF4BB
      D81AE741F867E1BB092D21D33F680FDA8FC43A4C90EB7E2AF88DF126DB57F85F
      F03749B9B5D5BC1BF0D62F116A9E1D6D5003E8FF0081BFF075F7C23F88BF163E
      0AF863C59F0DAE74AF0CFC5FF891E0EF006ADA4E95E1BBE8758F8611FC42D6ED
      B40D135DBAF1A4DE3CD5EDFC736DE1CD4752D33FE126B7FF00856BE027BBD306
      A7A9E9322DD595A689A97F60B5FCBFFECF9FF06B37EC77F047F686F86BF18754
      F8BFF12FE28F80BE0C78DB4BF881F0D7E11F89340F08E99E67883C35A8C5AAF8
      387C49F1C68D6B05F78F34CF0D6A16F657E9A7D9E85E128F5ABAD3ED7FB7A4D4
      6C1AFB4FBDFEA02800A28A2800A28A2800A28A2800A42401C9C0FCA9AEEA8A59
      8E00F7C7F8FF002E3DF8AFCF4FF82847FC1457E027FC13C7E09EA5F17BE356BA
      E66B9375A67C3FF87BA1CD6EFE36F89DE298E0F322F0F7866CA76558E084B432
      EBBE20BC54D27C3B62FF006ABE9A4B896CECEE803ED2F1E7C48F057C34F0C6B7
      E34F1DF8A7C3DE0CF08F86ECA5D4BC41E29F156B361A0787F45B0854B4975AA6
      ADA9CD6F636508C7CAD3CCA647C47189242A8DFCB07EDC1FF0759FECB5F06AF3
      57F077EC97E08D57F6A0F1758BCD6AFE39D4EF6F3C03F05ED2E91CC464B1D426
      B297C5FE33851FF788FA6E97A069978AB9B3D72549166AFE74BE257C7DFF0082
      90FF00C1C1FF00B470F873A55C8F0B7C23D0EF175A8BE1FE9FA86ADA4FC07F82
      5E1792E4C56DE29F881A8C7135CF8BFC572C71F97697BA943A8788B5DD42392D
      3C2FA569760AF6F67FD357EC23FF000456FD873F630B2D1FC49AF78434EFDA3F
      E385AC504F79F13FE2DE8F65AAE89A4EA6A15A53F0FF00E1C5D2DEF86FC35671
      4DFF001E97FAA45AF7895D15249B578598411007E174BFF0524FF838D3FE0A32
      6E24FD9DBC09F12FC15F0FF58334303FC0BF84567F0FBC1C34FB90C82197E29F
      C4286E6FF508BC862B2DCC5E2E2B28DEDE584DAA9F367C35FF008378BFE0B39A
      2E9F7CDE12F0CF85BE1543E201692EB3A637ED35E1DF0A4DA89B3FB41B25D5ED
      3C2D7F7F6F72F626EEEC5BC770F37D94DD4E2211F9B2337FA09278C638A082D2
      29161B5B68D62B6B5802436B6D1200A90DBDB471AC30448A3091451AC68A3038
      DBB9DFF098AFF7FF0056FF003FE7E9401FC00FC41FF837C7FE0B5DAC7852E3C3
      5E27B4F0EFC48F0B35DDB6A92F8397F6ABD2BC45A65D6A160B2FD8AF4687E23D
      434FD2E5BFB513CEB697122ACD0F9F279522F98C6B7BE077C6FF00F82F47FC11
      5FE1FD97C3AD3FE02F8C3C37FB3E786F57D5F5E6F0A78ABE0A683F127E16ADFE
      B57C751D7B52B8F1DFC3EB79B5AB59F539D8C93EA575E30B796289218A378EDA
      D6DE38BFBE0FF84C57FBFF00AB527FC26B8592359FF772AB473465B314B138C3
      C5246576C88C3864756561C36EFE100FE78BF628FF0083B23F67EF8977DA5783
      BF6C9F85DAAFECF5AFDDCB0D93FC4BF02DCEA1E3FF0084EF74CF1C465D6F4878
      0F8E7C23034ADBA47822F185ADA2077B9B9B68A366AFEAEBE15FC63F86BF1A3C
      17A17C43F859E3AF0AFC45F02F89AD52EF40F1878335DB0F10F87B56819558B5
      AEA7A74935B9963DCA2E2D2531DE5AC9FBBBA8A294144FE79FF6E5FF0082407E
      C2DFB6ED86ADAD6A9F0FF4EF821F196EA19A4B0F8CBF06F4BD33C39AA4FA832B
      18E5F1AF846D60B7F0B78EAC9E52A6EFEDF6763AF347BCDA7882D252AF5FCACD
      9F88BFE0A43FF06F3FED1F6D6BE1EF13A7887E1378C3506BEB3B4DFABEADFB3D
      FC7FF0FD848A2EE39F489DE29BC27E3CB0B3645BC4824D3BC63E1B99E1B882F7
      55D12446BB00FF0050F041195391EA0E7FCFE43F952D7E5BFF00C133FF00E0A8
      9F01BFE0A47F07D3C7DF0C6F5BC3DE39F0E476365F15BE106B97B04BE2DF879A
      D5CA611D8A2C7FDBBE11D566597FE11DF15DA411DADF2C6F677F0E9DABDBDC58
      C5FA8B1C8B228653907DF3FE7F21400FA28A2800A4240193C0A5ACFD4EE96D2D
      64959B18527A9EC09F4C7E67AF5ED401F327ED71FB527C30FD91FE067C45F8F5
      F16F591A4781FE1CE853EABA82C2F1FF0069EB7A83916FA1F85B40825282F7C4
      5E26D5A4B4D2348B4CE0DCDC79F395B68279E2FF002D7FDAE3F6A5FDA23FE0A9
      5FB59A78FBC6F2DCDF6BFE39F13587813E0E7C35B4B9B993C35F0EFC39AB6AE9
      67E1CF08E85030D8891B5C477BE24D6DA317BADEA46FB58BE6F9A28ADFF687FE
      0E62FDBD17E35FED13A47EC5FE16D73C463E1D7ECFB3DBEBBF1157C31AD69565
      67E24F8C5AE69CB28B0D516FF41D652F13E1F787EF61D36D515A35B5D7358F11
      2CB13CF6F0B45F929FF04CCD37C1317ED73F0EF59D45FC7ACDE18D2BC61E24D3
      FCFF0010F841A14D574FD06E2DEC27D87E1F8669607BE6B880860525891F964C
      AFE99947849C639DE5B4334C150C12A189C32C551A75F19ECABCA8CA2E74DFB3
      741C53A90E59C39A56E5945CB76A3F1F8FE38C832EC555C1E22A625D5A355D19
      CA951F694D4E2F9649494A2DF24AF1968FDE8BB36F58FF00625FB157C09F86BF
      B147C0AF0D7C19F8796D68D7B04506ADF113C60B1471EA9E3FF1E4F6F1AEB3E2
      1D52E553CE96D6297769FE1EB173E4E95A25BDADAC08AE6E1E6FAFD3E232F004
      DCFF00BE7073DF9519C77E38FF006BEF2FE65C3F16F4018CEA7E3CCFA0F10785
      077F7F0431FF00EBFF007B835687C5CD007FCC53C7BFF850F84CFF003F029FF3
      EBD6BABFE20B71F7FD0B70BF3CC70ABFF6EFFDB7A7A72F23F11B8656F5B19FF8
      4B3FEB5F3FF23F4C57E23A0C6671EB80EDF8E781E9CE31D3BFCA55E3E254607F
      AE1F8BB9FF003FE7DABF333FE16E681FF414F1EFFE141E13FF00E616AA5FFC66
      D02C6C2F6F4EA3E3D9059D9DD5D98FFE122F092799F6681E6D9BFF00E1046DBB
      F66DDDB4E339C1FE253F0638F61094E597611461194A4FFB4B0AED18ABB765AB
      D35B2D5FA8A3E23F0C4A4A11AD8B6E4D25FECB35772764BCB5EAECB5F567E9F7
      FC2CA8CFFCB61C73C338EFEDD734C3F1223FF9F819F777FCB807FCF63C1AFCCC
      8BE306812C514A353F1E812C51CA07FC243E13381222BE33FF000820CE37609D
      A33D714FFF0085B9A07FD053C7BFF850784FFF00985A6BC17E3E693597611A6A
      EBFE14F09B3FBFFAEFB83F123861369D7C5DD69FEEB3FF0083FD77DCFD297F88
      CA7FE5B0CFFBC7A1E7B21F5EF8FF0080F06BE71FDA93E187C2EFDADFE0BF8BBE
      077C5AD3E1D43C3BE27B56934BD58451CBAB7833C536D149FD85E32F0EDC4885
      ED357D16ED9653E5ED4D42C5AEF4BBAF36D2F254AF993FE16E681FF414F1EFFE
      141E131FCBC0B55E5F8B3A01071AA78F3E87C43E14FF00E618139EFCFE7CD1FF
      00105B8FBFE85B85FF00C38E15FE52FF00DB7EFDC1788FC30F6AF8BFFC259AFC
      FE47F22BF09FE2AFED19FF0004B3FDB1EF3C57F0F7597D0FE26FC17F196A5E15
      F14697BEE7FE116F885E1982F235D47C3FE21B042ABA9F84BC67A40B5BD855F3
      35AADCD8EA761241A9595ADCC1FEA09FB06FEDA5F0C7F6E4FD9D7E1F7ED03F0B
      EEF6691E2EB0F235EF0DDCDC24DAC7817C6BA6A45178A3C13AEEC5FF008FED16
      FDFF00D1EE70B1EABA45C699AC5B036F7D185FF368FF0082BD6A3F0DB4EFDA46
      EBC757B7BE3BB55F117C3AF07DEEAD241E21F087FA5EAB66FAA6870958078024
      966BC9AC74BB357F9CB388959B62AEEAFAE7FE0DB1FF008291F86BE02FED729F
      B3E5CF8A3C4EBF097F69EBFD37C3535878B759D1DAC7C29F16ADD2587C05E24B
      6B5B4D07455B77F134D20F046A7751CB3C73FF006968CD7299D3EDDA2F1F36F0
      DF3EC91BA38FC4E4B0C7FD46A6631CA619B509E69570946339D4A94B06A0A755
      C614AA4D469B9392A551C3DA724A47B197F1460333A5F59C2E1734960962A183
      96612C0D58E02188A9284610A9895EE42F29D34DCACA2E70E692E689FE980082
      323A1A5AC9D1EF56F2D23901CB6D19C939CF7C8DAB8C118E9DBA7435AD5F027D
      2057CCFF00B537C64D17E047C16F8A7F17B5F741A2FC2EF87DE2EF1F6A28EDB5
      6783C2BA1DEEB0967923EF5FCF6B0D947D332DC20C735F4B93804FA026BF9EEF
      F838A3E2DC9F0E3FE09ADF1CACADAE1E1BEF897A9781FE175A6C72A6487C45E2
      8B2D47578723076CBA1E85A9C72A85F9E367465652DB7D3C9700F35CE32BCB15
      FF00DBF30C1E11F2E8D471188A74A72BA4EDCB19396DD3AEF1E4CC312B0581C6
      62DDBFD9B0B5EBABECDD2A729C57FDBD24979FE31FF395F17F8CFC47F163E21F
      8DFE27F8C2FA4D4BC57F10BC5DE22F1A788EFE67791EEF5AF136AB75AC6A336F
      914BED6BABB97CB5E1638F6A28DA8057B77ECF7E365F85FF00157C1FE2F67F2A
      D6CEF25D3F539172A574CD66DE4D3AF643B54922159D6E4F5C887B57816896BF
      22023007527E5000EED95E00C64927A724902BC77C5BFB4969BE1FD467D2BC31
      A341AF0B47682E751BAB992DEC649518AC8B66B0234B3C4AD9027768D24C6515
      93632FFA0D8ACFF85380F27C3E3389730A19560EADB0D84A2A9D7AD5F10E105C
      D4F0B85C351AD88A91A34F97DACE34FD9D152A6AA4E3CD4F9BF9870791710F18
      6635F0990E0AAE3F11497B6C44FDB53A3468C652769D7C4D7F654A12AB3BF241
      C9D4AAE32E48BE4933FA8D4F8C2A07CB7A183005596405594805594E06558104
      1039041E7E5DAFFF0085C1FF004F47FEFBAFC18FD9FF00F6D0B0F179B2F04F89
      A26D075D8D05BE8D712DD99EC3528E31FBAB0172F1C72C5791A80B6EB32B09A3
      5118919D56BEC65F8853632656C75FBCF9EDFEC11FE738AFAFE17C7F0F719E59
      1CDF86731A39A60253951955A3ED61528D7828CA7431387AD4A9E230D5A31709
      3A75A9C27284E35229C27099F2FC4396677C2F984B2DCFB075F2FC6460AAC615
      251942B51936A35A856A72A946BD26E328FB4A5392528B84B9650718FE91FF00
      C2DFFF00A7C03FEDA7F821FE7F9FF0E3F887E2FE3C3DAF9FB6F4D13566FF0058
      3B69F707FBA0FEA3F1E36FE7C0F88521FF0096ADFF007D3FFF00118FE5EFEB58
      9E27F88332F86BC44DE69F9741D64FDF6EDA75C93D8FF2E7DFAAFBB8AC864B0B
      8AF734587AFBA97FCFB9796BF7BFCB97C6C3E64BEB147F78F5AD4FFE5E2B6B38
      F6BBFC3EFD0FD33B4F8BE3EC767FE9BFF2E76BFC6BFF003EF1FF00B07FCFAF5A
      B1FF000B787FCFEFFE445FFE375F9AF65F1025363627CD3CD959FF001B7FCFB4
      47FCFF00FAAACFFC2C097FE7A9FF00BEDB9FF3FF00EBED5AD3C827ECE9FB8BE1
      8BD9FF002AD3FA49913CC973CFDF7F14BFE5E79FF5BEBF81FA3C7E2FFA5E67FE
      06BFE03FFAFD7DA987E2F6EE3ED473D07CE3A9FC08E7F0FC782BF9C5FF000B0A