unit1.~dfm

来自「实现应用程序的界面是不规则窗体的方法。开发界面及开发环境是Delphi」· ~DFM 代码 · 共 38 行

object Form1: TForm1
  Left = 488
  Top = 211
  AutoSize = True
  BorderStyle = bsNone
  Caption = '不规则FORM演示'
  ClientHeight = 112
  ClientWidth = 131
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  FormStyle = fsStayOnTop
  OldCreateOrder = False
  OnCreate = FormCreate
  PixelsPerInch = 96
  TextHeight = 13
  object Image1: TImage
    Left = 0
    Top = 0
    Width = 131
    Height = 112
    AutoSize = True
    OnMouseDown = Image1MouseDown
  end
  object Button1: TButton
    Left = 72
    Top = 80
    Width = 41
    Height = 17
    Caption = 'Close'
    TabOrder = 0
    OnClick = Button1Click
  end
end