unit1.dfm

delphi实现的类QQ的伸缩窗口。供DELPHI爱好者参考学习。

object frmMain: TfrmMain
  Left = 316
  Top = 134
  Width = 188
  Height = 580
  BorderIcons = [biSystemMenu, biMinimize]
  Caption = 'QQ Like Form'
  Color = clBtnFace
  Font.Charset = ANSI_CHARSET
  Font.Color = clWindowText
  Font.Height = -12
  Font.Name = #203#206#204#229
  Font.Style = []
  FormStyle = fsStayOnTop
  OldCreateOrder = False
  OnCanResize = FormCanResize
  PixelsPerInch = 96
  TextHeight = 12
  object Label1: TLabel
    Left = 16
    Top = 160
    Width = 153
    Height = 33
    AutoSize = False
    Caption = #189#171#180#176#204#229#205#207#183#197#181#189#198#193#196#187#201#207#178#224#187#242#215#243#178#224#163#172#188#180#191#201#191#180#181#189#208#167#185#251#161#163':)'
    Font.Charset = ANSI_CHARSET
    Font.Color = clNavy
    Font.Height = -12
    Font.Name = #203#206#204#229
    Font.Style = [fsBold]
    ParentFont = False
    WordWrap = True
  end
  object Timer1: TTimer
    Interval = 50
    OnTimer = Timer1Timer
    Left = 32
    Top = 32
  end
  object Timer2: TTimer
    Interval = 50
    OnTimer = Timer2Timer
    Left = 72
    Top = 40
  end
end