unit1.dfm

Delphi使用GDI＋制作任意图片形状窗口代码

object Form1: TForm1
  Left = 279
  Top = 115
  Width = 158
  Height = 135
  Caption = 'GDI'#65291#29992'PNG'#22270#29255#20570#21322#36879#26126#24322#22411#31383#21475
  Color = clWhite
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  OldCreateOrder = False
  PopupMenu = PopupMenu1
  OnCreate = FormCreate
  OnMouseDown = FormMouseDown
  PixelsPerInch = 96
  TextHeight = 13
  object PopupMenu1: TPopupMenu
    Left = 40
    Top = 24
    object mniClose: TMenuItem
      Caption = #20851#38381
      OnClick = mniCloseClick
    end
    object mniChangeSkin: TMenuItem
      Caption = #26356#25442#22270#29255
      OnClick = mniChangeSkinClick
    end
    object Stayontop1: TMenuItem
      Caption = #32622#20110#26368#19978
      OnClick = Stayontop1Click
    end
    object About1: TMenuItem
      Caption = #20851#20110
      OnClick = About1Click
    end
  end
end